|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Gennady Terehov 2:5020/400 05 May 2003 10:00:55
To : All
Subject : Поиск и замена
--------------------------------------------------------------------------------
Здравствуйте, ВСЕ!
Вот, казалось бы простейшее дело, а никак понять не могу :)
Hадо мне заменить в строке (дата) пробел, находящийся после 2-ух
цифр и перед одной цифрой нулем:
#!/usr/bin/perl -w
$wz = "200305 5- 90451";
#$wz = `date +%Y%m%e-%l%M%S`; # этой командой оно генерится на _чужой_ машине
chomp $wz;
$wz =~ s/(\d{2})\s(\d)/$1.0.$2/;
print "\$1: ".$1."\n";
print "\$2: ".$2."\n";
print "vse sovp: ".$&."\n";
print $wz . "\n";
Выводит:
[webmaster@pech test]$ ./zero.pl
$1: 05
$2: 5
vse sovp: 05 5
200305.0.5- 90451
[webmaster@pech test]$
Если вместо точек писать кавычки и т.д. то он их и выводит.
Вот сижу и не могу понять как сделать-то?
Исходная строка мне приходит в таком виде (с пробелом вместо нуля),
поменять ее формат я не могу.
Заранее спасибо за помощь.
This is perl, version 5.005_03 built for i386-linux
--
Геннадий
Booting... /vmemacs.el
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
