| Revision: | 1.1 |
| Committed: | Tue Jan 10 13:06:55 2006 UTC (19 years, 3 months ago) by elmer |
| Branch point for: | one, MAIN |
| Log Message: | Initial revision |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | elmer | 1.1 | #!/usr/bin/perl |
| 2 | $| = 1; | ||
| 3 | $i = 0; | ||
| 4 | $f = 1; | ||
| 5 | $len=@ARGV; | ||
| 6 | if($len > 0) { | ||
| 7 | $f = $ARGV[0]; | ||
| 8 | } | ||
| 9 | if ( $len > 1) { | ||
| 10 | $sched = "-scheduler $ARGV[1]"; | ||
| 11 | } | ||
| 12 | print $1; | ||
| 13 | while ( $i < $f ) { | ||
| 14 | system "boss s -jobtype test -executable test.pl -stdin in -stdout out.$i -stderr err.$i -infiles test.pl,in -outfiles out.$i,err.$i -args 3000 $sched"; | ||
| 15 | $i++; | ||
| 16 | } | ||
| 17 | |||
| 18 |