Re: lug-bg: modifikacia na sring

[Kliment Ognianov]

Konstantin Ivanov wrote:

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

use strict;
my @f;
open(IN,"<+" . <path/filename>);
while(<IN>)
{
� s/(\d+)-(\d+)-(\d+)/20$3-$2-$1/gi;
� 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          :
:...................................: