🚀 go-pugleaf

W artykule <pan.2005.11.17.15.14.26.882457@op.pl> Irek napisał(a):
> [...]
> Mam plik o takich wierszach:
> mm/dd/rr  coś_tam  coś_tam 
> które należy przekszatłcić (nie tracąc formatowania) do:
> rr/mm/dd  coś_tam  coś_tam
> [...]
> Jakieś sugestie?

Script started on czw 17 lis 2005 16:57:41 CET
kacper@sztywniak:~/Softax$ sh skr.sh
cat skr.sh
echo - -
echo
echo + +
cat test 
echo - -
echo
echo + +
cat skr.sed
echo
time sed -f skr.sed test 
echo - -
echo
echo + +
cat skr.awk
echo
time awk -f skr.awk test 
echo - -
echo
echo + +
cat skr.perl
echo
time perl skr.perl test 
- -

+ +
mm/dd/rr  coś_tam  coś_tam
01/31/04  jeden    dwa
12/01/00  jeden_a  dwa_a
- -

+ +
s/^\(..\)\/\(..\)\/\(..\)\(.*\)$/\3\/\1\/\2\4/

rr/mm/dd  coś_tam  coś_tam
04/01/31  jeden    dwa
00/12/01  jeden_a  dwa_a

real	0m0.001s
user	0m0.001s
sys	0m0.000s
- -

+ +
{
    data=substr($0,1,8)
    reszta=substr($0,9)

    mm=substr(data,1,2)
    dd=substr(data,4,2)
    rr=substr(data,7,2)

    print rr "/" mm "/" dd reszta
}

rr/mm/dd  coś_tam  coś_tam
04/01/31  jeden    dwa
00/12/01  jeden_a  dwa_a

real	0m0.002s
user	0m0.001s
sys	0m0.000s
- -

+ +
#!/usr/bin/perl
while (<>) {
    $data = substr($_, 0, 8);
    $reszta = substr($_, 8);
    ($mm, $dd, $rr) = split /\//, $data;
    print $rr . '/' . $mm . '/' . $dd . $reszta;
}

rr/mm/dd  coś_tam  coś_tam
04/01/31  jeden    dwa
00/12/01  jeden_a  dwa_a

real	0m0.003s
user	0m0.002s
sys	0m0.000s
kacper@sztywniak:~/Softax$ exit
Script done on czw 17 lis 2005 16:57:50 CET

Zrób te same testy na pliczku nie 3 wierszowym, ale stosownym do wystąpień u
Ciebie.

KAcper
-- 
Mail => www.rot13.com