Shell Programming and Scripting

system("your zip command here");

system( 'zip', $file )

#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my $filename = "$cur_dir/$ARGV[0]";
my ($record,$header,$i,@fields,%files,$key,@fileLst);

open(FILEIN,"<$filename") or die"open: $!";
while( defined( $record = <FILEIN> ) ) {
  chomp $record;
  $header=$record if (!defined $header);

  $i++;
  if($i > 1) {
    @fields=split(/\|/,$record);
    if(! exists( $files{$fields[0]}) ) {
      $files{$fields[0]} = "$fields[0].file";
      open (FILEOUT, "> /tmp/$files{$fields[0]}") ||
        die "FATAL: cannot open \"$files{$fields[0]}\" for writing: $!\n";
      push(@fileLst,"/tmp/$files{$fields[0]}");
      print FILEOUT "$header\n";
      close(FILEOUT);
    }
    open (FILEOUT, ">> /tmp/$files{$fields[0]}") ||
      die "FATAL: cannot open \"$files{$fields[0]}\" for writing: $!\n";
    print FILEOUT "$record\n";
    close(FILEOUT);
  }
}
close(FILEIN);

foreach (@fileLst) {
  system("zip /tmp/zipfile.zip $_");
}

%./file025.pl file026
  adding: tmp/SU.file (deflated 10%)
  adding: tmp/AR.file (deflated 9%)

dpi@%unzip -l zipfile.zip
Archive:  zipfile.zip
  Length     Date   Time    Name
 --------    ----   ----    ----
       91  06-25-13 08:51   tmp/SU.file
       93  06-25-13 08:51   tmp/AR.file
 --------                   -------
      184                   2 files

  SU.zip
  AR.zip

Global symbol "@fileLst" requires explicit package name

my ($record,$header,$i,@fields,%files,$key,@fileLst);