@
csensix ....其实很简单...我这种perl一窍不通的也能照着画出脚本来。。。
#########
#!/usr/bin/perl -w
use strict;
use Parallel::ForkManager;
my $MAX_PROCESSES=10;
my $pm=new Parallel::ForkManager($MAX_PROCESSES);
my @
exp=(
["tar -zcf /log/FY13_logs/Nov22/a.tar.gz /log/NON-PCI/app-logs/12/11/22/*"],
["tar -zcf /log/FY13_logs/Nov23/a.tar.gz /log/NON-PCI/app-logs/12/11/23/*"],
["tar -zcf /log/FY13_logs/Nov24/a.tar.gz /log/NON-PCI/app-logs/12/11/24/*"],
);
foreach my $i (@exp){
$pm->start and next;
`@$i`;
$pm->finish;
}
#########