[es] - SED problem br. 2

leka
Dejan Lekić
senior software engineer, 3Developers
Ltd.
London, UK

Član broj: 234
Poruke: 2534
*.racasse.se

Sajt: dejan.lekic.org

+2 Profil

SED problem br. 2

^{08.04.2002. u 19:09 - pre 268 meseci}

Imam fajl fajl.m3 koji je recimo sledece sadrzine:

Code:

MODULE A;
IMPORT Wr, Stdio, Thread;

PROCEDURE DoIt() =
BEGIN
        TRY
                Wr.PutText(Stdio.stdout, "Hello world.\n");
                Wr.Close(Stdio.stdout);
        EXCEPT
                | Wr.Failure, Thread.Alerted =>
        END;
END DoIt; (* Komentar za dmc-a *)

BEGIN
END A.

Zelim da mi sed od tog fajla napravi fajl sa brojevima linija formatiranim udesno i da od toga dobijem:

Code:

     1 MODULE A;
     2 IMPORT Wr, Stdio, Thread;
     3
     4 PROCEDURE DoIt() =
     5 BEGIN
     6    TRY
     7       Wr.PutText(Stdio.stdout, "Hello world.\n");
     8       Wr.Close(Stdio.stdout);
     9    EXCEPT
    10       | Wr.Failure, Thread.Alerted =>
    11    END;
    12 END DoIt; (* Komentar za dmc-a *)
    13
    14 BEGIN
    15 END A.

(Nazalost na ES-u ne mogu nista formatirano da imam tako da ce kod da izgleda glup)
Imam neki osecaj da ce neko ko je sinoc bio na #elitesecurity da resi ovaj problem ;)

Pozdrav svima!

Dejan Lekic
software engineer, MySQL/PgSQL DBA, sysadmin

Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651

+165 Profil

Re: SED problem br. 2

^{08.04.2002. u 23:32 - pre 268 meseci}

Evo awk bolje, brojevi linija formatirani udesno :)

cat fajl.m3 | awk '{ printf "%5d ", NR; print }'

A možeš i da popuniš prazna mesta nulama:

cat fajl.m3 | awk '{ printf "%05d ", NR; print }'

Može i perl, rešenje by virtus:

cat fajl.m3 | perl -e 'while(<>){ printf("%05d: %s", $i, $_); $i++;}'

Mada je najlakše koristiti nl komandu. :)) nl -ba fajl.m3 na primer.

Uskoro ću ti postovati i sed rešenje ako toliko znači..

Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651

+165 Profil

Re: SED problem br. 2

^{09.04.2002. u 00:25 - pre 268 meseci}

Uh trebalo mi je malo vremena, ali evo ga, radi:

sed -e "=" fajl.m3 | sed -e :a -e '$!N;s/\n$[^0-9]$/ \1/;ta' -e 'P;D' | sed '/^$/D;'

Odgovor na temu

leka
Dejan Lekić
senior software engineer, 3Developers
Ltd.
London, UK

Član broj: 234
Poruke: 2534
*.racasse.se

Sajt: dejan.lekic.org

+2 Profil

Re: SED problem br. 2

^{10.04.2002. u 16:13 - pre 268 meseci}

AWK rulz

Dejan Lekic
software engineer, MySQL/PgSQL DBA, sysadmin

Odgovor na temu