Исходное сообщение
"perl подстроки" Отправлено XAnder, 22-Ноя-12 16:37
>> Начни с чтения какой ни то книжки про програмлянию. Для начала 10 >> подходов ао 2 часа. Много думать -- обязательно! > А может вот так > ... Книжки всё-таки надо почитать. И думать, да. А потом уже кодить. Но тут-то делать особо нечего: $ cat > ips 192.168.100.120 172.31.25.12 $ cat ips | perl -e 'while (<>) {chomp; push @ips, $_; s/.*\.//; push @last, $_;} $,="\n"; print "= ips =", @ips, "= last =", @last, "";' = ips = 192.168.100.120 172.31.25.12 = last = 120 12 $ _

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>> Начни с чтения какой ни то книжки про програмлянию. Для начала 10 >>> подходов ао 2 часа. Много думать -- обязательно! >> А может вот так >> ... > Книжки всё-таки надо почитать. И думать, да. А потом уже кодить. Но > тут-то делать особо нечего: > [code]$ cat > ips > 192.168.100.120 > 172.31.25.12 > $ cat ips | perl -e 'while (<>) {chomp; push @ips, $_; > s/.*\.//; push @last, $_;} $,="\n"; print "= ips =", @ips, "= > last =", @last, "";' > = ips = > 192.168.100.120 > 172.31.25.12 > = last = > 120 > 12 > $ _[/code]
	Введите код, изображенный на картинке: