|< 1 2 3 >| | 29 Einträge, 3 Seiten |
1
2
3
4
5
sub foo {
my($param1, $param2, %args) = @_;
...
}
foo("param1", "param2", opt1 => "value1", ...);
1
2
3
4
5
6
7
sub foo {
local @ARGV = @_;
my %args;
Getopt::Long::GetOptions(%args, "bla=i", "bar=s", ...) or die;
....
}
foo(-bla => 4711, -bar => "...");
1
2
3
4
5
sub foo {
my($param1, $param2, %args) = @_;
...
}
foo("param1", "param2", opt1 => "value1", ...);
1
2
3
4
5
6
7
sub foo {
local @ARGV = @_;
my %args;
Getopt::Long::GetOptions(%args, "bla=i", "bar=s", ...) or die;
....
}
foo(-bla => 4711, -bar => "...");
|< 1 2 3 >| | 29 Einträge, 3 Seiten |