ultime1.txt
À propos
- Type de fichier
- Fichier TXT de 4 Ko (text/x-perl)
- Confidentialité
- Fichier public, envoyé le 15 juin 2017 à 15:12, depuis l'adresse IP 165.225.x.x (France)
- Sécurité
- Ne contient aucun Virus ou Malware connus - Dernière vérification: 3 jours
- Statistiques
- La présente page de téléchargement a été vue 226 fois depuis l'envoi du fichier
- Page de téléchargement
-
Aperçu du fichier
#!/usr/bin/perl -w
use strict;
use warnings;
use MIME::Lite;
use Email::Stuffer;
use Mail::Sendmail;
my $msg;
my $text;
my $pp=100;
BEGIN:
system("phantomjs save_page.js https://www.g2a.com/borderlands-2-goty-steam-cd-key-global1.html > Borderlands.html");
sleep(16);
system ('w3m -dump Borderlands.html | grep -B4 % | grep -B4 "^( ) " | grep -v "-" > prix.txt');
sleep(8);
system("cat prix.txt | grep -o '.[0-9]\,[0-9][0-9]' > prixliste.txt");
sleep(4);
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;
# Email::Stuffer
# ->text_body($text)
# ->subject('HAUSSE DE PRIX BORDERLANDS')
# ->from('Linux SRV <projet.chibani@gmail.com>')
# ->to('Foo <projet.chibani@gmail.com>')
# ->send;
}
#
%mail = ( To => 'projet.chibani@gmail.com',
From => 'pixon@pixon.com',
Message => $msg
);
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
#
#print "\n";
if ($p1 lt $pp){
# print "$p1 est plus grand que $pp";
$pp=$p1;
#Email::Stuffer
#->text_body($text)
#->subject('BAISSE DE PRIX BORDERLANDS')
#->from('Linux SRV <projet.chibani@gmail.com>')
#->to('BO2 <projet.chibani@gmail.com>')
#->send;
#
%mail = ( To => 'projet.chibani@gmail.com',
From => 'pixon@pixon.com',
Message => $msg
);
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
#
}
}
if ($pp eq $p1){
}
if ($p1 eq $p2){
$pp=$p1;
# Email::Stuffer
#->text_body($text)
#->subject('ALIGNEMENT BORDERLANDS')
#->from('Linux SRV <projet.chibani@gmail.com>')
#->to('Foo <projet.chibani@gmail.com>')
#->send;
#
%mail = ( To => 'projet.chibani@gmail.com',
From => 'pixon@pixon.com',
Message => $msg
);
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
#
}
if ($p1 eq $p3){
$pp=$p1;
# Email::Stuffer
#->text_body($text)
#->subject('ALIGNEMENT BORDERLANDS')
#->from('Linux SRV <projet.chibani@gmail.com>')
#->to('Foo <projet.chibani@gmail.com>')
#->send;
#
%mail = ( To => 'projet.chibani@gmail.com',
From => 'pixon@pixon.com',
Message => $msg
);
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
#
}
#print "\n";
#sleep(240);
sleep(10);
goto BEGIN;
exit;
Partager le fichier
Télécharger ultime1.txt
Télécharger le fichier (4 Ko)