форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Perl"
Сообщение от A Clockwork Orange on 15-Янв-03, 16:49  (MSK)
Есть файл ft-v05.2003-01-15.161000+0300 На перле в регулярных выражениях if ( $file =~ /.*ft-v05\.(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)/ ) где ошибка?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Perl"
Сообщение от Along on 15-Янв-03, 17:41  (MSK)
>Есть файл >ft-v05.2003-01-15.161000+0300 > >На перле в регулярных выражениях >if ( $file =~ /.*ft-v05\.(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)/ ) > >где ошибка? в $file
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "RE: Perl"
	Сообщение от A Clockwork Orange on 15-Янв-03, 19:29  (MSK)
	>>Есть файл >>ft-v05.2003-01-15.161000+0300 >> >>На перле в регулярных выражениях >>if ( $file =~ /.*ft-v05\.(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)/ ) >> >>где ошибка? > > >в $file Есть файл ft-v05.2003-01-15.161000+0300 #!/usr/bin/perl $file = $ARGV[0]; if ( $file = /ft-v05\.(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)(\W\d\d\d\d)/ ){ $cflowfile = "flows.".$1.$2.$3."_".$4.":".$5.":".$6; $command = "/usr/local/bin/flow-export -f0 < $file > /home/flows/$cflowfile"; print "$command\n"; system($command); }else{print "File $file didn't match\n";} А подробнее можно?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "RE: Perl"
	Сообщение от Dawnshade on 16-Янв-03, 09:39  (MSK)
	>Есть файл > >ft-v05.2003-01-15.161000+0300 >if ( $file = /ft-v05\.(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)(\W\d\d\d\d)/ А не проще будет так: $file=~/ft-v05.\d{4}\-\d{2}-\d{2}\.\d{6}\+\d{4}/ За точность не ручаюсь. Короче смотри man perlre
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "RE: Perl"
	Сообщение от Along on 16-Янв-03, 10:00  (MSK)
	>>>Есть файл >>>ft-v05.2003-01-15.161000+0300 >>> >>>На перле в регулярных выражениях >>>if ( $file =~ /.*ft-v05\.(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)/ ) >>> >>>где ошибка? >> >> >>в $file > >Есть файл > >ft-v05.2003-01-15.161000+0300 > > > >#!/usr/bin/perl > >$file = $ARGV[0]; > >if ( $file = /ft-v05\.(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)(\W\d\d\d\d)/ ){ >$cflowfile = "flows.".$1.$2.$3."_".$4.":".$5.":".$6; >$command = "/usr/local/bin/flow-export -f0 < $file > /home/flows/$cflowfile"; >print "$command\n"; >system($command); >}else{print "File $file didn't match\n";} > >А подробнее можно? у меня этот шаблон отработал правильно единственно что в написанном выше варианте не хватает ~
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.