Opened by thomase at 2006-05-09 15:57
User since
2006-05-09
4 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-05-09
4 Artikel
BenutzerIn
Hallo Renee,
das Script läuft jetzt ohne Fehler durch, als Ausgabe bekomme ich:
D:\Test3>test.pl
$VAR1 = [];
Das Script habe ich bei mir mit dem Directory angepasst und es sieht so aus:
Als Testdatei habe ich dieses Listing genommen:
Feld1: Testtext1
Feld2: ...
.
.
.
.
Feld 13: Testtext 13
Testtext 14
Testtext 15
Feld 14 usw...
Irgendwelche Ideen? Und nochmals Danke an alle für eure gute und schnelle Unterstützung
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|thomase|1147203997-->
das Script läuft jetzt ohne Fehler durch, als Ausgabe bekomme ich:
D:\Test3>test.pl
$VAR1 = [];
Das Script habe ich bei mir mit dem Directory angepasst und es sieht so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $dir = 'd:\\test';
{
opendir(DIR,$dir) or die $!;
my @files = grep{$_ !~ /\.?\./}readdir(DIR);
closedir DIR;
local $/ = "\nFeld";
my @array;
for my $file(@files){
my %hash;
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){
chomp $line;
my ($nr) = $line =~ /^\s*(\d+)/;
$hash{$nr} = $line;
}
close $fh;
push @array,\%hash;
}
@array = sort{$a->{1} cmp $b->{1}}@array;
print Dumper(\@array);
}
Als Testdatei habe ich dieses Listing genommen:
Feld1: Testtext1
Feld2: ...
.
.
.
.
Feld 13: Testtext 13
Testtext 14
Testtext 15
Feld 14 usw...
Irgendwelche Ideen? Und nochmals Danke an alle für eure gute und schnelle Unterstützung
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|thomase|1147203997-->