Help for this page

Select Code to Download


  1. or download this
    if ($subscript == 1) {
  $aphor = $aphor1
} elsif ($subscript == 2) {
  $aphor = $aphor2
#... up to and including elsif (subscript == 7) { .. }
  2. or download this
    use strict;
use warnings;
my $str = 'aa~~bb';
my $splBRK = '~~';
my @sect = split /$splBRK/, $str;
print "<$_>\n" for @sect;