para_run

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     para_run
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     Wed Mar 26 15:10:05 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:     run parallel processing
   7 ###APPUSAGE:    (Number of Process)
   8 ###APPEXAMPLE:  cat cmd.lst | para_run 3
   9 ###APPOPTION:
  10 use strict;
  11 use Term::ANSIColor;
  12 use POSIX ":sys_wait_h";
  13 use lib $ENV{XR_PERL_MODULE_DIR};
  14 use MyPlace::Script::Usage qw/help_required/;
  15 use MyPlace::ParallelRun;
  16
  17 exit 0 if(help_required($0,@ARGV));
  18
  19 my $max=shift;
  20 my $verbose=shift;
  21 die("Number must greater than 0\n") unless($max>0);
  22
  23 para_init $max,$verbose;
  24 while(<STDIN>) {
  25     chomp;
  26     para_queue($_);
  27 }
  28 para_cleanup;
  29