Hébergeur de fichiers indépendant

g2a.pl

À propos

Type de fichier
Fichier PL de 3 Ko (text/x-perl)
Confidentialité
Fichier public, envoyé le 27 août 2017 à 19:35, depuis l'adresse IP 82.67.x.x (France)
Sécurité
Ne contient aucun Virus ou Malware connus - Dernière vérification: 2 jours
Statistiques
La présente page de téléchargement a été vue 225 fois depuis l'envoi du fichier
Page de téléchargement

Aperçu du fichier


#!/usr/bin/perl -w
use strict;
use warnings;


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 -B2 "^( )     " | 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");
print "1\n";
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 `;

#$text=`cat prix.txt | cut -c10-40 | head -n 5`;

system("cat prix.txt | cut -c10-40 | head -n 5 > prix2.txt");
system("perl -pe 's/\n/ /g' prix2.txt > prix2-ligne.txt");
system("perl -pe 's/  */%20/g' prix2-ligne.txt > prix20.txt");
$text=`cat prix20.txt`;


chomp $p1;
print "p1 = $p1";
chomp $p2;
print "p2 = $p2";
chomp $p3;
print "p3 = $p3";
chomp $p4;
print "p4 = $p4";
print "pp = $pp";

print "Le texte : ";
print $text;

if ($p1 ne $pp) {
				if ($p1 gt $pp) {
				print "Le prix est supérieur au prix précedent => Montee";
				$pp = $p1;
				$align = 0;
				 system('perl sms.pl "Hausse de Borderland"');
				 system("wget -O - 'https://smsapi.free-mobile.fr/sendmsg?user=10155144&pass=OVoFGFrK2yJJJu&msg=$text'");
				 print"Sms envoyé";
				 goto Fin;
				 
				}
				if ($p1 lt $pp) {
				$pp= $p1;
				print "p1 < pp ; $p1 < $pp";
				$align = 0;
				system('perl sms.pl "Baisse de Borderland"');
				system("wget -O - 'https://smsapi.free-mobile.fr/sendmsg?user=10155144&pass=OVoFGFrK2yJJJu&msg=$text'");
				print"Sms envoyé";
				goto Fin;
				}



}


if ($p1 eq pp) {
			Print "p1 = pp ; $sp1 = $pp";
				
			if ($p1 eq $p2) {
			Print " p1 = p2 ; $p1 = $p2 ";
			if ($align = 0) {
			system('perl sms.pl "Alignement de Borderland"');
			system("wget -O - 'https://smsapi.free-mobile.fr/sendmsg?user=10155144&pass=OVoFGFrK2yJJJu&msg=$text'");
			$align = 1
			Print "align = 1";
			}
			
			}




}

#Envoie du sms
#system("wget -O - 'https://smsapi.free-mobile.fr/sendmsg?user=10155144&pass=OVoFGFrK2yJJJu&msg=$text'");
#system('perl sms.pl "$text"');







Partager le fichier


Télécharger g2a.pl


Télécharger g2a.pl