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';
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|