Rev | Line | |
---|
[37] | 1 | #!/usr/bin/perl |
---|
| 2 | |
---|
| 3 | $Task = $ARGV[0] or $Task='QuadNew'; |
---|
| 4 | $PairListFlag = $ARGV[1] or $PairListFlag = 1; |
---|
| 5 | $Fdir = '/afs/cs/group/reconstruction3d/scratch/TestMultipleImage/'; |
---|
| 6 | $File = `ls $Fdir$Task/jpg/*.jpg`; |
---|
| 7 | @File = split(/\.jpg/, $File); |
---|
| 8 | #print @File; |
---|
| 9 | $Path = $Fdir.$Task.'/jpg/'; |
---|
| 10 | #print $Path."\n"; |
---|
| 11 | if (1) |
---|
| 12 | { |
---|
| 13 | # run all possible pair of images |
---|
| 14 | if ($PairListFlag == 0) |
---|
| 15 | { |
---|
| 16 | |
---|
| 17 | for ($i = 0; $i < @File; ++$i) |
---|
| 18 | { |
---|
| 19 | $File[$i] =~ s/$Path//; |
---|
| 20 | $File[$i] =~ s/\n//; |
---|
| 21 | # print $File[$i]; |
---|
| 22 | } |
---|
| 23 | for ($i = 0; $i < @File-1; ++$i) |
---|
| 24 | { |
---|
| 25 | for ($j = 0; $j < (@File-1); ++$j) |
---|
| 26 | { |
---|
| 27 | if ($i < $j) |
---|
| 28 | { |
---|
| 29 | $Img1 = $File[$i]; |
---|
| 30 | $Img2 = $File[$j]; |
---|
| 31 | print $Img1." "; |
---|
| 32 | print $Img2."\n"; |
---|
| 33 | `qsub -l arch=i686 -v $Img1,$Img2,$Task PairModel.sh`; |
---|
| 34 | } |
---|
| 35 | } |
---|
| 36 | } |
---|
| 37 | } |
---|
| 38 | else |
---|
| 39 | { |
---|
| 40 | # run Pairs im PairList only |
---|
| 41 | $file = $ARGV[2] or $file = 'PairList.txt'; |
---|
| 42 | open(INFO, $file); |
---|
| 43 | @PairList = <INFO>; |
---|
| 44 | close(INFO); |
---|
| 45 | |
---|
| 46 | for ( $i = 0; $i < @PairList; ++$i) |
---|
| 47 | { |
---|
| 48 | @Target = split(/ /, $PairList[$i]); |
---|
| 49 | $Target[0] =~ s/\n//; |
---|
| 50 | $Target[1] =~ s/\n//; |
---|
| 51 | `export Img1 = $Target[0]`; |
---|
| 52 | `export Img2 = $Target[1]`; |
---|
| 53 | `echo '$Img1'`; |
---|
| 54 | `echo '$Img2'`; |
---|
| 55 | #print $Img1." "; |
---|
| 56 | #print $Img2."\n"; |
---|
| 57 | `qsub -l arch=i686 -v '$Img1','$Img2','$Task' PairModel.sh`; |
---|
| 58 | } |
---|
| 59 | } |
---|
| 60 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.