Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my @dias = qw ("12-7-2011" "13-7-2011" "14-7-2011");
- foreach my $dia (@dias) {
- $data = $dia;
- pesquisa($data);
- }
- sub pesquisa {
- print "eu recebi : ",shift, "\n";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement