gnopaste

Sorry for this ugly message. We are searching for some translators.
Please take a look here
Thanks to all translators, you're doing a great job!

Name
Kr4nk3sK1nd
Scriptlanguage
PHP
Tabwidth
4
Date
01/28/2010 11:10:58 pm
IP
77.21.66.253

The user was too lazy to give a description

  1. #!/usr/bin/perl
  3. ####################################
  4. #####################################
  5. # Idea : Kr4nk3sK1nd
  6. # AntiHartz4 Version 1.0
  7. # 2 my little Lady   
  8. # and J0hnX3r + KEKSA ( dein Blog rockt ^^ )
  9. # visit: http://kr4nk3sk1nd.wordpress.com
  10. ########################################
  11. #########################################
  13. use LWP::Simple;
  14.  
  15.     $zeilen=0;
  16. ###########################################
  17. # webseiten.txt so heißt die Datei, wo deine
  18. # deine LINKS gelistet sein müssen!
  19. ############################################
  20.     open (my $in,'<','webseiten.txt');
  21.     while (<$in>){$zeilen++;}
  22.     close $in;
  23.  
  24.     $zeilenanzahl=@zeilen;
  25. ###################################
  26. # Anzahl deiner Links die es prüft
  27. ###################################
  28.     print "Die Datei hat $zeilen Zeilen\n";
  29.  
  30. ## verweise.html dort wird das ergebnis gespeicher ##
  31. open (FILE, ">verweise.html");
  32.     open(webseiten,"webseiten.txt");
  33.     my @array=<webseiten>;
  34.  
  35.  
  36. for($i=0;$i<$zeilen;$i++)
  37. {
  38.     ##### Unten Dein SUCHWORT REIN ############## 
  39.     ###########################################
  40.     ##### WICHTIG! Schreibst du Alles groß muss es  ##
  41.     ##### auf der Internetseite auch groß sein, was  ##
  42.     ##### unwahrscheinlich ist - Also schreibe es,    ##
  43.     ##### wie es geschrieben wird ################
  44.                                                                             ##
  45.     $suchwort ='Bulle'; ### ######################
  46.    
  47.     chop($array[$i]);
  48.     $ergebnis = get $array[$i];
  49.     if(index($ergebnis, $suchwort)!=-1)
  50.     {
  51.         print "*********************************************************\n";
  52.         print "*********************************************************\n";
  53.         print "$array[$i] -> eine Stellenausschreibung scheint vorhanden\n";
  54.         print "*********************************************************\n";
  55.         print "*********************************************************\n";
  56.         print FILE '<a href="';
  57.         print FILE "$array[$i]";
  58.         print FILE '">';
  59.         print FILE "$array[$i]";
  60.         print FILE '</a> - <span style="color:green">HEHE LOS KLICK AN</span><br/>';
  61.     }
  62. else
  63.     {
  64.         print ":( LINK: ";
  65.         $z=$i+1;
  66.         print "$z -> noep - hier ist keine  offene Stelle vorhanden\n";
  67.         print FILE ':( <span style="font-size:0.6em;">';
  68.         print FILE "$array[$i]";
  69.         print FILE '</span> -> noep - hier ist keine vorhanden<br/>';
  70.     }
  71. }
  72. close(webseiten);
  73. close(FILE);
submitter » gnopaster | imprint « imprint     
» Terms of use «


Donate via Bitcoin:
1KCq5UvwuTMwgSAHUsd7eqkBWTHZau1ydN