|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 05 May 2003 12:45:37
To : Gennady Terehov
Subject : Re: Поиск и замена
--------------------------------------------------------------------------------
Здравствуй, Gennady Terehov.
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/;
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Поиск и замена 
