|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mikhail Polykovsky 2:5020/400 05 May 2003 10:06:09
To : Gennady Terehov
Subject : Re: Поиск и замена
--------------------------------------------------------------------------------
GT> Здравствуйте, ВСЕ!
GT> Вот, казалось бы простейшее дело, а никак понять не могу :)
GT> Hадо мне заменить в строке (дата) пробел, находящийся после 2-ух
GT> цифр и перед одной цифрой нулем:
GT> #!/usr/bin/perl -w
GT> $wz = "200305 5- 90451";
GT> #$wz = `date +%Y%m%e-%l%M%S`; # этой командой оно генерится на _чужой_
GT> машине chomp $wz; $wz =~ s/(\d{2})\s(\d)/$1.0.$2/;
Попробуй
$wz =~ s/(\d{2})\s(\d)/$1.'0'.$2/e;
GT> This is perl, version 5.005_03 built for i386-linux
--
Михаил Полыковский
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: UTC (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
