ARGV e while(<>)

[Sidur]

Ciao a tutti,
ho realizzato uno script che deve fare una serie di matching all'interno di un file di testo.

Quindi per fargli analizzare il file uso

while(<>){
...
}

Però devo confrontare questo testo con una parola che gli viene passata dall'esterno.

Siccome la passo attraverso PHP, non riesco ad utilizzare stdin, dovrei piuttosto utilizzare @ARGV.

Il problema è che se invoco perl così:

perl script.pl file1.txt > file2.out

e non posso passare anche la parola, perché perl cerca un file con lo stesso nome e, non trovandolo, mi da errore.

Grazie dell'aiuto

[shishii]

di preciso cosa intendi dire con 'la passo attraverso php'?

[Sidur]

così:

SYSTEM("perl script.pl $filein > $fileout");

e ho bisogno di passargli un'ulteriore variabile, ma non posso recuperarla con @ARGV perché mi cerca il file...

[shishii]

prova:

SYSTEM("perl script.pl $filein $seconda_variabile > $fileout");

e nello script perl:

open(FILE, "<$ARGV[0]");
while (<FILE>) {
# qui hai in $ARGV[1] la seconda variabile
}
close FILE;

[Sidur]

Ok, funziona! Grazie mille...