Ns126:Calendar/NOTES/2015-4-19: Difference between revisions
Jump to navigation
Jump to search
>Shicheng No edit summary |
>Shicheng No edit summary |
||
Line 1: | Line 1: | ||
uncompress the methylation 450k dataset | |||
<nowiki> | <nowiki> | ||
#!/usr/bin/perl | #!/usr/bin/perl |
Revision as of 07:37, 19 April 2015
uncompress the methylation 450k dataset
#!/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"); }