print "$1.$2.$3.$4\n"; а так короче Code: if ('inet addr:127.0.0.1 Mask:255.0.0.0' =~ m/addr\:(.*?) /){ print "$1\n";}
С регуляркой вроде понятно, а вот с перименными $1,$2 ... не совсем. Поясните пожалуйста или киньте ссылкой.
Подскажите пожалуйста,с чего начать в изучении Perl и нету каких ни будь статей на тему регулярных выражений?Я с этим языком сталкиваюсь в первый раз,поэтому нужны понятные статейки для начинающих.
Стыдно признаться, но очень туго у меня с регулярными выражениями. Помогите составить выражение для проверки в строке более 3 пробелов (в любом месте строки как разделитель между словами). Чтобы было так: "this is test" = ок "this is test test" = fail "this[Более 1 пробела]is[Более 1 пробела]test" = ok Был бы очень признателен. А если с обьяснением, то вообще было бы прекрасно. perl.
скажите, почему это не срабатывает? PHP: perl -MMIME::Base64 -e 'eval { decode_base64("d2hpbGUoMSl7IHByaW50IDE7IH0=")} ' поддержка base64 в перле есть. версия 5.8.9 без base64 eval работает нормально decode_base64 вроде возвращает строку
действительно но почему тогда все примеры в мане с такими скобками? http://perldoc.perl.org/functions/eval.html и вот это работает: PHP: perl -e 'eval{while(1){print 1}}'
Дикс eval{ -Выполняет код внутри блока, не принимает строку decode_base64 -возвращает строку eval( принимает код(строку) внутри скобок либо из переменной $_ Code: sub base{ return 'print '."@_"; } &base('1');eval();#не работает eval(&base('2'));#работает $_=&base('3');eval();#работает eval{&base('4')};#не работает так как выполняет код внутри блока не принимает строку из &base eval{eval(&base('5'))};#eval выполнит код eval(&base(
Ребят, подскажите: хочу поставить модуль для перла, но он не ставится по причине того, что нет NMAKE. Нашёл у себя на компе файлики nmake.exe, но они выдают ошибку u1064 MAKEFILE not found... у меня win7 x64 стоят vs2008 и vs2010 и winsdk.
пытаюсь запустить пример на сокетах, который должен скачать веб-страницу у меня и на сервере все виснет на строке "my $iaddr = inet_aton($host);" что не так? PHP: use strict; use warnings; use Socket; my $host = "www.perl.ru"; my $port = "80"; socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')); my $iaddr = inet_aton($host); my $paddr = sockaddr_in($port, $iaddr); connect(SOCK, $paddr); send (SOCK, "GET / HTTP/1.0\n\n", 0); my @data=<SOCK>; close(SOCK); print @data;
действительно а почему не резолвится google.ru? что не так со скриптом? может есть более универсальные примеры на сокетах? хочу обойтись без UserAgent
