Mega Code Archive

 

Categories / Perl / Subroutine

 

My ($program, $exitCode) = @_; creates two local variables, $program and $exitCode, from @_

#!/usr/local/bin/perl -w     # Declare the subroutine named usage     sub usage     {        my ($program, $exitCode) = @_;        print "Usage: $program [-v] [-h]\n";        exit $exitCode;     }     usage ($0, 1);