Dotaz: testování předchozího řádku

[Martin]

V mém scriptu bych potřeboval za určitých podmínek... na konci předchozího řádku je určitá posloupnost (např 123) a na aktuálním jiná (např 456) a pokud jsou tyto podmínky splněny potřeboval bych aktuální řádek pozměnit (např na 789)... Nevíte někdo jak na to?? v sedu jsem na to doteď nepřišel

Odpovědi

[cronin]

Niekomu asi pri tom zovrie zlc, ale ak potrebujes len nieco jednoduche, tak za predpokladu, ze vstupny subor neobsahuje napr. zavinac, mozno to riesit takto:

[babjak][~/tmp/sed][21:06:27] cat file.txt
abcd
efgh
i123
456j
klmn
o123
456p
qrst
[babjak][~/tmp/sed][21:06:37] cat file.txt | tr '\n' '@' | sed -e 's/@$//' | sed -e 's/123@456/123@678/g' | tr '@' '\n'
abcd
efgh
i123
678j
klmn
o123
678p
qrst
[babjak][~/tmp/sed][21:06:40]

Znak noveho riadku to zmeni za zavinac, sed-om urobi priamociare nahradenie a zavinac prelozi naspat na znak noveho riadku. Urcite by to islo elegantnejsie, ale elegantnost tohto je v tom, ze postacuju uplne zakladne vedomosti tr a sed.

[cronin]

A kedze sa momentalne zoznamujem s Perlom, zobral som to ako cvicenie a dosiel som k tomuto:

[babjak][~/tmp/sed][21:35:54] cat file.txt
abcd
efgh
i123
456j
klmn
o123
456p
qrst
[babjak][~/tmp/sed][21:36:04] perl -e 'my $file = `cat $ARGV[0]` ; $file =~ s/123\n456/123\n789/g ; print $file;' file.txt
abcd
efgh
i123
789j
klmn
o123
789p
qrst
[babjak][~/tmp/sed][21:36:09]

[wamba]

popřípadě v Perlu něco takového:

perl -pe 's/^456/789/ if $predchoziradek ~~ /123$/;$predchoziradek=$_ ' << file.txt

[pht]

Až na ten cat je to na začátečníka celkem slušné a efektivní řešení problému! Ten cat nahraďte slurpnutím:

my $file;
{
    local $/ = undef;
    $file = <>;
}

[cronin]

To som samozrejme chcel, ale som nevedel rychlo najst ako slurpnut stdin.

[luky]

V sedu zhruba takhle:

sed '/123/ {n; s/456/789/}'

[cronin]

Chyba tam bodkociarka, ma to byt takto:

sed '/123/ {n; s/456/789/;}'

[Martin]

Díky moc za pomoc. Když jsem to zkoušel sám tak jsem tam zapoměl dát ty složený závorky proto mi to nefungovalo...

[luky]

Nechyba.

[cronin]

[babjak][~/tmp/sed][18:50:33] cat file.txt
abcd
efgh
i123
456j
klmn
o123
456p
qrst
[babjak][~/tmp/sed][18:50:34] cat file.txt | sed '/123/ {n; s/456/789/}'
sed: 1: "/123/ {n; s/456/789/}": bad flag in substitute command: '}'
[babjak][~/tmp/sed][18:51:02] cat file.txt | sed '/123/ {n; s/456/789/;}'
abcd
efgh
i123
789j
klmn
o123
789p
qrst
[babjak][~/tmp/sed][18:51:07]

[Martin]

Tak jsem přišel na jednu zradu ono to funguje jenom dalo by se říct obřádek..