Data Submission and Re-name

From ZhangLabWiki
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")