Help for this page

Select Code to Download


  1. or download this
    - For every array element,
  - Extract the numeric component of the element.
...
      - Print whatever
    - Else
      - Print whatever
  2. or download this
    for my $id (@array_code) {
   my ($num) = $id =~ /(\d+)/ or next;
...
   my $code = $code_numbers{$num} || 'IN';
   print("$id $code\n");
}
  3. or download this
    for my $id (@array_code) {
   my ($num) = $id =~ /(\d+)/ or next;
...
   $code = 'IN' if !length($code);
   print("$id $code\n");
}