Perl.it - Documenti

[3] Come posso tirar fuori le linee tra due pattern che sono loro stessi su linee diverse? ..

Potete usare l'esotico operatore .. (documentato in perlop):

    perl -ne 'print if /INIZIO/ .. /FINE/' file1 file2 ...

Se volevate il testo e non le linee, avreste dovuto usare:

    perl -0777 -ne 'print "$1\n" while /INIZIO(.*?)FINE/gs' file1 file2 ...

Ma se volete occorrenze innestate [inglese "nested", NdT] di INIZIO e FINE, vi scontrerete con il problema descritto nella domanda contenuta in questa sezione a proposito della ricerca di corrispondenze di testo bilanciato.

Ecco un altro esempio d'uso di ..:

    while (<>) {
        $nell_header =   1  .. /^$/;
        $nel_corpo   = /^$/ .. eof();
    # ora scegliete
    } continue {
        reset if eof();    # mette a posto $.
    }

vedi in inglese

AUTORE E COPYRIGHT

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalitè di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.