Ciao,
ho creato questo programmino... (per semplicità metto solo una pate del codice interessato):
Se notate alla funzione open ho inserito il percorso del file: z:/cois.txtopen (COIS, "z:/cois.txt") || print "file inesistente!\n";
flock (COIS, "$flock_ex");
while (<COIS>) { push (@ODL, $_); }
@chiave = split("\Q|", @ODL[0]); #provvisoria...
splice (@ODL,0,$r_menu);
foreach(@ODL) {
@valore = split("\Q|", @ODL[$n_linea]);
@hash{@chiave}=@valore;
print qq~
$hash{'fiat'} $hash{'punto'} $hash{'cabrio'}
~;
$n_linea++;
}
flock (COIS, "$flock_un");
close (COIS);
"Z" non è un disco locale ma una unità di rete di windows dove la mia utenza ha accesso in lettura e scrittura...
Purtroppo PERL sembra non digerire quel percorso di rete....
mentre se si tratta di un qualcunque disco locale non ha nessun problema.
Sto eseguendo ricerche su google in questo senso ma non trovo niente....