indietro

Fino a Perl 5.8.0, $/ deve essere una stringa. Questo potrebbe cambiare nel 5.10, ma non ci sperate. Fino ad allora, potete usare questi esempi se davvero ne avete bisogno.

Se avete File::Stream, questo è semplice.

	 use File::Stream;
         my $stream = File::Stream->new(
                  $filehandle,
                  separator => qr/\s*,\s*/,
         );

	 print "$_\n" while <$stream>;

Se non avete File::Stream, dovete fare un po' più di lavoro.

Potete usare la forma a quattro argomenti di sysread per aggiungere ininterrottamente in un buffer. Dopo che avete aggiunto al buffer, controllate se avete una linea completa (usando la vostra espressione regolare).

       local $_ = "";
       while( sysread FH, $_, 8192, lunghezza ) {
          while( s/^((?s).*?)il_vostro_pattern/ ) {
             my $record = $1;
             # qui vanno le cose da fare.
          }
       }

Potete fare la stessa cosa con il foreach ed un match usando il flag c e l'anchor \G, se non vi importa che il vostro intero file sia in memoria alla fine.

       local $_ = "".
       while( sysread FH, $_, 8192, lunghezza ) {
          foreach my $record ( m/\G((?s).*?)il_vostro_pattern/gc ) {
             # qui vanno le cose da fare.
          }
          substr( $_, 0, pos ) = "" if pos;
       }

vedi in inglese