split

[Pavel Kunc]

no chybicka se vzdycky najde :-))

a ja jich mam spousu :-))))

uz to chodi.

Honza Pazdziora <adelton na informatics.muni.cz> wrote in message
news:20000124124120.L2550 na aisa.fi.muni.cz...
> On Mon, Jan 24, 2000 at 12:39:27PM +0100, Pavel Kunc wrote:
> > while (($autor, $nazev, $cena, $num_pol, $dilna, $provenience,
$index_kat) =
> > $st->fetchrow_array)
> >  {
> >   push @ROW, join '|', $index_kat, $autor, $nazev, $cena, $num_pol,
$dilna,
> > $provenience;
> >  }
> >  foreach $value (sort @ROW)
> >  {
> >   print "$value<br>\n";
> >   ($index_kat, $autor, $nazev, $cena, $num_pol, $dilna, $provenience) =
> > split /|/, $value;
> >   print "$index_kat $autor $nazev $cena $num_pol $dilna
$provenience<br>\n";
> >  }
>
> Tohle mnohem lepe napsat jako selectall_arrayref.
>
> > Tohle se mi tiskne:
> >
> > 0|BENEDÍK Karel (*1923)|Kosatce s růžemi|38000|5||    =>  $value pred
split
> > 0 | B E N E D    => split to takhle zpitvori
>
> Na to byste mohl prijit sam.
>
> ------------------------------------------------------------------------
>  Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
>    .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
> ------------------------------------------------------------------------