Opened by Iggy86 at 2012-08-01 09:19
User since
2012-07-26
41 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-07-26
41 Artikel
BenutzerIn
hallo raubtier,
habe es so gemacht, wie du es vorgeschlagen hast.
leider funktioniert es nicht. es gibt aus, dass es in keiner zeile etwas findet.
habe es so gemacht, wie du es vorgeschlagen hast.
leider funktioniert es nicht. es gibt aus, dass es in keiner zeile etwas findet.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open(my $IN,'<'.$f) || die "Can not open file $datei: $!";
while(<$IN>){
$n=$n+1;
printf "$n.)$_";
$t = $_;
if (grep{/\Q$t/} @searchstring)
{
print "\nfound in $f in $z\n\n"
}
else
{
print "\nnot found @searchstring in $_\n"
}
}
close $IN;
}