Hallo Mario,

Am 08 Sep 99 um 10:53 schrieb Mario Semo an Thomas Seeling:

 TS>> There sure is, the first winner was a cow-orker of mine who submitted
 TS>> this:
to clarify: I have this from the Usenet, it was not me who got it from his
cowork.er

 >> *_=\$#;$/=q#(.)#;$#=10;$^X=~s|.*/||;$\=chr;$#=gmtime$#;substr($#,$^F#^F
 >> *$^F**$^F-1)=al;s$\$/( )\$/\$/$e\$2\u\$^X\$2\$3o\$1r$&&print time

 MS> syntax error at x.pl line 2, near "F "
your quote contained an error. Above is the corrected, working version.
Use sed -e s!';'!';\n'!g to make it more readable and look up the special
variables like $/, $\, $^F etc.

=== Cut perl.txt ===
tfx404:/home/root/tivoli # perl ./x.pl
The Perl Journal
tfx404:/home/root/tivoli # perl -v

This is perl, version 5.003 with EMBED
        built under aix at Jan  7 1997 17:39:32
        + suidperl security patch

Copyright 1987-1996, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.

tfx404:/home/root/tivoli # uname -a
AIX tfx404 1 4 000127738900
=== End perl.txt ===


Tschau...Thomas

--- GEDW32 3.0.1