Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: checking $option

by ikegami (Patriarch)
on Jun 26, 2009 at 07:34 UTC ( #774949=note: print w/replies, xml ) Need Help??


in reply to question about getopt

This wouldn't be an issue at all if you used the standard module Getopt::Long.

Anyway,

my $source_file = defined($options{o}) ? $options{o} : 'as.xcf-dist';

or

my $source_file = 'as.xcf-dist'; $source_file = $options{o} if defined($options{o});

or

my $source_file = $options{o}; $source_file = 'as.xcf-dist' if !defined($options{o});

or

sub defined_or { defined($_[0]) ? $_[0] : $_[1] } my $source_file = defined_or( $options{o}, 'as.xcf-dist' );

or

# Requires 5.10 my $source_file = $options{o} // 'as.xcf-dist';

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://774949]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2022-08-17 07:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?