script perl v1.pl

À propos du fichier

Type de fichier

Fichier PL de 2 Ko (text/x-perl)

Confidentialité

Fichier public, envoyé le 14 juin 2017 à 11:57, depuis l'adresse IP 165.225.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 1040 fois depuis l'envoi du fichier

Page de téléchargement

https://www.petit-fichier.fr/2017/06/14/script-perl-v1-pl/   Copier

Aperçu du fichier

#!/usr/bin/perl -w
use strict;
use warnings;
use MIME::Lite;
use Email::Stuffer;


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;
                        }
                    #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;



}

	}
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;
    }


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;
    }



#print "\n";

#sleep(240);
sleep(10);
goto BEGIN;


exit;

Partager le fichier script-perl-v1.pl sur le Web et les réseaux sociaux:

Télécharger le fichier script-perl-v1.pl