Dotaz: serazeni pole v bashi

[Petr]

prosim vas o radu kterak seradit hodnoty v poli inkrementalne. Pole obsahuje napriklad:

#!/bin/bash

pole=( 1 10 6 9 10 22 11 34 21 12 2 )

Moc mi to pomuze. Dekuji predem.

Odpovědi

[#Tom]

Jde to udělat třeba takto pomocí jednoduchého třídění výměnou s časovou složitostí O(N^2):

#!/bin/bash
POLE=(4 1 8 6 10)
echo "Pole před: ${POLE[@]}"
for ((I=0;I<${#POLE[@]};I++)); do
	for ((J=I+1;J<${#POLE[@]};J++)); do
		if [ ${POLE[J]} -lt ${POLE[I]} ]; then
			TMP=${POLE[J]}
			POLE[J]=${POLE[I]}
			POLE[I]=$TMP
		fi
	done
done	
echo "Pole po: ${POLE[@]}"

[David Watzke]

pole=($(sed 's: :\n:g' <<< "${pole[*]}" | sort -n))

[Martin Čížek]

IFS=$'\n'
pole=($(echo "${pole[*]}" | sort -n))
IFS=$' \t\n'


[David Watzke]

IFS=$'\n' pole=($(sort -n <<< "${pole[*]}"))

[Hynek (Pichi) Vychodil]

$ perl -mString::Escape -le '($a = <>) =~ s/$//;print String::Escape::escape("printable", $a)' <<<"$IFS"
 \t\n
$ pole=( 1 10 6 9 10 22 11 34 21 12 2 )
$ IFS=$'\n' pole=($(sort -n <<< "${pole[*]}"))
$ perl -mString::Escape -le '($a = <>) =~ s/$//;print String::Escape::escape("printable", $a)' <<<"$IFS"
\n

[happy barney]

nie je chomp ($a = <>); bezpečnejšie ?

[Hynek (Pichi) Vychodil]

Bohužel

$ perl -mString::Escape -le '($a = <>) =~ s/$//;print String::Escape::escape("printable", $a)' <<<"$IFS"
 \t\n
$ perl -mString::Escape -le 'chomp ($a = <>);print String::Escape::escape("printable", $a)' <<<"$IFS"
 \t

[happy barney]

hmm, to potom nerozumiem dôvodu, prečo tam máte ten regulárny výraz

[Hynek (Pichi) Vychodil]

Heh, předtím mi tam lezly dvě \n za sebou a teď už to nedělá. Už nevím čí jsem.

[Hynek (Pichi) Vychodil]

Teď koukám, že to úplně spraví

perl -mString::Escape=escape -le 'print escape("printable", scalar <>)' <<<"$IFS"

Dnes nemám svůj den. Pointa byla v tom, že se to IFS nevrátí do default podoby.

[David Watzke]

Pointa byla v tom, že se to IFS nevrátí do default podoby.

Aha, to je divný. Dík za warning.

[Petr]

Tohle nejde, promenna IFS zustane nastavena na \n i dal. Jde ale pouzit subshell, treba takto:

a=( $( IFS=$'\n'; echo "${a[*]}" | sort -n ) );

[wolf09]

echo 1 3 7 17 7 | tr ' ' '\n' | sort -k1n | tr '\n' ' '

[Jan Martinek]

V pythonu (pokud je vstupem řetězec obsahující čísla oddělená mezerou).

>>> pole="1 10 6 9 10 22 11 34 21 12 2".split()
>>> pole_int = [int(x) for x in pole]
>>> print sorted(pole_int)
[1, 2, 6, 9, 10, 10, 11, 12, 21, 22, 34]

Samozřejmě je příjemnější, když pole obsahuje rovnou čísla:

>>> pole = [1, 10, 6, 9, 10, 22, 11, 34, 21, 12, 2]
>>> pole.sort()
>>> print pole
[1, 2, 6, 9, 10, 10, 11, 12, 21, 22, 34]

[happy barney]

google: python user defined sort
uloha: v prvom príklade nepoužiť print_int

[Jan Martinek]

Tak to mě ani nenapadne. Akorát by vznikla zase další "plodná" diskuse ohledně lambdy, efektivity, přehlednosti, počtu řádků, zbytečného volání int(), přístupu decorate-sort-undecorate a nakonec by si nějaký dobrák vzpomněl, že to vlastně není v bashi

[happy barney]

to ja len tak, že niekde používate metódy, niekde funkcie, niekde pretypovanie

[happy barney]

STFW: bash array sort

1. http://tldp.org/LDP/abs/html/arrays.html v texte hľadať slovíčko bubble