Небольшой скрипт

2009-06-28T08:28:00+07:00

Вчера была очередная игра, но я не об этом.
Я написал скрипт для того,чтобы обновлять внешний IP’шник в своём DC++. Предполагается linuxdcpp последних версий. Сильно, думаю, упростит жизнь людям с динамическим IP. Перед использованием проверьте переменные $path и $url

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple; #получение IP
my $path = “.dc++/DCPlusPlus.xml”;#местонахождение собственно конфига
my $url = “http://p2p.kuzbass.net/getip.php”;#адрес, с которого берётся IP. Подойдёт любой стабильный и простой по выводу, как http://whatismyip.ru или http://whatismyip.org. Основной критерий, конечно же, стабильность.
my $ip = get($url) or die($!);
$ip =~ /(\d+.\d+.\d+.\d+)/; $ip = $1;
print “Your IP is: $1\n”;
my $CONFIG, my $BACKUP;
open (CONFIG,$path) or die($!);
open (BACKUP,”>”,$path.”~~”) or die($!);
while (){
s{\d+.\d+.\d+.\d+}{$ip};
print BACKUP;
}
close(CONFIG);
close BACKUP;
exec (“mv $path~~ $path”);