$juttu = "Kuvia kissanristiäisistä"; $jatke = ".html"; $indeksi = "index".$jatke; $nimi = "Matti Meikäläinen"; $vuosi = 1999; open(KUV,"$indeksi") || die "Ei voi avata indeksitiedostoa"; $i = 0; while() { chomp; $tiedosto[$i] = $_; $otsikko[$i] = ; chomp $otsikko[$i]; $teksti[$i] = ""; while(length($_=) > 1 ) { $teksti[$i] .= $_; } $i++; } --$i; print INDEX < $juttu

$juttu

    END for($j = 0; $j <= $i; $j++) { open(KUVASIVU,">$tiedosto[$j]$jatke") || die "Ei voi avata tiedostoa $tiedosto[$j]$jatke"; print KUVASIVU < $otsikko[$j]

    $otsikko[$j]

    [$otsikko[$j]]
    $teksti[$j]

    Hakemisto END if($j>0) { print KUVASIVU " | Edellinen"; } if($j<$i) { print KUVASIVU " | Seuraava"; } close(KUVASIVU); print INDEX "

  • ", "$otsikko[$j]
    • "; } print INDEX <
    © $vuosi $nimi
    END close(INDEX);