다음은 코드입니다.
my @col= sort keys %colnames;
print "mRNA,".join(",",@col)."\n";
foreach my $row(keys %rownames){
print "$row";
foreach my $col(@col){
my $num=$mat{$col}->{$row};
$num=~s/(\.\d\d)\d+/$1/;
print ",$num";
}
print "\n";
}
mRNA,Benzopyrene12h_replica1,Benzopyrene12h_replica2
E2F1,5.01,4.72
REV1,2.76,2.67
POLK,1.21,1.87
POLH,1.49,1.56
POLI,1.94,2.45
이 출력을 .csv
파일에 쓰도록 도와주세요 .
CSV 파일에 쓰려면 Text::CSV
use strict;
use warnings;
use autodie;
# Your Data Initialization
my %colnames; # = Something
my %rownames; # = Something else
my %mat; # = a hash of hash
# Prepare CSV
my $csv = Text::CSV->new ( { binary => 1, eol => "\n" } )
or die "Cannot use CSV: ".Text::CSV->error_diag ();
open $fh, '>', "new.csv";
my @col = sort keys %colnames;
# Output Header
$csv->print($fh, ['mRNA', @col]);
# Output Rows
for my $row (keys %rownames){
my @data = ($row);
for my $col (@col){
my $num = $mat{$col}{$row};
$num =~ s/(\.\d\d)\d+/$1/;
push @data, $num;
}
$csv->print($fh, \@data);
}
close $fh;
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다