Mercurial > hg > LGDataverses
view scripts/migration/versions_source_step2_ @ 14:be7787c36e58 default tip
new: nofity LGSercies for deleted files
author | Zoe Hong <zhong@mpiwg-berlin.mpg.de> |
---|---|
date | Mon, 02 Nov 2015 16:41:23 +0100 |
parents | a50cf11e5178 |
children |
line wrap: on
line source
#!/usr/bin/perl unless ( -d "/tmp/ddi" ) { mkdir "/tmp/ddi"; } while (<>) { chop; @_ = split ("\t"); $alias = $_[0]; $studyid = $_[1]; $ddifile = $_[2]; $ddifile = "/nfs/iqss/DVN/data/" . $ddifile; if ( -f $ddifile ) { $total += (stat($study))[7]; $tmpdir = "/tmp/ddi/" . $alias; unless ( -d $tmpdir ) { mkdir $tmpdir; } $tmpfile = $tmpdir . "/" . $studyid . "\.xml"; system "cp $ddifile $tmpfile"; } else { print STDERR "warning: missing ddi file! (" . $ddifile . ")\n"; } } print "Total of " . $total . " bytes copied.\n";