12 lines
474 B
Perl
12 lines
474 B
Perl
sub funkshun {
|
|
my %h = @_;
|
|
# Print every argument and its value.
|
|
print qq(Argument "$_" has value "$h{$_}".\n)
|
|
foreach sort keys %h;
|
|
# If a 'verbosity' argument was passed in, print its value
|
|
# whatever that value may be.
|
|
print "Verbosity specified as $h{verbosity}.\n" if exists $h{verbosity};
|
|
# Say that safe mode is on if 'safe' is set to a true value.
|
|
# Otherwise, say that it's off.
|
|
print "Safe mode ", ($h{safe} ? 'on' : 'off'), ".\n";
|
|
}
|