Frase al azar

Estas simples lineas me generan la frase pseudo-aleatoria que incluyo en mis paginas y en mi firma del correo. Simple, verdad? Lo unico infrecuente es esa regex, que prefiero al chop para evitar que este se coma la ultima letra de la entrada si no es un cambio de linea. Sin mas preambulos, (frasealazar):

#!/usr/bin/perl @frases=<STDIN>; foreach $linea (@frases) { $linea =~ s/\n$//; } srand(); print "$frases[int(rand(scalar @frases))]\\n";

Keith Amling (25/09/2005, 13:17) perl's chop and chomp can perform =~ s/\\n$//. chop always removes the last character and chomp removes it if it is a newline. In this case "chomp $linea;"

Otras entradas de la web que podrian interesarte:

• (830)  May 28  PERL LINUX ENGLISH  Installing CPAN Perl modules made easy
• (829)  May 28  PERL LINUX  Instalar modulos CPAN de Perl
• (917)  Apr 24  PROGRAMACION PYTHON AZAR  Numeros aleatorios en Python
• (902)  Jan 25  PERL DBI PROGRAMACION ENGLISH MYSQL  Reading a random row from a MySQL table with Perl DBI
• (394)  Aug 05   INDICE   Scripts en perl