Re^3: design the open function

Within the subroutine, call the fully qualified name for open: CORE::open( ....... ).

CORE::open() will always refer to the original open. ....always, that is, unless you read in perlsub how to mess that up too. ;) (Hint: don't mess with CORE::open, without an extraordinarily good reason.)

Dave

Comment on Re^3: design the open function Select or Download Code

Replies are listed 'Best First'.
Re^4: design the open function by singam (Initiate) on May 10, 2006 at 07:50 UTC
thanks for your reply Davido, `use warnings; use subs qw/ open /; sub open { print "Hello world!\n"; CORE::open($_[0],"d:\\input.txt") } 1;` [download] i call the above module named open_temp.pm from the following file `use lib "d:\\"; use open_temp; open(SEL); print <SEL>;` [download] will the above code good and efficient?? whether it will work for everything?	[reply] [d/l] [select]
Re^5: design the open function by davido (Cardinal) on May 10, 2006 at 08:02 UTC
That won't work because you're not importing the version of `open()` defined within `open_temp.pm` into package main. You really should just read the perlsub document, like I linked to before. And honestly, I don't think you've followed my advice about really really really thinking about whether you actually need to do it this way. Just because Perl lets you override built-in functions doesn't mean you should. Why do you need an overridden open function? Why not just call your new function "myopen()"? Do you have to override for some good reason? Dave	[reply] [d/l] [select]