[Bio] / FigKernelScripts / make_transferable_chunks.pl Repository:
ViewVC logotype

Annotation of /FigKernelScripts/make_transferable_chunks.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download) (as text)

1 : gdpusch 1.3 # -*- perl -*-
2 : efrank 1.1
3 :     use FIG;
4 :    
5 :     $usage = "usage: make_transferable_chunks FromDir ChunksDir";
6 :    
7 : overbeek 1.2 (($fromD = shift @ARGV) &&
8 : gdpusch 1.3 ($chunksD = shift @ARGV)
9 : efrank 1.1 )
10 : gdpusch 1.3 || die $usage;
11 :    
12 :     if ($fromD =~ m/^\//) { die "FromDir $fromD should be a relative, not an absolute path"; }
13 :     if (-d $chunksD) { die "ChunksDir $chunksD already exists"; }
14 : efrank 1.1
15 :     &FIG::run("tar czf - $fromD | splitup $chunksD");

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3