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";

}