public
Created

The perils of & (and prototypes too!)

  • Download Gist
ampersand.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/env perl
 
use strict;
use warnings;
 
$"=' and '; # this is just showing off :-)
 
sub mysub ($) { print "@_\n" }
 
sub main {
&mysub(@_);
mysub(@_);
&mysub;
 
my $greeting = shift;
&mysub($greeting);
mysub($greeting);
&mysub;
}
 
main('hello world', 'good bye!');

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.