Opened by miodio at 2006-05-31 13:50
User since
2006-05-31
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-05-31
3 Artikel
BenutzerIn
also erstens will ich nur mal schnell anfügen, dass ich diese woche mit perl angefangen hab, deshalb zerreist mich nich.
das script soll die $muh variable in <DIR> folder zerschnipseln, was eigentlich wunderbar funktioniert aber geht das nicht auch einfacher? der code kommt mir ganz schön lang vor.
ach ja, das resultat ist trotzdem nicht ganz zufriedenstellend:
ich weiss leider nur nicht, wie ich das datum entfernen kann. ein paar tipps wären sehr hilfreich.
danke schonmal ;)
das script soll die $muh variable in <DIR> folder zerschnipseln, was eigentlich wunderbar funktioniert aber geht das nicht auch einfacher? der code kommt mir ganz schön lang vor.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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";
my @inhalt = split(/\s+/, $muh);
my $i = 0;
my $g;
my %hash;
my $whatsin;
while ($inhalt[$i]) {
$g = $i + 1;
$whatsin = $inhalt[$i];
if ($whatsin eq '<DIR>') {
%hash = ($inhalt[$i] => $inhalt[$g]);
print "$hash{'<DIR>'}\n";
}
$i++;
}
ach ja, das resultat ist trotzdem nicht ganz zufriedenstellend:
ich weiss leider nur nicht, wie ich das datum entfernen kann. ein paar tipps wären sehr hilfreich.
danke schonmal ;)