Vlákno názorů k článku Úvod do AWK: proměnné, operátory a první kroky od PaD - Jak by se dalo upravit toto, aby se...

find ./dir -maxdepth 1 -type f -printf '%f\n' | awk -F'_' '{print $1}'

for f in dir/*; do [ -f $f ] && f="${f#*/}" && echo "${f%%_*}"; done

P.S.: A ještě před tím si přečtěte "Jak se správně ptát" a příště nám nejdříve zdělte co to k sakru má dělat.

P.P.S.: To druhé je jen taková ukázka, že správný perlista dokáže napsat perlový kód v čemkoli