Re: lug-bg: modifikacia na sring

[Kliment Ognianov]

Kliment Ognianov wrote:

Konstantin Ivanov wrote:

A kak moje da se zamestiat podobni stringove vyv fail izpolzvaiki tozi perl podhod, s "tr" ne se poluchava

#!/usr/bin/perl v na4aloto , fcoz :)

use strict;
my @f;
open(IN,"<+" . <path/filename>);

<+ - 4ete6 i rewrite-vash faila

while(<IN>)
{
� s/(\d+)-(\d+)-(\d+)/20$3-$2-$1/gi;

ili \d{2} vmesto \d+, no ne e korektno, btw moje i bez 'i' nakraq, ne se express-vat strings ....

� push(@f,$_);
}
print IN join('',@f);
close(IN);

--
The Power to Serve!

.....................................
: Kliment Ognianov                  :
: Network Administrator & Developer :
: BulInfo Networks Department       :
:...................................:
: http://www.bulinfo.net/           :
:...................................:
: +(359)-2-9699165,+(359)-88-670051 :
: ICQ #16864572, #64866894          :
:...................................: