Nos partenaires et nous-mêmes utilisons différentes technologies, telles que les cookies, pour personnaliser les contenus et les publicités, proposer des fonctionnalités sur les réseaux sociaux et analyser le trafic. Merci de cliquer sur le bouton ci-dessous pour donner votre accord. Vous pouvez changer d’avis et modifier vos choix à tout moment. Informations RGPD
#!/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"');