Ns126:Calendar/NOTES/2015-4-19: Difference between revisions

From ZhangLabWiki
Jump to navigation Jump to search
>Shicheng
No edit summary
>Shicheng
(Blanked the page)
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:


<nowiki>
#!/usr/bin/perl
use Cwd;
my $dir=getcwd;
chdir $dir;
my @file=glob("*.tar.gz");
foreach my $file(@file){
my ($sample,undef)=split /.tar.gz/,$file;
print "$sample\n";
system("tar xzvf $file");
system("mv -f $dir/$sample/* $dir/");
system("rm -rf $sample");
}
</nowiki>

Latest revision as of 06:14, 8 December 2015