Help for this page

Select Code to Download


  1. or download this
    my %xref = ( 
    'abbrev1' => '100 - Non-Abbreviated 1',
    'abbrev2' => '200 - Non-Abbreviated 2',
    ...
);
  2. or download this
    my $alternations = join '|', keys %xref;
my $regexp = qr/\b($alternations)\b/;
  3. or download this
    my( $abbrev ) = $raw_response =~ m/$regexp/;
my $std_response;
...
    die "No valid response found in <<$std_response>>";
}
print "$std_response\n";