fce

[Honza Pazdziora]

On Mon, Feb 25, 2002 at 01:22:27PM +0100, Marek wrote:
> Muze me nekdo nakopnout kde mam chybu.
> Mam skript v kterem, prochazim pole  a vypisuju jednotlive polozky po jedne.
> A k tomuto  vypisu chci jeste pridat retezec ktery, me generuje podprogram.
> 
> sub gen($pok) {
> for ($l=0;$l<3;$l++){
> 	$cislo=int(rand 8);
> 	$cislo1=int(rand 8);
> 	$pom=@pole1->[$cislo];
> 	$pom1=@pole1->[$cislo1];
> 	@pole1->[$cislo]=$pom1;
> 	@pole1->[$cislo1]=($pom);
> 	$heslo=join "", na pole1;
> 			    }    
> 
> a toto jsi volam v cyklu ktery prochazi tim polem a problem je v tom ze v 
> druhem pruchodu me to necha retezec a pripoji dalsi a tak to narusta s poctem 
> cyklu.
> mam to 
> foreach $line (@h) {
> 		($jmeno,$mail)=split(/;/, $line);
> print "Jmeno je : $jmeno \n";
> print " Adresa je : $mail \n";
> &gen($heslo) ;
> print " Heslo je:  $heslo \n";
> 
> Kde je chyba ? 

Napiste na zacatek toho skriptu

	use strict;

a pak pred vsechny lokalni promenne my. Urcite zjistite, kde se deji
spatne veci.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
      ... all of these signs saying sorry but we're closed ...
------------------------------------------------------------------------