Re: Узнать белый IP
On 14.03.09 0316 (+0300), Mironov Pavel wrote:
> On Fri, Mar 13, 2009 at 03:47:51PM +0300, Mironov Pavel wrote:
> > On Fri, Mar 13, 2009 at 11:12:34AM +0300, DamirX wrote:
> > > Hi, All!
> > > Вопрос немного глуповатый.
> > > Как на машине за натом узнать белый адрес. Что-нибудь экстремально
> > > простое, чтоб не парсить http://2ip.ru/ Консольное.
> > >
> > > --
> > > DamirX
> >
> > Пишешь
> > elinks https://check.torproject.org/?lang=ru
> > и вот твой ip
> >
>
> Да, что-то "очень умное" я написал. Что значит тяпцица :)
> Вот пара вариантов. Кто сделает короче?
wget -q http://myip.ru -O - | grep -E "([0-9]{1,3}\.){3}[0-9]{1,3}" | sed 's/[^0-9\.]//g'
=)
> --
> С уважением,
> П.Миронов
>
> 1 #!/usr/bin/perl -w
> 2 #
> 3 #
> 4 use strict;
> 5 use warnings;
> 6
> 7 my $url = "https://check.torproject.org/?lang=ru";;
> 8 my $url2 = "http://myip.ru";;
> 9 my $reg_ip = '((\d{1,2}|1\d{2}|2[0-4]\d|25[0-5])\.){3}(\d{1,2}|1\d{2}|2[0-4]\d{1}|25[0-5])';
> 10
> 11 ### в данном случае достаточно этого варианта
> 12 #
> 13 my @fc = `curl -s $url`;
> 14 for (@fc) {
> 15 if (/($reg_ip)\D+?/) {
> 16 print $1 , "\n";
> 17 }
> 18 }
> 19
> 20 print "------------------\n";
> 21
> 22 ### второй вариант достает все ip из файла
> 23 #
> 24 my @fc2 = "92.76.190.222 cc vvv nn 92.76.190.235 fghdu 92.76.190.236";
> 25 # my @fc2 = `curl -s $url2`;
> 26 my @list_ip;
> 27 for (@fc2) {
> 28 while (/.*?($reg_ip)(\D|$)+?/g) {
> 29 @list_ip = (@list_ip, $1);
> 30 }
> 31 }
> 32
> 33 print "$_\n" for @list_ip;
> 34
>
>
>
> --
> To UNSUBSCRIBE, email to debian-russian-REQUEST@lists.debian.org
> with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org
>
--
Best regards,
Vasily Ivanov mailto:<caesar@academ.org>
Reply to: