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