fce

[Marek]

diky za typ.
uz jsem to nasel.

Marek

Dne po 25. únor 2002 13:25 jste napsal(a):
> 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.