[Tech] Perl ? Carino, ma...

[Cosimo Vagarini]

Claudio Cicali scrisse, il 18-Apr-2001
> #!/usr/bin/perl
> ($infile) = @ARGV;
> open (RAWDATA, "<$infile") or die "Impossibile aprire $infile: $!";
> while (<RAWDATA>) {
>      $line = $_;
>      if ($line =~ m/ciao/) {
>       print "Hello\n";
>      }
> }
> close (RAWDATA);

Io lo faccio continuamente (log di apache gzippati di 800MB quindi un file
gun-zippato enorme) e non ho mai avuto problemi.

Lo ho provato adesso con un file di 750MB ed e' andato tutto liscio.
Si e' allocato un MB alla partenza ed e' rimasto li fermo.

Sicuro che il problema non sia nella parte "non postata" del programma?

Cosimo.