Data Submission and Re-name
Jump to navigation
Jump to search
use strict; my @file=glob("6-*.hapInfo.txt"); my $i; my $j; foreach my $file(@file){ $i++; $j++; my ($cancer,$type,$id)=split /[.-]/g,$file; my $id = sprintf("%03d",$i); system("cp $file /home/shicheng/CRC.$type.$id.hapInfo.txt"); print "$id\t$i\n"; } use strict; my @file=glob("PC-*.hapInfo.txt"); my $i; foreach my $file(@file){ $i++; $j++; my ($cancer,$type,$id)=split /[.-]/g,$file; my $id = sprintf("%03d",$i); system("cp $file /home/shicheng/PC.$type.$id.hapInfo.txt"); print "$id\t$i\n"; } my @file=glob("7-*.hapInfo.txt"); my $i; foreach my $file(@file){ $i++; $j++; my ($cancer,$type,$id)=split /[.-]/g,$file; my $id = sprintf("%03d",$i); system("cp $file /home/shicheng/LC.$type.$id.hapInfo.txt"); print "$id\t$i\n"; } my @file=glob("NC-*.hapInfo.txt"); my $i; foreach my $file(@file){ $i++; $j++; my ($cancer,$type,$id)=split /[.-]/g,$file; my $id = sprintf("%03d",$i); system("cp $file /home/shicheng/NC.$type.$id.hapInfo.txt"); print "$id\t$i\t$j\n"; } system("cp N37* ~"); system("sudo cp ~/*txt /home/ucsd002/monod/hapinfo")