The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Perl"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы 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ообщить модератору | Наверх

 Оглавление

  • RE: Perl, Along, 17:41 , 15-Янв-03, (1)
    • RE: Perl, A Clockwork Orange, 19:29 , 15-Янв-03, (2)
      • RE: Perl, Dawnshade, 09:39 , 16-Янв-03, (3)
      • RE: Perl, Along, 10:00 , 16-Янв-03, (4)

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

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 emailИскать по авторуВ закладки 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ообщить модератору | Наверх


Удалить

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




Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2021 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру