Hallo Thomas!

Antwort auf eine Message von Thomas Seeling an David Noon:

 TS> There sure is, the first winner was a cow-orker of mine who submitted
 TS> this:

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

mh. i created a file x.pl and wrote the above into a lline. first in 2 lines
(as above) then in 1 line, without spaces:

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

here are the results: (i have no experience in perl, but i was interested in
running it).


L:\NT>perl x.pl
Semicolon seems to be missing at x.pl line 1.
syntax error at x.pl line 2, near "F "
Execution of x.pl aborted due to compilation errors.


L:\NT>perl x.pl
syntax error at x.pl line 2, at EOF
Execution of x.pl aborted due to compilation errors.

L:\NT>perl -v

        Win32 port Copyright (c) 1995-1996 Microsoft Corporation.
                All rights reserved.
        Developed by ActiveWare Internet Corp., http://www.ActiveWare.com

Perl for Win32 Build 316 - Built 09:44:44 Mar 13 1998

This is perl, version 5.003_07

Copyright 1987-1996, Larry Wall

        + suidperl security patch
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.








Servus, Mario!

--- FleetStreet 1.21 PR#2