TCLUG Archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE: [TCLUG:7271] academic perl exercise...



Hello all:

[trammell@nitz ~]$ ./foo
#!/usr/bin/perl
$x='#!/usr/bin/perl%c$x=%c%s%c;printf $x,10,39,$x,39,10;%c';printf $x,10,39,$x,39,10;
[trammell@nitz ~]$ ./foo > foo.out
[trammell@nitz ~]$ diff foo foo.out
[trammell@nitz ~]$

Regards,
John