"Jupiterhost.Net" wrote: > > Howdy, Hello,
> I'm looking to have a one liner version of this: > > my $xid = ''; > $xid = param('xid') if param('xid') =~ m/^\d+$/; > > Basically, if the param is numeric then assign it to $xid, other wise '' > (IE empty but declared) Some thing like: > > my $xid = param('xid') if param('xid') =~ m/^\d+$/ || ''; > > But I know that that is not right, what am I missing? > > I could do the ? : ; dance but I'm not sure 'my' would stay in the scope > I need it in. This will work if param('xid') returns anything but undef: my ( $xid ) = param( 'xid' ) =~ /(^\d+$|)/; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>