#!/usr/bin/perl use Cwd; use Encode; use LWP::Simple qw(get); my $dir = getcwd; #這個能夠獲取路徑scala
#print "path $dir \n" ; my $controlNum=5; my $rootPath = "D:\spket\*" ; my @projectName= glob($rootPath);code
for(@projectName){ print $."\n"; my @workfolwName =glob($."\"); for(@workfolwName){ #流水線目錄 # print "workflowName $_ \n"; my %gg ; my @jobName = glob($_."\"); if(scalar(@jobName) >$controlNum){#判斷文件數大於預設個數則處理 for(@jobName){ #遍歷循環jobName if($=~m/job/g){#包含特定字符的文件夾 my $startIndex = index($,"job",0)+length("job_");#第一個_的位置 my $endIndex = index($, "" , index($,"job",0)+length("job_")+1 ) ; my $jobLeng = $endIndex-$startIndex; my $id= substr($,$startIndex,$jobLeng); $gg{$id}=$ ; # print " id == $id jobPathName = $_ \n"; }get
my @cc = sort{$b<=>$a} keys %gg; for(my $i=0 ; $i<scalar(@cc);$i++ ){ if($i>$controlNum){ while(my ($key,$value)= each(%gg)){ #print " key == $key \n"; if($key eq $cc[i-1] ){ print "delPath = $value \n"; } } } } } } }
}workflow