fce

[Marek]

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 ? 

Marek