The OpenNET Project / Index page

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

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"регулярные выражения"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"регулярные выражения"
Сообщение от Purple emailИскать по авторуВ закладки(??) on 12-Апр-04, 11:39  (MSK)

open(mail,$source_file_name) or die "file not found";
open (temp,$temp_file_name) or die "file not create";
while(<mail>)
{ # begin while
    if ($_=~/Subject:/)
    {
    if ($_=~/\d*\.\d*/)
{
print temp "$&";
}
    }
} # end while
close(mail);
close(temp);

Есть строка в почтовом файле, она содержит информацию о дате события в subject'e файла.
Строка в файле выглядит так:
--cut--
Subject: =?ISO-8859-1?Q?=D7=D2=DD=D63: =C3=F0=E0=F4=E8=EA =ED=E0?= 12.04
--cut--
Интересует только дата в конце строки.
Сделал пока через два if.
Не подскажете, как подсократить условие проверки.


  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

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

1. "регулярные выражения"
Сообщение от alchie Искать по авторуВ закладки(ok) on 12-Апр-04, 11:54  (MSK)
>
>open(mail,$source_file_name) or die "file not found";
>open (temp,$temp_file_name) or die "file not create";
>while(<mail>)
>{ # begin while
>    if ($_=~/Subject:/)
>    {
>    if ($_=~/\d*\.\d*/)
>{
>print temp "$&";
>}
>    }
>} # end while
>close(mail);
>close(temp);
>
>Есть строка в почтовом файле, она содержит информацию о дате события в
>subject'e файла.
>Строка в файле выглядит так:
>--cut--
>Subject: =?ISO-8859-1?Q?=D7=D2=DD=D63: =C3=F0=E0=F4=E8=EA =ED=E0?= 12.04
>--cut--
>Интересует только дата в конце строки.
>Сделал пока через два if.
>Не подскажете, как подсократить условие проверки.

if (/^Subject.+(\d\d\.\d\d)$/) {
   print $1;
}

  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "регулярные выражения"
Сообщение от Purple emailИскать по авторуВ закладки(??) on 12-Апр-04, 12:09  (MSK)
>if (/^Subject.+(\d\d\.\d\d)$/) {
>   print $1;
>}
Как все просто. Спасибо, добрый человек!


  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

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




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

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