...
Code Block | ||||
---|---|---|---|---|
| ||||
sub open { my ($arg1, $arg2, $arg3) = @_; print "arg1 = $arg1\n"; print "arg2 = $arg2\n"; print "arg3 = $arg3\n"; } open( FOOmy $input, "<", "foo.txt"); # What does this do? |
...
Code Block | ||||
---|---|---|---|---|
| ||||
sub my_open { my ($arg1, $arg2, $arg3) = @_; print "arg1 = $arg1\n"; print "arg2 = $arg2\n"; print "arg3 = $arg3\n"; } my_open( my FOO$input, "<", "foo.txt"); |
Exceptions
...