[PERL] Trova l'errore

[CirKu17]

http://nessuno.gotdns.org/no_paste/?id=126&line=1

Name "main::file" used only once: possible typo at ./linkextor.pl line 17.

Sarà che sono stanco, sarà che sto capendo male , ma non riesco a farlo andare.
Va bene così (come idea, deve solo estrarre i link di determinati tag da tutte le pagine html contenute in una cartella) ?
Dov'è l'errore?

Thanks in advance

 

[Oromis92]

l'errore dice che nomini una sola volta la variabile $file all'interno della routine main.
però vedo che in seguito la usi... boh

 

[Robertof]

E' buona cosa usare use strict e use warnings per errori piu' accurati.

  @files = grep(/\.html$/,readdir(DIR));

Variabili globali.. male! Al limite:

  my @files = grep(/\.html$/,readdir(DIR));

O al limite:

  our @files = grep(/\.html$/,readdir(DIR));

#
foreach $file (@files) {
open (FILE, ">>links.txt") or die $!;
my $file = new HTML::SimpleLinkExtor();

$file la reinizializzi due volte, puoi fare:

my $qualcosatrannefile;
foreach $qualcosatrannefile (@files) {
    my $file = new HTML::SimpleLinkExtor();
    [...]

Per finire, che indentazione di merd*.

 

[CirKu17]

Mmm, mi pare di aver provato a mettere un $qualcosatrannefile lì, ma ora rivedo.
Praticamente il codice non è indentato, ho tagliato e incollato millemila volte per cercare di far funzionare, è un riadattamento di uno script che avevo già fatto.
Grazie mille.

EDIT: Ok, risolto. Grazie

 

[Robertof]

Di nulla