EJERCICIO 3: TRANCOS

En este ejercicio se divide un fichero de texto en trozos, delimitados por la palabra "TRANCO", y cada tranco se descompone en párrafos.

#Programa que divide un fichero de texto en trozos. Cada trozo está delimitado por la palabra "TRANCO". Cada trozo se mete en un elemento de un array
use File::Slurp;

@ARGV || die "Uso: $0 <fichero a dividir trancos>\n";
my $text = read_file( $ARGV[0] ) ;
my @trancos=split("TRANCO", $text);

#para cada array hay una variable por defecto que referencia al último elemento indexable de un array (es como dar el tamaño del array)
#Esta variable es: $#nombre_array y su valor es num_elem-1 (los elementos se numeran empezando por 0)
#Operador .. -> inicio..fin -> iterar desde inicio hasta fin
for (@trancos[1..$#trancos]){ #Recorre el array. En cada iteración, el elemento actual está en $_
print substr($_,0,40), "\n", "-"x40, "\n"; #substr($_,0,40) es el substring que contiene los primeros 40 caracteres

#Dividir el tranco en párrafos
my @parrafos = split("\n\n", $_);

for (@parrafos){
print "<p> ", $_, "</p> \n\n";
}

}