Rekursive Hilfe gebraucht.: rekursives lesen von dateien (Allgemeines zu Perl)

hydejackler

2003-11-20 00:16

User since
2003-11-19
2 Artikel
BenutzerIn
[default_avatar]

hi,
als relatives newby hab ich ein Problem.
Ich möchte gerne rekursiv ganze Verzeichnisszweige auslesen und die darin enthaltenen Dateien zB auf größe testen. Da ich mich genau erinnere mal ein shellscript gesehen zu haben, das dies konnte, weiß ich das es auch mit perl unter Win32 gehen muss. Aber ich bekomme es nicht mehr zusammen. Jammer, wer hilft?

Danke Jack.

Relais

2003-11-20 00:33

User since
2003-08-06
2244 Artikel
ModeratorIn

File::Find sollte Dir helfen ;-)

Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

Strat

2003-11-20 02:11

User since
2003-08-04
5246 Artikel
ModeratorIn

z.B.

Code: (dl )

#! /usr/bin/perl
use warnings;
use strict;
use File::Find;

my @startDirs = qw(c:/temp d:/irgendwas);
&File::Find::find(
  sub {
    if (-f $_) {
      my $size = -s _; # _ ist kein tippfehler, sondern caching vom -f
      print "$size: $File::Find::name\n";
    }
  }, @startDirs);

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

hydejackler

2003-11-20 22:12

User since
2003-11-19
2 Artikel
BenutzerIn
[default_avatar]

Danke, geht ... und obendrein hab ich noch was zu rätzeln (nämlich wieso?)

Strat

2003-11-21 13:41

User since
2003-08-04
5246 Artikel
ModeratorIn

wenn du was nicht verstehst, frag einfach

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

Crian

2003-11-21 16:09

User since
2003-08-04
5866 Artikel
ModeratorIn

Weil File::Find eine sehr eigenartige Benutzerschnittstelle hat?

*rätsel*

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

esskar

2003-11-21 18:19

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Crian,21.11.2003, 15:09]Weil File::Find eine sehr eigenartige Benutzerschnittstelle hat?

*rätsel*[/quote]
wieso... man gibt ne callback funktion mit...
ist doch ok!

Crian

2003-11-22 21:39

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich rätselte nur, was er an Problemen haben könnte... und dazu fiel mir ein, dass File::Find etwas gewöhnungsbedürftig ist.

Natürlich ist die Benutzung kein Problem, wenn man weiß, wie es geht... ^^

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