OLEX Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Смежная тема регулярные выражения в Perl     Было Всего записей: 3591 | Зарегистр. 09-07-2002 | Отправлено: 03:52 30-08-2005 | Исправлено: Cheery, 18:37 27-02-2008

arreke Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Да хоть вот так, в зависимости от того, что вам надо   чё то не помогло требуется собственно чтобы в этом тексте   Код:   <input type='text' name='name_login' size=20 value='$_[1]'>   <input type='text' name='name_pass' size=20 value=''$_[2]''>     вместо значений $_[...] встали значения соответствующих переменных чтобы после вызова этой функции:   Код: print_file("login.txt", "root", "blabla");   получить такой результат:   Код:   <input type='text' name='name_login' size=20 value='root'>   <input type='text' name='name_pass' size=20 value=''blabla''>   Всего записей: 98 | Зарегистр. 11-01-2007 | Отправлено: 22:45 15-02-2009 | Исправлено: arreke, 22:53 15-02-2009

CheRt Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору arreke, так сразу и надо было писать, а не абстрактно:   Код:   print_file("login.txt", "root", "blabla");       sub print_file   {       open F, "$_[0]" or die "Can't open $_[0] : $!";       while (<F>) {         chomp;         s/\$_\[(\d+)\]/$_[$1]/;           print "$_\n";       }       close F;   }     ---------- В огне бода нет и не будет! До встречи в СССР 2.0! Всего записей: 1118 | Зарегистр. 14-12-2001 | Отправлено: 23:14 15-02-2009

arreke Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору CheRt   Спасибо. Выручил. Жаль нельзя плюсик за положительный ответ поставить. Всего записей: 98 | Зарегистр. 11-01-2007 | Отправлено: 08:32 16-02-2009

arreke Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 2CheRt   снова проблема если в тексте переменная встречается несколько раз то второй раз она уже воспринимается не как переменная например при таком тексте   Код:   <input type='text' name='name_login' size=20 value='$_[1]'>   <input type='text' name='name_pass' size=20 value='$_[2]'> <input type='text' name='name_code' size=20 value='$_[1]'>       выводит   Код:   <input type='text' name='name_login' size=20 value='root'>   <input type='text' name='name_pass' size=20 value='blablabla'> <input type='text' name='name_code' size=20 value='$_[1]'>       что же делать?   всё разобрался, просто был опущен параметр 'g', без которого заменяется только первое соответствие. Всего записей: 98 | Зарегистр. 11-01-2007 | Отправлено: 23:09 16-02-2009 | Исправлено: arreke, 09:21 17-02-2009

CheRt Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код:   s/#contentsWrap\s*{[^}]+}/#contentsWrap {}/gs   точнее так, т.к. без s может не захавать мультистроки ---------- В огне бода нет и не будет! До встречи в СССР 2.0! Всего записей: 1118 | Зарегистр. 14-12-2001 | Отправлено: 22:04 01-05-2009 | Исправлено: CheRt, 22:05 01-05-2009

CheRt Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору SAOD, да, вы правы. Невнимательность моя ---------- В огне бода нет и не будет! До встречи в СССР 2.0! Всего записей: 1118 | Зарегистр. 14-12-2001 | Отправлено: 11:36 02-05-2009

CheRt Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору ndch, Код:   my %month = (     '01' => 'Jan',     '02' => 'Feb',     '03' => 'Mar',     '04' => 'Apr',     '05' => 'May',     '06' => 'Jun',     '07' => 'Jul',     '08' => 'Aug',     '09' => 'Sep',     '10' => 'Oct',     '11' => 'Nov',     '12' => 'Dec', ); open(my $f, 'myfile'); open(my $nf, '>newfile'); while(<$f>) {  chomp;  s/^Date: (\d{2}:\d{2}) (\d{2})-(\d{2})-(\d{4})/Date: $2 $month{$3} $4 $1:00/;  print $nf "$_\n"; } close($nf); close($f);   Цитата: И вопрос ещё такой: как научиться составлять регэкспы. Т.е. с нуля. Секретов не открою: Цикл (пока не поймешь в достаточной мере) {  1. Курить мануал.  2. Смотреть примеры.  3. Практиковать свои регэкспы. } ---------- В огне бода нет и не будет! До встречи в СССР 2.0! Всего записей: 1118 | Зарегистр. 14-12-2001 | Отправлено: 17:36 27-10-2009 | Исправлено: CheRt, 17:42 27-10-2009

rtyug Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору что-то я туплю   хотел решить элементарную задачу   нужно обработать регулрным выражением 2 строки   есть 2 возможных варианта:   $hhh = 'wiki/999/44/page_co/11';   $hhh = 'wiki/999/1/page_co/11';   (цифры для примера, т.е. цифры для примера, я так понимаю (\d+))   почему данный код не работает?   Код:   $hhh = 'wiki/999/page_co/11';   # $hhh = 'wiki/999/page_co/11';   print $hhh =~ /^wiki\/(\d+)(?:\/(\d+))\/page_co\/(\d+)$/;   print $1.'  '.$2.'   '.$3;         мне казалось что очевидно дожно работать, но не работает....   в документации про ?: и т.д. как-то бредово написано Всего записей: 490 | Зарегистр. 13-05-2009 | Отправлено: 22:29 25-12-2009

CheRt Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору ndch, Цитата: Книжку может какую посоветуешь ? Нет. По регэкспам я разбирался с перлдоком, не стоит его недооценивать.   Можно вот на русском почитать http://www.citforum.ru/internet/perl/regexp/ неплохой материал. Но по мне, так перлдок лучше.   rtyug, Цитата: в документации про ?: и т.д. как-то бредово написано Все там нормально написано (?модификаторы:шаблон) средство локальной группировки, позволяет обособить, не создавая выборки + ввести отдельные локальные модификаторы.     Код:   my $hhh = 'wiki/999/page_co/11';   print join(' ', $hhh =~ /^wiki\/(\d+)(?:\/(\d+))?\/page_co\/(\d+)$/ );     ---------- В огне бода нет и не будет! До встречи в СССР 2.0! Всего записей: 1118 | Зарегистр. 14-12-2001 | Отправлено: 10:38 26-12-2009 | Исправлено: CheRt, 10:40 26-12-2009

rtyug Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору CheRt спасибо, я нашел уже, не увидел, просто думаю что он там не для этого...       это регулярное выражение в атрибут метода класса (чтобы данный метод загрузился когда идет такая url в событиях во фремворке Catalyst), там именно так и сделано, оно идет потом в массив... @$c->req->captures   вроде бы работает Код:   sub wiki_page_co : Regex('^wiki\/(\d+)(?:\/(\d+))?\/page_co\/(\d+)$')  {           my ( $self, $c ) = @_;               $c->stash->{ page_co } = 1;   # use Data::Dumper; # print Dumper($c->req->captures); # print $c->req->captures->[2] if (!$c->req->captures->[1]);             $c->forward( 'wiki', [ !$c->req->captures->[1]                                   ? $c->req->captures->[0]                                 : @{$c->req->captures}[0..2] ] );        }     Всего записей: 490 | Зарегистр. 13-05-2009 | Отправлено: 16:54 26-12-2009 | Исправлено: rtyug, 16:55 26-12-2009

joymix Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору to PKA. Но ~ это я знал, это я здесь опечатался А что касается рецепта - спасибо, вы - гений! Респект и уважуха! Всего записей: 33 | Зарегистр. 04-03-2003 | Отправлено: 19:33 01-03-2010

Страницы: 1 2 3 4 5 6

Компьютерный форум Ru.Board » Интернет » Web-программирование » Perl - Регулярные выражения / Regexpы

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование