make_lib_tgz.pl

   1 #! /usr/bin/perl
   2
   3 use warnings;
   4
   5 if(!-e "libs"){
   6         mkdir "libs";
   7 }
   8
   9 open(EX, "jarlist");
  10 while(<EX>){
  11         chomp;
  12         system "cp war/WEB-INF/lib/$_ libs/";
  13 }
  14 system "tar czf libs.tgz libs/";
  15 system "rm -rf libs";