Zestaw 5

#!/usr/bin/perl -w

use utf8;
use LWP::Simple;

sub WyciagnijTekst{
    $scalar=~ s/<script[^>]+>(.+?)<\/script>//gs;
    $scalar=~ s/<[^>]+>//g;
    $scalar=~ s/-->//g;
    $scalar=~ s/&[^\s]+//g;
    $scalar=~ s/[\s]{2,}/\n/g;
}

sub NazwaFolderu(){
    $nazwa_folderu=$strony[$i];
    chomp($nazwa_folderu);
    $nazwa_folderu=~ s/http:\/\///g;
    $nazwa_folderu=~ s/\./-/g;
}

$i=0;
do{
    print "Podaj strony do przeszukania (http://...):";
    $dane=<STDIN>;
    $strony[$i]=$dane;
    $i+=1;
}until($dane=~ /^koniec$/);

$ostatni=@strony;
delete $strony[$ostatni-1];
$ostatni=@strony;

for($i=0;$i<$ostatni;$i++){
    NazwaFolderu();
    mkdir($nazwa_folderu, 0755) if (! -d $nazwa_folderu);
    print "Utworzono folder $nazwa_folderu\n";

    $status = getstore($strony[$i], "./$nazwa_folderu/strona_glowna");
    unless (is_success($status)){
    die "Nie udało się przekierować kodu zrodlowego strony glownej do pliku: $strony[$i]\n ";}

    open($th,"./$nazwa_folderu/strona_glowna") or die "Nie moge otworzyc pliku dla adresu $strony[$i]!";
    binmode($th, ":utf8" );
    local $/=undef;
    $scalar=<$th>;
    close $th;

    open($th,">./$nazwa_folderu/strona_glowna") or die "Nie moge otworzyc pliku dla adresu $strony[$i]!";
    binmode($th, ":utf8" );
    WyciagnijTekst();
    print $th $scalar;
    close $th;

    open($th,'<',"./$nazwa_folderu/strona_glowna") or die "Nie moge otworzyc pliku dla adresu $strony[$i]!";
    binmode($th, ":utf8" );
    local $/=undef;
    $tekst=<$th>;

    open($th2,'>',"./$nazwa_folderu/slowa") or die "Nie moge otworzyc pliku z slowami dla adresu $strony[$i]!";
    binmode($th2, ":utf8" );

    @slowa=$tekst =~ /[^\.\-\?!,\+:;\[\]\(\)\=\'\s]+/g;
    foreach $zmienna(@slowa){
    print $th2 $zmienna."\n";
    }

    open($th3,'>',"./$nazwa_folderu/licznik_slow") or die "Nie moge otworzyc pliku z slowami dla adresu $strony[$i]!";
    binmode($th3, ":utf8" );

    foreach $zmienna(@slowa){
    $licznik_powtorzen=0;
    $licznik_powtorzen=$tekst=~ s/$zmienna//gi;

        if($licznik_powtorzen!=0){
        print $th3 "słowo:\t".$zmienna."\t\tilość powtórzeń:\t".$licznik_powtorzen."\n";
        }
    }

    close $th3;
    close $th2;
    close $th;
}

print "Wykonane!\n"