Dotaz: Perl - Hashe, serazeni podle abecedy

[Petr]

Dobrý den,

prosím vás, neexistuje v perlu nějaký příkaz nebo funkce, která seřadí hodnoty v "hashi" abecedně podle klíčů? Tak, aby dvojice klíč-hodnota zůstala stejná.

Mám hashe, kde jako klíče jsou řetězce a hodnoty jsou čísla. Nejde o české řazení. Řazení podle hodnot v ASCII.

Děkuji předem za každou radu.

Odpovědi

[Jan Šimák]

Třeba takto:

use sort 'stable';
foreach (sort keys %values) {
	print $_, $values{$_}, "\n";

}

[luky]

u hashe stable neni nutny, protoze se hodnoty nemuzou opakovat a hash nema pevne poradi.

[Jan Šimák]

Pravda, díky za doplnění.

[Petr]

Děkuju za pomoc.

[Petr]

Ještě bych se rád zeptal, jak by měl správně vypadat regulární výraz, kterým projdou jen řetězce, které konč na !x nebo !y.

Mám ho napsaný takto: m/![xy]$/

Ale tím mi projde i např. řetězec "neco!sx"

[buff]

Regulární výraz máš podle mě dobře, mně se chová podle očekávání, tj. tento skript

if ("neco!sx" =~ m/![xy]$/) {
    say "Ano";
}
else {
    say "Ne";
}

vypíše "Ne".

[Jan Šimák]

regex je ok, viz buffova ukázka. Pro konkrétnější radu je potřeba více informací, např.: kód kolem regexu, vstup který se porovnává.

[Petr]

chci aby prošli jen nazvy souborů s příponou .x nebo .y (s tím vykřičníkem jsem to jen testoval)

[potato]

Tečka v regulárním výrazu znamená libovolný znak.

[Petr]

if ("neco.sx" =~ m/.[xy]$/) { print "Ano"; } else { print "Ne"; }

vypise ANO

[Petr]

Děkuju, už to mám "\."

[buff]

viz perlfaq4