|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Kharchenko 2:5020/400 21 Aug 2002 15:24:33
To : Sergey V. Leschenko
Subject : Re: Удалить лишние знаки.
--------------------------------------------------------------------------------
"Sergey V. Leschenko" <sm@adamant.net> сообщил/сообщила в новостях
следующее: news:slrnam6ccl.mnu.sm@alien.adamant.net...
> Andrey Kharchenko wrote:
>
> AK> Текст читается из текстового файла. Текстовый файл выглядит следующим
> AK> образом:
> AK>===========
> AK> 21.08.02 9:00 20.6 20.7 19.1 21.0 20.4
> AK>===========
> AK> Первые два столбца дата и время. Заношу все данные в базу mysql.
> AK> Задача, как мне только! из 21.08.02 получить 210802 и из 9:00
получить 900 ?
> AK> Т.е. убрать лишние знаки. Остальные данные должны остаться неизменны.
>
> ($date, $time, @other) = split(/\s+/, $line);
> $date =~ s/\.//g;
> $time =~ s/://;
Спасибо. Помогло. Только вот появилось маленькое но. Если время 9:48 то
получается 948. Все правильно. В текстовом файле так. А можно как ни будь
добавить 0, т.е. что бы получилось 0948, а если время 21:25 то ничего
добавлять не нужно? Пусть остается 2125.
--
Best Regards,
Andrey Kharchenko
--- ifmail v.2.15dev5
* Origin: Ye 'Ol Disorganized NNTPCache groupie (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
