#!/usr/bin/perl use CGI; use Vallet4; # variabili # numero articoli + 1 # $nart=96; $elenc = 'elenco_base'; $form = new CGI; open (CAP, "$elenc") or die "Can't open $elenc: $!\en"; while () { # legge da file $elenc chomp($_); # toglie /n $elenco[$y++] = $_; # memorizza le righe nell'array @elenco } print $form->header('text/html'); print <<'ENDHTML'; Elenco prezzi unitari

Allegato al contratto ed al Capitolato speciale d'Appalto.

*****

Tariffa dei prezzi unitari in base ai quali, sotto la deduzione del ribasso d'asta, verranno remunerate le opere compiute.

*****

Scegli le voci da inserire nell'elenco personalizzato.

*****

Parte prima: Opere compiute

 ENDHTML # for ($i = 1; $i < $nart; $i++) { for $i (1..$#elenco/3) { print <<'ENDHTML'; ENDHTML } print <<'ENDHTML';

ENDHTML print $i; print <<'ENDHTML';

ENDHTML print $elenco[(3*$i-3)]; print <<'ENDHTML';

 

ENDHTML print $elenco[3*$i-2], &num_let($elenco[3*$i-1]); print <<'ENDHTML';


oppure

Premere qui per andare alla homepage   Tab

Data ultimo aggiornamento ENDHTML print &adesso; print <<'ENDHTML';
Indirizzo di posta elettronica: palloni@tol.it

 

ENDHTML # prez02.cgi