Piccolo problema in perl

« Older   Newer »
  Share  
G0ld3n dr4g0n
view post Posted on 25/9/2011, 10:53




Allora sto facendo un programma che prenda in input tramite argomento un file .txt e dopo averne letto il contenuto, ogni riga verrà letta e concatenata ad un link. Il problema è che passando il file da argomento, non lo salva nella variabile, o per lo meno così sembra, perchè mi ritorna errore dicendo che il file non è presente. Vi mostro il codice:

CODE
if (@ARGV != 2) {

      print "Usage: ./0.pl www.site.com file.txt\n";

      }



     my $link = "$argv[1]";

     my $file = "$argv[2]";



      if($link !~ /http:\/\//) { $link = "http://".$link; }



          open(FILE, $file) || die "Errore! Il file $file non esiste.\n";

mi chiedo se per caso sbaglio a dare argv alle variabili, ma per come so io argv[0] serve per il programma stsso, e le altre sono per gli argomenti, solo che mi dice che il file non esiste >.<
 
Top
0 replies since 25/9/2011, 10:53   22 views
  Share