There's more than one way to do things | |
PerlMonks |
Re: regular expression troubleby NetWallah (Canon) |
on May 31, 2013 at 14:39 UTC ( [id://1036257]=note: print w/replies, xml ) | Need Help?? |
In addition to this, for the case when the key starts with "-" ( if (/^-/) ), You are not appending to $names. The "for" loop and "chop"s could be replaced by: (I have made some assumptions on what you want done when the key starts with "-".)
"I'm fairly sure if they took porn off the Internet, there'd only be one website left, and it'd be called 'Bring Back the Porn!'"
In Section
Seekers of Perl Wisdom
|
|