Skriptík v shellu pomocí awk

[Boss321]

zdravím mám takový problém, řeším takovou úlohu, ale nějak to furt nemůžu doladit.

Chci udělat skript, který pomocí filtru awk (jedním vyvoláním) vypíše z „ypcat passwd“ celé záznamy vybraných uživatelů s uvedenými úpravami:
1. Vybere všechny uživatele s UID <= 30000 nebo jejichž uživatelské jméno neodpovídá vzoru „ppppppn“, kde p je písmeno a n je číslice.

ypcat passwd | awk -F: '$3<=30000 || $1 !~ /[a-zA-Z]\{6\}[1-9]/' - tohle funguje bez problému

2. U těchto vybraných, jestliže uživatelské jméno neodpovídá vzoru „ppppppn“, prohodí v cestě k domovskému adresáři první 2 jména (např. /home/Blabla/.... -> /Blabla/home/........) a výsledný záznam vypíše, jinak vybraný záznam vypíše beze změny.

ypcat passwd | awk -F:  '/\(.*\):\/home\/.*\/\(^[a-zA-Z]\{6\}[1-9])/\1:\/.*\/home\/\2/' {print $0} .... nevíte někdo, kde dělám chybku?       

[Reklama]

[bseller.eu]

motate do sebe awk a sed. Pokud si najdu chvilku odpovim presneji.

[Boss321]

Aha, já jsem právě v shellu celkem začátečník a vůbec si s tímhle nevím rady, tak kdybyste jste si našel chvilku, tak bych Vám byl moc vděčný.

[Boss321]

Už se tomu alespoň přibližuji?

ypcat passwd | awk -F: '$1 !~ /[a-zA-Z]\{6\}[1-9]/ { print $1,$2,$3,$4,$5,''{FS="/"} {$2,$1}'',$7 } '

[bseller.eu]

myslim, ze neni mozne zmenit field separator v jednom radku. Reseni jsem ale nasel:
1. do souboru tmp.sed dat substitucni regexp
/\(.*\):\/home\/.*\/\(^[a-zA-Z]\{6\}[1-9])/\1:\/.*\/home\/\2/
2.volat sed z awk a to nejak takto
awk -F: '$3>=1000 {print $0 | "sed -f tmp.sed"} $3<1000 {print $0}'

[Reklama]

[wamba]

pro inspiraci pomocí perlu by to šlo třeba takto

Kód: [Vybrat]

cat /etc/passwd|perl -F":" -ane '($F[0] !~ /^[A-Za-z]{6}\d$/ &&  $F[5] =~ s{/(.*?)/([^/]*)}{/$2/$1}   || $F[2] <= 30000) && print join ":",@F'

[Boss321]

A nebylo by možné to řešení, nějak upravit, aby to bylo bez souboru??

[bseller.eu]

pokud se Vám podaří toto rozběhat tak proč ne. Pokud byste zjistil jak na problém "uvozovek v uvozovkách" tak dejdte prosím vědět
 cat /etc/passwd | awk -F: '$3>=1000 {print $0 | "sed -e s/\(\.*\)\/home\(\/.*\)\(\/.*\)/\1\2\/home\3/""} $3<1000 {print $0}'

[deadmail]

volat sed z awku je uplne zbytocne, awk toho vie ovela viac ...

Kód: [Vybrat]

cat /etc/passwd | awk 'BEGIN{FS=":";OFS=":"}
{if ($3 <= 3000) {$6=gensub(/\home\/([^/]*)/, "\\1/home", "g", $6)}; print}'


[Boss321]

děkuji moc, ale když příkaz zadám do shellu, tak mi to neustále píše syntax error.

[bseller.eu]

gensub jsem v awk neznal, díky!

[Boss321]

Prosím Vás ještě bych měl poslední dotaz, když po těchto dvou úpravách mám: počet nalezených řádků a počet provedených záměn.

Tak řádky zjistím awk 'END { print "Pocet radku je: " NR}'

ale nevím, jak zjistím počet záměn?

[deadmail]

děkuji moc, ale když příkaz zadám do shellu, tak mi to neustále píše syntax error.

mne to to ziadnu chybu nepise (v bashi) - treba poslat chybu, ale chybali tam este lomitka:

Kód: [Vybrat]

cat /etc/passwd | awk 'BEGIN{OFS=FS=":"} {if ($3 <= 3000) {$6=gensub(/\/home\/([^/]*)/, "/\\1/home", "g", $6)}; print}'

[Boss321]

Já mám také bash a píše mi to tohle:

cat /etc/passwd | awk 'BEGIN{OFS=FS=":"} {if ($3 <=3000) {$6=gensub(/\/home\/([^/]*)/, "/\\1/home", "g", $6)}; print}'
awk: syntax error near line 1
awk: illegal statement near line 1

[deadmail]

Kód: [Vybrat]

awk --version
V GNU Awk 3.1.6 to funguje.