Opened by Paul at 2006-09-11 16:00
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
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.
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.