- Timestamp:
- 2013-08-15T22:09:07+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
other-projects/nightly-tasks/diffcol/trunk/diffcol/gdbdiff.pm
r28067 r28071 220 220 #$model_text =~ s@\[http://.*/tmp/.*(\..{3,4})\]@tmp/random$1@mg; 221 221 222 $test_text =~ s@\[http://[^\n]*?/tmp/.*?(\..{3,4})\]\n<section>([^\n]*?)\n@tmp/random$1\n<section>$2\n@sg; 223 $model_text =~ s@\[http://[^\n]*?/tmp/.*?(\..{3,4})\]\n<section>([^\n]*?)\n@tmp/random$1\n<section>$2\n@sg; 222 $test_text =~ s@\[http://[^\n]*?/tmp/.*?(\..{3,4})\]\n<section>([^\n]*?)\n@[tmp/random$1\n<section>$2]\n@sg; 223 $model_text =~ s@\[http://[^\n]*?/tmp/.*?(\..{3,4})\]\n<section>([^\n]*?)\n@[tmp/random$1\n<section>$2]\n@sg; 224 225 # need to re- sort the keys, now that the absolute paths to tmp locations has been removed 226 # so that we get the tmp files in the same order in both model and test collections 227 228 # http://stackoverflow.com/questions/1909262/how-can-i-pipe-input-into-a-java-command-from-perl 229 open PIPE, "| txt2db model.gdb"; 230 print PIPE "$model_text"; 231 close(PIPE); 232 open PIPE, "| txt2db test.gdb"; 233 print PIPE "$test_text"; 234 close(PIPE); 235 236 $model_cmd = " db2txt -sort model.gdb 2>&1"; 237 $test_cmd = "db2txt -sort test.gdb 2>&1"; 238 $model_text = readin_gdb($model_cmd); 239 $test_text = readin_gdb($test_cmd); 224 240 } 225 241
Note:
See TracChangeset
for help on using the changeset viewer.