sed, awk ja perl praktiliselt

sed sobib asendamiseks, awk väljade ja arvutuste jaoks ning perl keerukamaks mustritöötluseks.

Kiirülevaade

Eesmärk on minna edasi siis, kui grep, cut ja tr enam ei piisa: muuta ridu, arvutada väljade kaupa ja kirjutada lühike tekstiloogika.

Tüüpilised algaja vead

• oodatakse, et sed või awk muudab faili kohe kohapeal
• aetakse segi „esimene vaste real“ ja „kõik vasted real“
• kirjutatakse üherealine käsk, mille loogika on endalegi liiga segane

Üks asendus ja kõik asendused

sed 's/vana/uus/' asendab iga rea esimese vaste; lõppu lisatud g asendab kõik vasted sellel real. Sisendfail ei muutu: tulemus läheb standardväljundisse.

echo 'kass koer kass' | sed 's/kass/rebane/'
echo 'kass koer kass' | sed 's/kass/rebane/g'

Selle pildi loogika on järgmine:

1. echo "Tere tere vana kere" > tere.txt loob algse faili
2. cp tere.txt kere.txt teeb samast sisust koopia
3. sed 's/vana/uus/' tere.txt > mere.txt loeb faili tere.txt, asendab esimese vaste ja kirjutab tulemuse uude faili
4. head * näitab kolme faili algust üksteise järel

Ära suuna tulemust sisendfaili endasse: sed 's/vana/uus/' fail > fail tühjendab faili enne lugemist. Vali uus väljundfail. Kohapealse muutmise sed -i kuju erineb GNU ja macOS-i versioonis; kontrolli kohalikku käsiraamatut.

Üks asendus või kõik asendused

sed-i üks kõige tähtsamaid erinevusi on see, kas tehakse üks asendus või kõik asendused real.

Selle pildi sees on näha kaks väga erinevat tulemust:

1. sed 's/ere/ERE/' tere.1.txt > tere.2.txt muudab ainult rea esimese vaste
2. sed 's/ere/ERE/g' tere.1.txt > tere.3.txt muudab kõik vasted samal real
3. head * näitab pärast kõiki kolme faili üksteise järel, nii et vahe on kohe nähtav

Rusikareegel on lihtne:

• ilma g-ta muudetakse tavaliselt ainult esimene vaste real
• g tähendab global, ehk kõik vasted sellel real

awk -F: valib väljade eraldajaks kooloni. $1 ja $2 tähistavad esimest ja teist välja; komaga eraldatud väljad prinditakse vaikimisi tühikuga.

printf 'Mari:20\nJaan:21\n' | awk -F: '{print $1}'
printf 'Mari:20\nJaan:21\n' | awk -F: '{print $1, $2}'

Perli -e võtab koodi käsurealt, -p loeb ja väljastab read automaatselt ning -n jätab väljastamise sinu koodi otsustada. -F: määrab eraldaja, -a jagab rea massiivi @F, -l haldab reavahetusi; $F[0] on esimene väli.

echo 'kass koer kass' | perl -pe 's/kass/rebane/g'
printf 'Mari\nJaan\n' | perl -ne 'print if /Ja/'
printf 'Mari:20\nJaan:21\n' | perl -F: -lane 'print $F[0]'

Edasijõudnule: algarvud regulaaravaldisega

Järgmine näide ei ole algarvude leidmiseks kõige praktilisem, kuid näitab hästi, kui võimsad võivad Perli üherealised käsud olla:

seq 2 200 | perl -nlE 'say if ("a" x $_) !~ /^(aa+)\1+$/'

See kuju on siin meelega võimalikult lihtne. Kuna alustame vahemikku 2-st, ei pea me eraldi 0 ja 1 juhtumeid regexis välja filtreerima.

Mõte on selline:

• iga arv teisendatakse ajutiselt ühe tähe korduseks, näiteks 7 muutub kujule aaaaaaa
• regex proovib leida, kas see rida koosneb mingist väiksemast plokist, mida saab mitu korda korrata
• kui saab, siis arv ei ole algarv
• kui ei saa, siis prinditakse arv välja

See tähendab sisuliselt: „Prindi ainult need arvud, mida ei saa kirjutada kujul m * n, kus mõlemad on suuremad kui 1.“

Praktilises skriptis oleks tavaliselt mõistlikum kasutada tavapärast jaguvuskontrolli, aga ühe rea triki või loengu-näite jaoks on see väga meeldejääv.

Minitest

1. Asenda reas üks sõna teisega.
2. Võta välja kooloniga eraldatud faili esimene väli.
3. Prindi awk abil ainult teine veerg.
4. Filtreeri perl -ne abil välja ainult need read, kus on kindel muster.
5. Tee perl -pe abil globaalne asendus kogu sisendi ulatuses.