[Tech] Perl ? Carino, ma...

[Claudio Cicali]

Saro' breve: se non esiste soluzione a questo mio (stupidissimo)
problema, PERL succhia.

Il seguente programma, fatto girare con in input un file di 600Mb
*ammazza* la macchina. Dopo qualche minuto esce con un bel
"Out of memory !" (a ragione, visto che di memoria non ne ha piu').
(Il programma, naturalemnte, e' un estratto minimale di un programma
piu' complesso)

#!/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);

o-------------------o----------------------o
|  Claudio Cicali   | http://www.flexer.it |
|c.cicali@mclink.it |    Nerd Made Good    |
o-------------------o----------------------o