use MyModul qw( -auto => 1 );
2011-09-05T18:12:56 rostiWie kann ich in einer sub{} möglichst "Elegant" unterscheiden, ob ein Array oder ein Hash übergeben wurde?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl -w use strict; use warnings; my @arr = ('a','b'); my %has = ( foo => 'bar', bar => 'foo', ); test (\@arr); test (\%has); sub test { print "bekomme: " . ref ($_[0]) . "\n"; }
1
2
3
$ perl -wE 'use strict; use CGI utf8'
Bareword "utf8" not allowed while "strict subs" in use at -e line 1.
Execution of -e aborted due to compilation errors.