#!/usr/bin/env perl
use strict;
use warnings;
print "Invocado como [[$0]]\n";
print "Arg: [[$_]]\n" foreach @ARGV;
print "Vamos otra vez:\n";
foreach $_ (@ARGV) {
print "[[$_]]\n" if ($_ eq uc $_);
};
#!/usr/bin/env perl
use strict;
use warnings;
print "Invocado como [[$0]]\n";
print "Arg: [[$_]]\n" foreach @ARGV;
print "Vamos otra vez:\n";
foreach $_ (@ARGV) {
print "[[$_]]\n" if ($_ eq uc $_);
};
Comments