Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

SED problem br. 2

[es] :: Skript jezici :: SED problem br. 2

[ Pregleda: 3754 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

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

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

Sajt: dejan.lekic.org


+2 Profil

icon SED problem br. 208.04.2002. u 19:09 - pre 223 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: 13648



+159 Profil

icon Re: SED problem br. 208.04.2002. u 23:32 - pre 223 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: 13648



+159 Profil

icon Re: SED problem br. 209.04.2002. u 00:25 - pre 223 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

icon Re: SED problem br. 210.04.2002. u 16:13 - pre 223 meseci
AWK rulz
Dejan Lekic
software engineer, MySQL/PgSQL DBA, sysadmin
 
Odgovor na temu

[es] :: Skript jezici :: SED problem br. 2

[ Pregleda: 3754 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.