Por
Saiyine
el 2003-08-07 00:00:00 - Secciones: - Enlace permanente: 392
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:
. . .
. . .
. . .

. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2010 Saiyine generada en s, con 4639760 visitas en total, hoy (de un total de 0 previstas).
. . .