Dotaz: perl oneliner

[Terka]

ahoj, poradi prosim nekdo jak pomoci perl onelineru udelat nasledujici:

Puvodni radek umim rozsekat na 3 casti ( )( )( ) a odkazovat se na ne pomoci \1 \2 a \3 chtela bych ale v casti \1 provest dalsi nahrazovani, napr nahradit mezery a tecky za podtrzitka. Jak toto provest? Dekuju!

Odpovědi

[NN]

Pokud chces prepsat udaje pouze v prvnim bloku, kde bloky jsou logicky oddelitelene, tak je proste neoddeluj a napis vyraz ciste pro upravu, zbytek retrezce zustane bez zmeny.

[Terka]

diky za odpoved, bohuzel nevim jak na to, jak to myslis.

[NN]

Beru zpet..

[graviton]

S pomocí s///e (eval modifikátor) by šla vymyslet nějaká příšernost typu

echo a.b.c d.e.f g.h.i | perl -pe 's/(.*) (.*) (.*)/($1 =~ tr| .|__|r)." $2 $3"/e'

Což ovšem neznamená, že to je dobrý nápad to takhle dělat...

[Terka]

diky za opoved, tohle by asi bylo pro me rozumne. Bohuzel mi to zatim nefunguje, pokud bys mel prosim cas zprovoznit tento priklad, budu rada. PS: rada uslysim i lepsi napad jak na to diky!

[Terka]

diky vsem, uz vim, je to potreba priradit promenne, ten $1 je asi jen pro cteni.

[RM]

Nechá se to udělat snadno i bez eval:

perl -ne '@a=/(..)(..)(..)/; @a && ($a[1] =~ s/\./\.\.\./g); print "@a"'

[RM]

Omlouvám se, trochu jsem se unáhlil, přes pole jedině tak:

perl -ne '@a=/(..)(..)(..)/g; $cnt++%3 || s/\./\.\.\./g foreach @a; print "@a"'

nahradí v prvním (..) každou tečku za tři tečky.