miércoles, 23 de abril de 2008

Ejercicio Cuatro (con Eva Hache)

Ahora vamos a poner un tag <p> para cada párrafo:

#!/usr/bin/perl

use File::Slurp;

my $text = read_file( $ARGV[0] ) ;
my @parrafos=split("\n\n", $text);

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


Tachán!

No hay comentarios: