Opened by miodio at 2006-05-31 13:50
User since
2004-02-19
1750 Artikel
BenutzerIn
2004-02-19
1750 Artikel
BenutzerIn
kürzer geht's schon, ist nur die frage ob das dann einfacher zu versetehen ist. ich würde das folgendermassen lösen (wenn ich jetzt die anforderungen richtig verstanden habe):
du solltest als nächstes evtl. mal was über Reguläre Ausdrücke lesen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
use warnings;
use strict;
my $muh = "10-22-03 10:04AM 3815 bitte_lesen.txt05-30-06 02:36PM <DIR> database04-06-05 01:53PM 68924 desk.JPG05-07-05 05:07PM 159808 KNAPP.JPG05-01-06 12:52AM <DIR> logfiles02-08-06 10:14PM <DIR> public_html12-19-05 01:01AM <DIR> stats";
for my $file ( $muh =~ /<DIR>\s*([\w.-]+)/g ) {
$file =~ s/\d\d-\d\d-\d\d$//;
print "$file\n";
}
du solltest als nächstes evtl. mal was über Reguläre Ausdrücke lesen.
$_=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