verzeichnis abfragen: welches ist das letzte verzeichnis - #55515 (Allgemeines zu Perl)

Dubu

2005-06-17 22:03

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Ach was, die kann man doch immer brauchen ...

Code: (dl )

$r='$_=reverse q q}_@tnirp{print busq;eval;';eval$r;$r^=pack'c39',eval
"qw'".'0 'x17 .'4 28 0 28 4 0 30 29 29 15 84 '.'0 'x11 ."'";eval$r;
aton(74.117.115.116)=>aton(32.97.110.111)=>aton(116.104.101.114);
aton(32.80.101.114)=>aton(108.32.104.97)=>aton(99.107.101.114);

;)