Portál AbcLinuxu, 9. května 2025 19:03

Dotaz: jak se otestuje, jestli proměná existuje v poli

26.10.2009 21:21 Jcas | skóre: 19 | blog: linux v rukou ...
jak se otestuje, jestli proměná existuje v poli
Přečteno: 440×
Odpovědět | Admin
Mám definováno pole s několika prvky. Využiji vstupu (read) a jestli proměná exituje v poli, tak chcu nadále pracovat poze s touto proměnou (s tímto jedním prvkem z pole) a pokud neexistuje, potřebuji pro read poskytnout druhy pokus (preklep). děkuji
Nástroje: Začni sledovat (1) ?Zašle upozornění na váš email při vložení nového komentáře.

Odpovědi

26.10.2009 21:31 FooBar
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Odpovědět | | Sbalit | Link | Blokovat | Admin
Mozna by pomohly detaily, jako treba o jaky jazyk se jedna...
26.10.2009 21:34 Jcas | skóre: 19 | blog: linux v rukou ...
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
omlouvám se bash
26.10.2009 21:32 Jcas | skóre: 19 | blog: linux v rukou ...
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Odpovědět | | Sbalit | Link | Blokovat | Admin
napadlo mě
read y
${pole[$y]}
ale v okamziku preklepu jsem na mrtvem bode.
26.10.2009 21:59 12345 | skóre: 41 | blog:
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Odpovědět | | Sbalit | Link | Blokovat | Admin
Co třeba takhle? Pole to přímo není, ale bash AFAIK stejně nemá nativní funkci pro vyhledávání v poli, takže toto by mohlo být i efektivnější.
check() {
	what=$1
	shift
	for i in $@; do
		[ "$what" = "$i" ] && return 0
	done
	return 1
}

while true; do
	read x
	check $x alpha beta gamma && break
done

echo $x
27.10.2009 08:10 Jcas | skóre: 19 | blog: linux v rukou ...
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Pěkné děkuji. A ještě, protože jsu laik bych poprosil vysvětlení (jestli to chápu správně). Vím že tohle nemáte rádi "neotravuj a nastuduj si to", ale hned jak došla tato odpověď, tak jsem studoval, co se vlastne děje. Takže jestli jsem to pochopil dobře.
while true; do   
    read x
    check $x alpha beta gamma && break  
done
Je-li splněna podmínka true, provede se cyklus. Protože následně volám funkci, která vrací true, nebo false, cyklus bud probehne, nebo ne. Volám funkci check a $x, kterou zadal uživatel odesílám jako první poziční parametr. alpha beta gamma odesílám jako další poziční parametry.

Takže takhle může přece odeslat přímo to pole a zpracuje se to stejně???
check $x ${pole[*]}
funkce check()

definuju promenou what=$1, což znamená, že ji přiřadím první poziční prametr, tedy naše $x, který zadal uživatel.

shift zajistí posun poz. par.

a následně v cyklu for přiřadím prom. i všechny poziční parametry pomocí $@.
[ "what" = "i" ] && return 0
jestli se what = i, tedy jestli naše zadané $x se najde ve výpisu poz. par. ($@), pak funkce vrátí nepravdu a protože podmínka cyklu while nebyla splněna, cyklus neproběhne a script pokračuje dalším příkazem.

Zde mám nejasnost s shift. Neměl by být umístěn později? Když posunu poz. param., tak $1 zmizí a na její místo se posune $2. To by přece znamenalo, že už potom nebude figurovat v $@ a tedy se nesplní podmínka [ "what" = "i" ] No ono to funguje, takže tohle nechápu. Mě připadá logické umístit shift na konec funkce.

27.10.2009 13:01 Jirka P
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
shift je tam dobře. Po tom, co jste si uložil to, co hledáte, do $what, se ho tím shiftem zbavíte, a v $@ vám zbyde jen to prohledávané pole. Naopak, shift na konci funkce je k ničemu (parametry tam stejně přestávají existovat).
27.10.2009 13:10 12345 | skóre: 41 | blog:
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Je to trošku jinak.

Funkce check očekává jako 1. parametr to zadané x (jehlu) a na všech dalších pozicích seznam povolených hodnot (kupku sena). Když si do what přiřadím $1 a provedu shift, v seznamu parametrů mi zbudou jen ty povolené hodnoty. Pokud je při provádění cyklu splněna podmínka [ "$what" = "$i" ], znamená to, že jehla se v kupce sena našla a funkce tím pádem vrátí pravdu (nulová návratová hodnota znamená úspěch). Pokud cyklus proběhne do konce a jehla se nenajde, funkce vrátí 1, což značí neúspěch. check bych nazval funkcí s negativním očekáváním.

Cyklus while true sám o sobě nikdy neskončí – true bude pravda až do konce světa :-). check $x alpha beta gamma && break znamená, že v případě úspěchu funkce check() se nekonečný cyklus přeruší a program pokračuje dál. break je jedna z možností, jak přerušit nekonečný cyklus. Jestli z nějakého jazyka znáš cyklus s logikou do – while, tak tohle je obezlička pro jazyky, které mají jen while – do:
while (true) {
  delej_neco();
  if (!podminka) {
    break;
  }
}
Volání pomocí check $x ${pole[*]} je samozřejmě v pořádku.
27.10.2009 17:20 Ash | skóre: 53
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Volání pomocí check $x ${pole[*]} je samozřejmě v pořádku.

No, přijde na to... Dost doporučuji používat ${pole[@]} místo ${pole[*]} popř. $@ místo $* kde to jen jde, poměrně často se vyskytne podmínka že hodnoty v poli mohou obsahovat mezery.
27.10.2009 17:41 Ash | skóre: 53
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
I když při standardním nastavení IFS (mezera atd.) to v tomto případě vyjde nastejno, to je fakt.
27.10.2009 18:19 Jirka P
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Právě že ono to nevyjde nastejno (resp. vyjde to nastejno vždy, nezávisle na IFS). Funguje to tak, že některé tokeny (musel bych se podívat, které to přesně jsou) se po nahrazení proměnných ještě rozdělí na pole podle IFS. Tedy

A="ls -a"
$A

spustí ls s parametrem -a. V tomhle případě je jedno, co je tam za proměnnou, důležité je, že její výskyt není v uvozovkách. Když to dáme do uvozovek, žádná expanze na pole se neprovede:

A="ls -a"
"$A"

zahlásí chybu, že program "ls -a" neexistuje. Je ale výjimka: pokud do uvozovek dáte proměnnou $@ nebo ${xxx[@]}, expanze na pole se provede, ale ne podle IFS (mezery apod.), ale tak, aby byly zachovány původní parametry/prvky pole. Příklad (spusťte a sledujte chybové hlášky):

set ls "adresář neexistuje"
$*
"$*"
$@
"$@"

Závěr: když nechcete expanzi, používejte @ místo * a dávejte to do uvozovek.
28.10.2009 09:23 Ash | skóre: 53
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Hezké příklady a máte pravdu, zapomněl jsem opravit uvozovky i v té funkci in_array, takže mi to nefungovalo... Finálně tedy:
in_array() {
  local i
  needle=$1
  shift 1
  for i in "$@"; do
    [[ "$i" == "$needle" ]] && return 0
  done
  return 1
}

pole[0]=foo
pole[1]=bar
pole[2]="dve slova"

read slovo

in_array $slovo "${pole[@]}" && echo ok
28.10.2009 09:25 Ash | skóre: 53
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
in_array "$slovo" tedy
27.10.2009 08:02 Ash | skóre: 53
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Odpovědět | | Sbalit | Link | Blokovat | Admin
Google, "in_array bash". Upravená verze zde:
in_array()
{
  local i
  needle=$1
  shift 1
  # array() undefined
  [ -z "$1" ] && return 1
  for i in $@
  do
    [ "$i" == "$needle" ] && return 0
  done
  return 1
}

pole[0]=foo
pole[1]=bar
pole[1]="dve slova"

read slovo

if in_array $slovo ${pole[@]}; then
  echo ok
else
  echo ko
fi
27.10.2009 12:56 Jirka P
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
  # array() undefined
  [ -z "$1" ] && return 1

Tohle je hodně divné. Proč by se v poli, které začíná prázdným řetězcem, nemělo dát nic najít?
27.10.2009 16:44 Ash | skóre: 53
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
jo, autor se patrně sekl, podmínku bych odstranil
27.10.2009 20:09 Jcas | skóre: 19 | blog: linux v rukou ...
Rozbalit Rozbalit vše Re: jak se otestuje, jestli proměná existuje v poli
Odpovědět | | Sbalit | Link | Blokovat | Admin
děkuji mockrát. Myslím, že co se týče této funkce jsem to už pochopil na 100%

Založit nové vláknoNahoru

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.