#!/usr/bin/perluse File::Slurp;my $text = read_file( $ARGV[0] ) ;my @parrafos=split("\n\n", $text);for (@parrafos){ print "<p>".$_."</p>\n";}
Publicar un comentario
No hay comentarios:
Publicar un comentario