gnopaste

#!/usr/bin/perl

####################################
#####################################
# Idea : Kr4nk3sK1nd
# AntiHartz4 Version 1.0
# 2 my little Lady   
# and J0hnX3r + KEKSA ( dein Blog rockt ^^ )
# visit: http://kr4nk3sk1nd.wordpress.com
########################################
#########################################

use LWP::Simple;

    $zeilen=0;
###########################################
# webseiten.txt so heißt die Datei, wo deine
# deine LINKS gelistet sein müssen!
############################################
    open (my $in,'<','webseiten.txt');
    while (<$in>){$zeilen++;}
    close $in;

    $zeilenanzahl=@zeilen;
###################################
# Anzahl deiner Links die es prüft
###################################
    print "Die Datei hat $zeilen Zeilen\n";

## verweise.html dort wird das ergebnis gespeicher ##
open (FILE, ">verweise.html");
    open(webseiten,"webseiten.txt");
    my @array=<webseiten>;


for($i=0;$i<$zeilen;$i++)
{
    ##### Unten Dein SUCHWORT REIN ############## 
    ###########################################
    ##### WICHTIG! Schreibst du Alles groß muss es  ##
    ##### auf der Internetseite auch groß sein, was  ##
    ##### unwahrscheinlich ist - Also schreibe es,    ##
    ##### wie es geschrieben wird ################
                                                                            ##
    $suchwort ='Bulle'; ### ######################
   
    chop($array[$i]);
    $ergebnis = get $array[$i];
    if(index($ergebnis, $suchwort)!=-1)
    {
        print "*********************************************************\n";
        print "*********************************************************\n";
        print "$array[$i] -> eine Stellenausschreibung scheint vorhanden\n";
        print "*********************************************************\n";
        print "*********************************************************\n";
        print FILE '<a href="';
        print FILE "$array[$i]";
        print FILE '">';
        print FILE "$array[$i]";
        print FILE '</a> - <span style="color:green">HEHE LOS KLICK AN</span><br/>';
    }
else
    {
        print ":( LINK: ";
        $z=$i+1;
        print "$z -> noep - hier ist keine  offene Stelle vorhanden\n";
        print FILE ':( <span style="font-size:0.6em;">';
        print FILE "$array[$i]";
        print FILE '</span> -> noep - hier ist keine vorhanden<br/>';
    }
}
close(webseiten);
close(FILE);