Dotaz: bash: Jak upravit soubor

[michal]

Jak zkrátit všechny řetězce v celém souboru na pět znaků ? Jde o to uřezat konec každého řetězce. Řetězce jsou bez mezer a jsou oddělené čárkami.

Příklad - obsah původního souboru:

ovoce,zelenina,mandarinky,jablka
okurky,kapusta,cibule,chmel
jahody,maliny,papriky,kokosy
brambory,mirabelky

Požadovaný obsah:

ovoce,zelen,manda,jablk
okurk,kapus,cibul,chmel
jahod,malin,papri,kokos
bramb,mirab

---

---

Odpovědi

[Vlad]

perl -pe 's/([^,\n]+)/substr $1, 0, 5/ge' < input > output

nebo přímo upravit v souboru

perl -pi -e 's/([^,\n]+)/substr $1, 0, 5/ge' text

[michal]

To je zajímavé, jak se v tom Perlu dají některé věci jednoduše řešit. Ale v tuto chvíli to funguje všechno, kromě odpovědi od Jirka. Díky všem.

[Jirka]

cut -b 1-5 soubor

[OldFrog {Ondra Nemecek}]

cut -b 1-5 soubor

Nevyhovuje - ořízne konce řádků, ale my chceme oříznout slova oddělená na řádku čárkami.

[OldFrog {Ondra Nemecek}]

Skript pro filtrování standardního vstupu na výstup - uložit do souboru filter.sh a nastavit spustitelnost:

#!/bin/bash

while read LINE;
do
	FIRST="Y";
	echo "${LINE}" | sed 's!,!\n!g' | \
	while read WORD;
	do
		if [ "${FIRST}" != "Y" ];
		then
			echo -ne ",";
		fi;
		echo -ne "${WORD}" | cut -z -c "1-5";
		FIRST="N";
	done;
	echo -ne "\n";
done;

#eof

Zdrojový text je v souboru a:

# cat a
ovoce,zelenina,mandarinky,jablka
okurky,kapusta,cibule,chmel
jahody,maliny,papriky,kokosy
brambory,mirabelky

Spuštění čte z a zapisuje do b:

# ./filter.sh < a > b

Výsledný text je v souboru b:

# cat b
ovoce,zelen,manda,jablk
okurk,kapus,cibul,chmel
jahod,malin,papri,kokos
bramb,mirab

[scisoft]

#!/bin/sh sed -E 's/([[:alpha:]]{1,5})[[:alpha:]]*([,$]*)/\1\2/g' zkus.txt

Soubor 'zkus.txt' obsahuje: ovoce,zelenina,mandarinky,jablka okurky,kapusta,cibule,chmel jahody,maliny,papriky,kokosy brambory,mirabelky

Vystup scriptu:

ovoce,zelen,manda,jablk okurk,kapus,cibul,chmel jahod,malin,papri,kokos bramb,mirab

[RM]

sed -r 's/([^,]{,5})[^,]*/\1/g'

[Kit]

awk -F, 'BEGIN {OFS = ","}
    {
        for (i = 1; i <= NF; i++) {
            $i = substr($i, 1, 5)
        }
        print
    }' <data.txt

[Andrej]

To je domácí úkol na awk (skoro) one-linery, že jo.

awk 'BEGIN {FS = ","; OFS = FS}
     {for (i = 1; i <= NF; ++i) $i = substr($i, 1, 5); print $0}'

Jestli to ale musí být opravdu striktně v čistém bashi, tak prosím:

IFS=','
while read -a line; do
  echo -n "${line[0]:0:5}"
  for word in "${line[@]:1}"; do
    echo -n ",${word:0:5}"
  done
  echo
done

[OldFrog {Ondra Nemecek}]

Jestli to ale musí být opravdu striktně v čistém bashi, tak prosím:

IFS=','
while read -a line; do
  echo -n "${line[0]:0:5}"
  for word in "${line[@]:1}"; do
    echo -n ",${word:0:5}"
  done
  echo
done

Dobře, tohle je hezčí řešení než to moje

[RM]

IFS=','
while read -a aline; do
  line="`printf '%.4s,' ${aline[@]}`"
  printf '%s\n' "${line:0:-1}"
done

[Kit]

Tohle vypadá hezky. Trochu jsem si to upravil:

#!/bin/bash

while IFS=',' read -a aline; do
  line="`printf '%.5s,' ${aline[@]}`"
  printf '%s\n' "${line:0:-1}"
done

[jekub]

IFS=,
function f5 {
   while :
   do
      echo -n "${1:0:5}"
      shift
      if [ -z $1 ]; then
         echo
         break
      fi
      echo -n "$IFS"
   done;
}

while read line;
do
   f5 $line
done;