Re: lug-bg: modifikacia na sring

[kleo@xxxxxxxxxxx (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! <http://www.freebsd.org>

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

============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================