sub foo {
my $self = shift;
my $hash_ref = shift;
####
# and so on...
}
##
##
my %hash = %{ shift };
##
##
my %hash = %{ +shift };
##
##
my %hash = %{ shift() };
##
##
sub my_lc { lc +shift; }
sub my_uc { uc +shift; }
##
##
printf("#%02x%02x%02x %s\n", /(\d+)\s+(\d+)\s+(\d+)\s+(.*)/);
##
##
#!/usr/bin/perl
while (<>) {
print "$_\n";
}
##
##
$ ./script a b c
Can't open a: No such file or directory
Can't open b: No such file or directory
Can't open c: No such file or directory
##
##
@ref = \($a, $b, $c);
##
##
my %opt;
GetOptions(\%opt, "size|s=i");