[Pdx-pm] Getopt::Modern usage model

[Michael G Schwern]

On Thu, Jun 09, 2005 at 05:01:10PM -0700, Eric Wilhelm wrote:
> The trouble here is that you don't get shell interpolation for the stuff 
> after the equals:
> 
>   perl -e 'print join(" ", @ARGV), "\n"' -- --foo=~ --foo ~
> 
> Is there a good, secure, reliable, cross-platform way to do shell 
> expansion within Perl?   Otherwise it seems like a source of confusion 
> (not good since the point of this module is to avoid those.)

I'd let the program worry about that.  Most shell expansion works.

$ perl -wle 'print join " ", @ARGV' -- --foo={1,2}
--foo=1 --foo=2

Its only ~ expansion that doesn't and that's easy.

	$path =~ s/^~/$ENV{HOME}/ if defined $ENV{HOME};


-- 
Michael G Schwern     schwern at pobox.com     http://www.pobox.com/~schwern
You are wicked and wrong to have broken inside and peeked at the
implementation and then relied upon it.
	-- tchrist in <31832.969261130 at chthon>