Hébergeur de fichiers indépendant

Bo2.pl

À propos

Type de fichier
Fichier PL de 4 Ko (text/x-perl)
Confidentialité
Fichier public, envoyé le 25 juin 2017 à 17:43, depuis l'adresse IP 90.92.x.x (France)
Sécurité
Ne contient aucun Virus ou Malware connus - Dernière vérification: hier
Statistiques
La présente page de téléchargement a été vue 240 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;
					system('perl sms.pl hausse de prix borderland');
                     #       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;

						system('perl sms.pl baisse de prix borderland');

                     #   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;
						system('perl sms.pl Alignement 1 Borderland');

                        #    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;
						system('perl sms.pl Alignement 2');

                         #   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


Télécharger Bo2.pl


Télécharger Bo2.pl