fork(2) download
copy 
  1. use Getopt::Long(qw/GetOptionsFromString/);
  2. my $tag;    # option variable with undef default value
  3. GetOptionsFromString('--tag', 'tag:s' => \$tag);
  4.  
  5. if (defined $tag) {
  6.     if ($tag eq '') {
  7.         $tag = '7.7.7.7';
  8.     }
  9.     print $tag;
  10. }
  11. else {
  12.     print 'No option supplied';
  13. }
Success #stdin #stdout 0.03s 4928KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
7.7.7.7
https://ideone.com/cwwPC6
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!