Opened by sabrina at 2006-08-25 14:49
User since
2006-08-03
264 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-08-03
264 Artikel
BenutzerIn
@Crian
funzt nicht kommen nur was wenn ich das print weglasse aber dann kommt das gleiche wie ohne dieses push
also keine aenderung :(
liegt es vielleicht an dem alten code habe hier mal mehr vom code:
hab auch schon beide push zusammen geschrieben, keine aenderung.
@GwenDragon
hab + (kommt min 1mal bis oefter vor)
ersetzt mit (\b bla \b)ersetzt dann kommt nur bla und nicht blabla stimmts? danke haette es nicht gemerkt
Code: (dl
)
push @new, $_ if /BRIN|SAGEF403/;
funzt nicht kommen nur was wenn ich das print weglasse aber dann kommt das gleiche wie ohne dieses push
also keine aenderung :(
liegt es vielleicht an dem alten code habe hier mal mehr vom code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
while( defined (my $line = <FH>) )
{
chomp $line;
push my @new, $_ if /\bBRIN|SAGEF403\b/;
my @array = (split(/[\t\s\\]/,$line))[0..($columns1)];
foreach (@array) {
s/^\s+/;/g;
s/\s+$/;/g;
} # foreach
push(@data,[@array]);
} # while
print "new: @new\n";
close (FH);
hab auch schon beide push zusammen geschrieben, keine aenderung.
@GwenDragon
hab + (kommt min 1mal bis oefter vor)
ersetzt mit (\b bla \b)ersetzt dann kommt nur bla und nicht blabla stimmts? danke haette es nicht gemerkt