Webanalyse: Die Suche nach toten Links
Listing
#!/usr/bin/perl
# written by Juergen Donauer
# no copyright on this script and also NO WARRANTY
# feel free to use and change it as you like
use strict;
my @sort_krit = ();
my @text_block = ();
my @exclude = ("Check Time", "Name", "Info");
my $file1 = "<Dateiname der Ergebnisdatei>";
my $sort_krit = "Result";
my $exclude = 0;
open (FILE1, "<$file1") or die "cannot open $file1!";
while (my $line = <FILE1>) {
chomp;
if ($line =~ /^($sort_krit)/) {
if (grep /^($line)$/, @sort_krit) {
}
else {
push (@sort_krit, $line);
}
}
}
close (FILE1);
foreach my $s (@sort_krit) {
print $s;
print "===============================================\n\n";
open (FILE1, "<$file1") or die "cannot open $file1!";
while (my $line = <FILE1>) {
chomp;
if ($line =~ /^[A-Z]/i) {
# foreach my $e (@exclude) {
# if ($line =~ /^($e)/) {$exclude = 1;}
# }
# if ($exclude == 0) {push (@text_block, $line);}
push (@text_block, $line);
if ($s eq $line) {
for (my $i=0;$i<@text_block-1;$i++) {
if ($text_block[$i] =~ /^($exclude[0]|$exclude[1]|$exclude[2])/) {}
else {print $text_block[$i];}
}
print "\n";
}
}
else {
@text_block = ();
$exclude = 0;
}
}
close (FILE1);
print "\n\n";
}