Changeset 20616
- Timestamp:
- Nov 9, 2008, 5:04:11 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/tools/diff_outputs.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/diff_outputs.pl
r20577 r20616 16 16 'WEIGHT' => '.wt.fits', # Weight 17 17 'SOURCES' => '.cmf', # Sources 18 'JPEG1' => '.b1.jpg', # Binned JPEG 19 'JPEG2' => '.b2.jpg', # Binned JPEG 18 20 }; 19 21 … … 66 68 foreach my $type ( keys %$extensions ) { 67 69 my $ext = $$extensions{$type}; # Extension 68 my $ neb = "$path$ext"; # Nebulous file69 my $source = ` neb-locate --path $neb` or die "Unable to locate $neb\n"; # Actual file70 my $file = "$path$ext"; # File 71 my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Actual file 70 72 chomp $source; 71 my ($target) = $source =~ m|^.* :(.*)|; # Target name73 my ($target) = $source =~ m|^.*[:/](.*)|; # Target name 72 74 !system "cp $source $target" or die "Unable to copy $source\n"; 73 75 }
Note:
See TracChangeset
for help on using the changeset viewer.
