Opened by tuturutka at 2006-02-17 18:21
User since
2006-01-17
7 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-01-17
7 Artikel
BenutzerIn
Ja, das mit $vor=~$elem habe ich gesehen, nachdem ich die Frage geschrieben habe. Ich glaube, es sollte $vor=~"$elem" sein. Vielleicht muss ich meinen Datenstruktur zeigen
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
$/="</tr>";
my $testfile;
my @multiarray=();
my @character=();
$testfile = $ARGV[0];
open (FILE, $testfile)or die "Kann FILE nicht geoeffnet werden\n";
while (my $in1 = <FILE>){
chomp ($in1);
my @array= split(/\n/,$in1);
my @character =();
foreach $in1 (@array) {
if ($in1=~ /Arial\">(.*?)<\/font>/gio) {
push @character,$1;
}
}
push @multiarray, [@character];
}
close (FILE) or die "Kann FILE nicht geschlossen werden!\n";