make_lib_tgz.pl

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