Utente:Qualc1/newline2br

È uno script scritto in perl per trasformare un poesia con i versi separati dagli "a capo" in una poesia che segue lo standard, cioè con i versi separati dai <br />

Per usarlo con linux (può darsi che in qualche modo funzioni anche con windows):

1. copiatelo in un file e rendetelo eseguibile.
2. salvate nella stessa cartella dove si trova lo script la poesia formattata con gli "a capo" (SOLO la poesia, senza autore, template...). Il nome del file salvato deve essere trasforma.
3. Eseguite lo script.
4. Vi produce un file chiamato trasformato con la poesia corretta.

#!/usr/bin/perl

use strict;

open(INFILE,  "trasforma");
open(OUTFILE, ">trasformato");

my $riga;
my $n_righe_vuote=0;

while( $riga = <INFILE> ){
	if( $riga =~ /^$/ ){
		$n_righe_vuote=$n_righe_vuote+1
	}
	else{
		if($n_righe_vuote == 2){
			print OUTFILE "<br />\n";
		}
		$riga =~ s/\n/<br \/>\n/;
		print OUTFILE $riga;
		$n_righe_vuote=0;
	}
}