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-requ...@lists.debian.org > with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org > -- Best regards, Vasily Ivanov mailto:<cae...@academ.org> -- To UNSUBSCRIBE, email to debian-russian-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
