Discussion :

[virtuaword]

Bonjour à tous,

je suis vraiment débutant en programmation.
Je rencontre parfois un désagrément avec ma box fibre qui change d'adresse IP Publique parfois, pourtant censée être fixe.

Pour connaitre ma nouvelle IP quand je ne suis pas chez moi, j'ai mis en place un script qui m'envoie par mail mon IP.
J'ai une VM en debian qui fait ce travail. Mais comme je ne veux pas être spammé toutes les heures (selon la crontab) avec un mail comportant mon adresse ip, je voudrais avoir un mail seulement si mon adresse IP publique n'est plus celle attendue.

voici le code (avec anonymisation)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl
my $IP = '222.222.222.222';
my $url = 'http://icanhazip.com';
my $html = qx{wget --quiet --output-document=- $url};
print "$IP est IP Attendue\n";
print "$html est l'adresse reelle\n";
# Envoie de l'adresse par mail
if ("$html" != "$IP")
{
$to = 'monID@gmail.com';
$from = 'monID@gmail.com';
$subject = 'IP Email';
$message = $html;
 
open(MAIL, "|/usr/sbin/sendmail -t");
 
# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
# Email Body
print MAIL $message;
 
close(MAIL);
print "Email Sent Successfully\n";
 
} else {
 
print "l'adresse n'a pas changé, pas de mail envoyé\n";
 
}

Ce que j'obtiens à l'exécution du script :

222.222.222.222 est IP Attendue
222.222.222.223 est l'adresse reelle

l'adresse n'a pas changé, pas de mail envoyé

Bon la mise en forme laisse à désirer, j'en conviens.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $url = 'http://icanhazip.com';
my $html = qx{wget --quiet --output-document=- $url};

donne l'adresse IP avec un retour à la ligne.

Je ne sais pas comment faire pour que PERL analyse les deux chaînes présentées.
J'aimerais qu'il analyse deux chaines de caractères et voient si ce sont les même ou pas.

Est-ce que quelqu'un aurait la gentillesse de m'éclairer. Je trouve des choses bien compliquées sur le net pour le moment ?

Merci à vous

Virtua

[disedorgue]

Bonjour,

Pas tout compris, mais peut-être qu'un simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chomp $html;

juste avant ta comparaison suffirait (ici, le but est juste de viré le retour à la ligne de la variable $html )

[dmganges]

Bonjour,
en plus du chomp qui manque et qui est signalé par disedorgue

il te faut faire la comparaison avec ne et non avec != car tu compares des chaines de caractères !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
my $IP = '90.0.14.31';
my $url = 'http://icanhazip.com';
my $html = qx{wget --quiet --output-document=- $url};
chomp $html;
print "$IP est IP Attendue\n";
print "=$html= est l'adresse reelle\n";
# Envoie de l'adresse par mail
if ("$html" ne "$IP")
{
$to = 'monID@gmail.com';
$from = 'monID@gmail.com';
$subject = 'IP Email';
$message = $html;
 
open(MAIL, "|/usr/sbin/sendmail -t");
 
# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
# Email Body
print MAIL $message;
 
close(MAIL);
print "Email Sent Successfully\n";
 
} else {
 
print "l'adresse n'a pas changé, pas de mail envoyé\n";
 
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
michel@Xubuntu1:~/Téléchargements$ perl ess.pl
90.0.14.31 est IP Attendue
=90.0.14.30= est l'adresse reelle
Email Sent Successfully
michel@Xubuntu1:~/Téléchargements$

Bon la mise en forme laisse à désirer, j'en conviens.

Donc je n'en rajoute pas une couche et je ne me suis pas permis de modifier ton code

PS: Je n'ai pas vérifié l'envoi du message...

[virtuaword]

Bonjour,
En effet dans la mesure où c'est une chaine de caractère il faut utiliser ça par ex.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ( $html =~ $IP )

Merci beaucoup !
Maintenant je recevrai un mail dans l'heure qui suivra un changement de mon IP publique par Orange !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl
my $IP = '222.222.222.222';
my $url = 'http://icanhazip.com';
my $html = qx{wget --quiet --output-document=- $url};
print "$IP est l'IP Attendue\n";
print "$html est l'adresse reelle\n";
# Envoie de l'adresse par mail
if ( $html =~ $IP )
{
print "L'adresse IP n'a pas changé, pas de mail envoyé\n";
 
} else {
 
$to = 'monID@gmail.com';
$from = 'monID@gmail.com';
$subject = 'IP Email';
$message = $html;
 
open(MAIL, "|/usr/sbin/sendmail -t");
 
# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
# Email Body
print MAIL $message;
 
close(MAIL);
print "Email Sent Successfully\n";
 
}

output :

root@debian:
222.222.222.223 est l'IP Attendue
222.222.222.222
est l'adresse reelle
Email Sent Successfully
root@debian:
222.222.222.222 est l'IP Attendue
222.222.222.222
est l'adresse reelle
L'adresse IP n'a pas changé, pas de mail envoyé

Bon je n'ai pas réussi à retirer le retour ligne que je choppe de icanhazip.com mais c'est fonctionnel.
Je me demande si ce n'est pas ce retour ligne qui empechait la comparaison.

Je vais apprendre la différence entre =~ et !=
Il faut que je révise le chomp aussi !!
@ une prochaine,

Merci encore !

Cordialement,
Virtua

[dmganges]

Attention =~ est un opérateur d'expression régulière :
Un peu de doc : chapitre VIII

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ( $html =~ $IP )

Tu testes si la totalité de la chaîne $html est contenue dans la chaîne $IP

SI $IP = '222.222.222.222';
ET SI $html = '222.222.222.22';

Le test retournera la valeur VRAIE

Ce n'est pas ce que tu attends !

Dans ton cas, ça s'appelle un coup de bol

[virtuaword]

Salut,
Je vais lire le chapitre trois.
J'avais en effet aperçu un truc dans le genre.
Quand Orange me change d'adresse IP ça change plus que ça mais en effet ça n'est pas parfait.
Je vais voir ce que je peur mettre pour parfaire mon script.
Et oui je débute

Merci pour ta précision !

Cordialement,
Virtua

UPDATE : avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ( $html eq $IP )

c'est mieux !!

thx
Virtua

Attention =~ est un opérateur d'expression régulière :
Un peu de doc : chapitre VIII

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ( $html =~ $IP )

Tu testes si la totalité de la chaîne $html est contenue dans la chaîne $IP

SI $IP = '222.222.222.222';
ET SI $html = '222.222.222.22';

Le test retournera la valeur VRAIE

Ce n'est pas ce que tu attends !

Dans ton cas, ça s'appelle un coup de bol

[dmganges]

Salut,
Et oui je débute

Nous sommes tous passés par là, heureusement

[disedorgue]

Sauf dans les SSII où l'on commence tous par la case expert

[dmganges]

Sauf dans les SSII où l'on commence tous par la case expert

Je suis trop vieux pour y croire à celle-là
Et il parait que l'expérience n'éclaire que le chemin parcouru
Ben moi quand je me retourne, je n'y vois RIEN