Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 4.583 pregleda

Najnovija ↓

SED problem br. 2 08.04.2002. u 20:09 · pre 299 meseci #1
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!
Potpis
Dejan Lekic
software engineer, MySQL/PgSQL DBA, sysadmin
Re: SED problem br. 2 09.04.2002. u 00:32 · pre 299 meseci #2
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..
Re: SED problem br. 2 09.04.2002. u 01:25 · pre 299 meseci #3
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;'
Re: SED problem br. 2 10.04.2002. u 17:13 · pre 299 meseci #4
AWK rulz
Potpis
Dejan Lekic
software engineer, MySQL/PgSQL DBA, sysadmin
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme