[Linux-Biella] perl

[vallinidaniele a libero.it]

Devo costruire l' elenco delle sottopagine televideo automaticamente
leggendo dalla pagina il numero di sottopagine e costruendo per ogni
pagina l' array delle sue sottopagine.

Dato che il processo e' iterativo immetto progressivamente i dati in
un file e da esso alla fine estraggo l' array di tutte le sottopagine.

Per il debug mi e' andato bene vedere immediatamente i trambusti nel
file ma ora sarebbe dignitoso costruire direttamente l' array finale
ma non so come fare.

Qualche ruminatore di perl puo' aiutarmi?

Di seguito il codice:
-------------------------------------------------------------
open B, ">/gp/tlvrai/sotpag";      # inizializzo in scrittura 
$"="";                            # separatore di lista nullo 
@pg=(370..378);                    #array pagina fondi esteri 
$pg=@pg;                                      # numero pagine  
foreach $x(0..$pg-1)                     # processo le pagine 
 {
  open A, "/gp/tlvrai/pagine/@pg[$x]";      # apro in lettura  
  @rg=<A>;                               # array righe pagina  
  @rstp=split (//, a rg[23]);         # riga valore sottopagina  
  #print "@rg[23]"; 
  $stp="@rstp[38,39]";               # valore sottopagina max 
  @z=(1..$stp);                    # array numero sottopagina 
                                              
  foreach $y(0..$stp-1)             # processo le sottopagine 
  {          
   open B, ">>/gp/tlvrai/sotpag";            # apro in append 
   print B  "@pg[$x]. a z[$y] "     # scrivo elenco sottopagine 
  };
 };
close A;                           # chiudo /gp/tlvrai/pagine 
close B;                           # chiudo /gp/tlvrai/sotpag  
@fonext= (`cat /gp/tlvrai/sotpag`);       # array sottopagine 
-------------------------------------------------------------
Ringraziamenti vari ed assortiti.

-- 

      Vallini Daniele

+-----------------------------------------------------------------------+
| Per lavorare  con efficienza  utilizzo unicamente  Linux  e files nei |
| formati unificati ed affidabili.  Per cortesia quindi non .doc o .xls |
+-----------------------------------------------------------------------+