Help for this page

Select Code to Download


  1. or download this
    foreach (@members_name) {
  if (/^${accountnumber}_/) {
...

  }
}
  2. or download this
    foreach my $member ($zip->members()) { # print file information
      my $member_file_name = $member->fileName();
...
    foreach (@{$members_name{$accountnumber}) {
      to_sub( $zip, $accountnumber, $_ );