Re: Do this in one step (grab vars with s///)

[Harry Putnam]

Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> writes:
[...]

>>(($var1, $var2) = $incoming) =~ s/(^ *\-)([A-Z])( *\-)([a-z])/$2/;
>
> Use this:
>
>   ($var1, $var2) = $incoming =~ /-([A-Z])/g;

Thanks... thats handy.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>