Opened by Fabian at 2010-01-05 14:09
User since
2004-02-19
1750 Artikel
BenutzerIn
2004-02-19
1750 Artikel
BenutzerIn
Evtl. passen die Dateinamen nicht auf deinen Regex, weil sie anders aussehen als du glaubst. Z.B. könnte ein Leerzeichen am ende des Namens ein Problem sein, so was übersieht man leicht.
Auch möglich aber m.E. unwahrscheinlicher ist, dass der Filehandle DIR noch woanders benutzt wird und das dein Programm durcheinander bringt. So was kann man umgehen, indem man s.g. Lexikalische Filehandles benutzt, etwa so:
Auch möglich aber m.E. unwahrscheinlicher ist, dass der Filehandle DIR noch woanders benutzt wird und das dein Programm durcheinander bringt. So was kann man umgehen, indem man s.g. Lexikalische Filehandles benutzt, etwa so:
Code (perl): (dl
)
1 2 3 4
opendir (my $dir, $Unterverzeichnis) || die &error("Couldn´t open File: $ziel_verzeichnis \n" , 1); my @zippeintraege = grep{/$filter/} readdir($dir); closedir $dir;
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B