Help for this page

Select Code to Download


  1. or download this
    if    ($item eq 'thing1') { # ... }
    elsif ($item eq 'thing2') { # ... }
    elsif ($item eq 'thing3') { # ... }
    elsif ($item eq 'thing4') { # ... }
    else                      { # ... }
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    ...
        $opt->{t} = $opt->{n} * 10 if ! defined $opt->{t};
        $opt->{u} = 0              if ! defined $opt->{u};
    }
    
  3. or download this
    #!/usr/bin/perl
    use strict;
    ...
            }
        },
    });