Reunion social de Octubre de 2009
#!/usr/bin/perl use strict; use warnings; our $social_meeting = { where => 'El rincon guay', when => 'Miercoles 21 de Octubre a las 19:30', who => [qw/ diegok roberto /, (rand > .05 ? 'salva' : ())] }; $social_meeting->{where} = { name => $social_meeting->{where}, former_name => 'El Rincon de Cambre', address => 'Embajadores 62, Lavapies, Madrid, Spain' }; $social_meeting->{where}{name} =~ s/\b(\w)/uc $1/ge; push @{$social_meeting->{who}}, 'deibyz';
¿Te apuntas?
Mostrando cambios de edición anterior. Eliminado | Añadido
