Opened by Paul at 2006-09-11 16:00
User since
2006-09-11
179 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-09-11
179 Artikel
BenutzerIn
[quote=Dubu,11.Sep..2006, 22:47]Ich schlage eher vor, das ganze ohne Tie::File zu machen. (Wenn man eine Datei nur linear durchsucht, sehe ich ohnehin keinen Vorteil in Tie::File.)
Ersetze check_log_file durch den folgenden Code:
Ist auch nicht länger und (wie ich finde) mindestens genauso übersichtlich.[/quote]
und der paul der muss kein tie::file installieren ;) sehr schoen
Ersetze check_log_file durch den folgenden Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
sub check_log_file{
my ($dir,$name) = @_;
open my $file, '<', "$dir/$name" or die $!;
while (defined (my $line = <$file>)) {
if($line =~ /kein (?:PDF|TIFF)/){
print "Fehler gefunden\n";
return 0;
}
}
return 1;
}Ist auch nicht länger und (wie ich finde) mindestens genauso übersichtlich.[/quote]
und der paul der muss kein tie::file installieren ;) sehr schoen
mmm twix