Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my $tokens_ref = $p6->Format('abc');
    die "Invalid pattern" unless (defined $tokens_ref);
    print Dumper $tokens_ref;
    
  2. or download this
    $VAR1 = [
              'a',
              'b',
              'c'
            ];