programmeperl.pl
À propos du fichier
- Type de fichier
- Fichier PL de 3 Ko (text/x-perl)
- Confidentialité
- Fichier public, envoyé le 16 juin 2017 à 16:42, depuis l'adresse IP 165.225.x.x (France)
- Sécurité
- Ne contient aucun Virus ou Malware connus - Dernière vérification: 5 heures
- Statistiques
- La présente page de téléchargement a été vue 501 fois depuis l'envoi du fichier
- Page de téléchargement
-
Aperçu du fichier
#!/usr/bin/perl -w
use strict;
use warnings;
use Email::Stuffer;
my $msg;
my $text;
my $pp=100;
my $align=0;
BEGIN:
#On recupere la page web avec les prix
system("phantomjs save_page.js https://www.g2a.com/borderlands-2-goty-steam-cd-key-global1.html > Borderlands.html");
sleep(16);
#Ensuite on creer notre fichier texte avec le prix et le nom des joueurs
system ('w3m -dump Borderlands.html | grep -B4 % | grep -B4 "^( ) " | grep -v "-" > prix.txt');
sleep(8);
#On creer ensuite un autre fichier avec juste les prix
system("cat prix.txt | grep -o '.[0-9]\,[0-9][0-9]' > prixliste.txt");
sleep(4);
#Lecture du fichier
system("perl -pe 's/\n/ /g' prixliste.txt > prixligne.txt");
my $p1 = `cat prixligne.txt | cut -c1-5 | sed 's/ //g'`;
my $p2 = `cat prixligne.txt | cut -c7-11 | sed 's/ //g'`;
my $p3 = `cat prixligne.txt | cut -c13-17 | sed 's/ //g'`;
my $p4 = `cat prixligne.txt | cut -c19-23 | sed 's/ //g'`;
$text=`cat prix.txt `;
chomp $p1;
chomp $p2;
chomp $p3;
chomp $p4;
if ($p1 ne $pp) {
if ($p1 gt $pp){
# print "$pp est plus grand que $p1";
$pp=$p1;
$align=0;
Email::Stuffer
->text_body($text)
->subject('HAUSSE DE PRIX BORDERLANDS')
->from('Linux SRV <projet.chibani@gmail.com>')
->to('BO2 <projet.chibani@gmail.com>')
->send;
goto FIN;
}
#print "\n";
if ($p1 lt $pp){
# print "$p1 est plus grand que $pp";
$pp=$p1;
$align=0;
Email::Stuffer
->text_body($text)
->subject('BAISSE DE PRIX BORDERLANDS')
->from('Linux SRV <projet.chibani@gmail.com>')
->to('BO2 <projet.chibani@gmail.com>')
->send;
goto FIN;
}
}
#if ($pp eq $p1){
# print "Meme prix";
# }
if ($p1 eq $p2){
# print "$pp est plus grand que $p1";
if($align==0){
$pp=$p1;
Email::Stuffer
->text_body($text)
->subject('ALIGNEMENT BORDERLANDS')
->from('Linux SRV <projet.chibani@gmail.com>')
->to('BO2 <projet.chibani@gmail.com>')
->send;
$align=$align+1;
#print $align;
goto FIN;
}
}
if ($p1 eq $p3){
# print "$pp est plus grand que $p1";
if($align==0){
$pp=$p1;
Email::Stuffer
->text_body($text)
->subject('ALIGNEMENT BORDERLANDS')
->from('Linux SRV <projet.chibani@gmail.com>')
->to('BO2 <projet.chibani@gmail.com>')
->send;
$align=$align+1;
goto FIN;
}
}
FIN:
#print "\n";
#sleep(240);
sleep(10);
goto BEGIN;
exit;
Partager le fichier programmeperl.pl sur le Web et les réseaux sociaux:
Télécharger le fichier programmeperl.pl
Télécharger programmeperl.pl