Help for this page

Select Code to Download


  1. or download this
        @values = split(/\|/,$case);

...
    $unique_id        = $values[3];
    $case_num            = $values[4];
    $case_part        = $values[5];
  2. or download this
    my ($driveltr, $dira, $dirb, $unique_id, $case_num, $case_part) = spli
+t(/\|/,$case);
  3. or download this
    use strict;
use warnings;
...
  }
  die 'write error' unless $zip->writeToFileNamed( $zip_file_name ) ==
+ AZ_OK;
}