- Author:
- David Nickerson <nickerso@users.sourceforge.net>
- Date:
- 2009-07-07 17:07:09+12:00
- Desc:
- removing comparison traces from HH model as they are no longer relevant
- Permanent Source URI:
- https://staging.physiomeproject.org/workspace/a1/rawfile/ee5043691b3de28d909fbbf16c9429416937ef40/models/rebase-imports.pl
#!/usr/bin/perl
use strict;
use File::Find;
use File::Spec;
@ARGV = ('.') unless @ARGV;
sub processFile {
if (/\.xml$/) {
my $file = $_;
my $out = $file . ".tmp";
open IN,"<$file" or die "Error opening input file ($file): $!\n";
open OUT,">$out" or die "Error opening output file ($out): $!\n";
while (<IN>) {
if (/\"http:\/\/www.physiome.org.nz\/publications\/PBMB-2005-89\/Nickerson\/models\/(\S+)\"/) {
my $f = "/home/andre/pmr2/a1/models/" . $1;
my $r = File::Spec->abs2rel($f);
s/\"http:\/\/www.physiome.org.nz\/.*\"/\"$r\"/;
}
print OUT $_;
}
close OUT;
close IN;
system("mv $out $file");
}
}
find(\&processFile,@ARGV);
exit;