Dateien auflisten (Seite 2) (Allgemeines zu Perl)

BrownWolf

2003-10-17 17:37

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Nach einigen Testversuchen habe ich auch verstanden wie es läuft. :)

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

Strat

2003-10-17 20:43

User since
2003-08-04
5246 Artikel
ModeratorIn

Code: (dl )

use File::Find ();
File::Find::find(
  sub {
    if (-d $_) {
      print "DIR: $File::Find::name\n";
    }
    elsif (-f _) { # kein tippfehler, sondern caching
      print "FILE: $File::Find::name\n";
    }
  }, 
  @rootDirs);

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

betterworld

2003-10-17 20:59

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

Was macht denn der Unterstrich da?

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Strat

2003-10-17 21:50

User since
2003-08-04
5246 Artikel
ModeratorIn

durch das _ werden die daten des letzten stat()'s verwendet, also von -d. Wenn ich bei -f auch $_ schreiben wuerde, kaeme ein weiterer unnoetiger festplattenzugriff zustande...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

betterworld

2003-10-17 22:52

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

Irgendwie lustig... ist das ein Feature der Perl-Syntax oder von -f? Ich haette das syntaktisch gar nicht fuer moeglich gehalten, weil das _ doch praktisch ein bareword ist

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Dubu

2003-10-19 20:55

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

user image

's ist schon logisch so...
$_ -> Default-Skalar @_ -> Default-Array %_ -> Default-Hash (unbenutzt) _ -> Default-Filehandle :)

und dann waeren da noch:
&_ -> Default-Subroutine (nun ja...) *_ -> Default-Glob (grusel... ;))

Crian

2003-10-20 18:32

User since
2003-08-04
5866 Artikel
ModeratorIn

Zum Glück ist der globale Kommentar

#_

ungefährlich ;-)

*duck*

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Dubu

2003-10-20 21:24

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

user image

*LOL* :D