码迷,mamicode.com
首页 > 其他好文 > 详细

perl模块Excel::Writer::XLSX进行txt2xlsx转换

时间:2019-12-10 15:18:45      阅读:149      评论:0      收藏:0      [点我收藏+]

标签:split   设置   color   getopt   gis   bin   --help   center   格式   

#!usr/bin/env perl
use strict;
use warnings;
use File::Spec;
use Getopt::Long;
use Excel::Writer::XLSX;

#检测 -> 脚本输入
my ($input_txt, $output_path, $if_help);

GetOptions(
"input_txt|i=s" => \$input_txt,
"output_path|o=s" => \$output_path,
"help|h" => \$if_help,
);

die help() if (defined $if_help or (not defined $input_txt));

################################主程序###########################

########
#创建excel文件与sheet表
########
my $workbook = Excel::Writer::XLSX->new( ‘DFI_15_30.VS.DFI_15_ABN.xlsx‘);
my $worksheet = $workbook->add_worksheet(‘DFI_15_30.VS.DFI_15_ABN‘);

########
#开始处理文本
########

my %format = format_excel($workbook); #获取Excel格式内容
open FILE, $input_txt or die "The input_txt file doesn‘t exist!\n";

########
#处理标题行格式
########
my $head = <FILE>;
$head =~ s/[\r\n]//g;
my @head = split /\t/, $head;
$worksheet->set_row(0, 60); #标题行设置:行宽60
foreach (0..$#head) {
    $worksheet -> write (0, $_, $head[$_], $format{‘title‘}); #格式化第一行内容
}

########
#处理数据行内容
########

my @special = (‘P-value(Ttest)‘, ‘P-value(Utest)‘, ‘P-value(Logistic)‘);#需要筛选的p_value存在一个数组里
my $row = 1;
while (<FILE>) {
$_ =~ s/[\r\n]//g;
my @data = split /\t/;
    foreach my $col (0..$#data) {
        my $type = "normal";
        foreach (@special) {
            $type = "special" if ($head[$col] eq $_ and $data[$col] =~ /\d/ and $data[$col] < 0.05);
        }
            #$type = "special" if ($head[$col] ~~ @special and $data[$col] =~ /\d/ and $data[$col] < 0.05);
        $worksheet -> write($row, $col, $data[$col], $format{$type}); #格式化数据行内容
     }
    $row ++;
}

close FILE;

################################子函数###########################

sub format_excel {
my ($workbook) = @_;
my %format = ();
#第一行(标题行设置:背景色黄色、上下左右居中)
$format{"title"} = $workbook->add_format();
$format{"title"}->set_bg_color(‘yellow‘);
$format{"title"}->set_align(‘center‘);
$format{"title"}->set_align(‘vcenter‘);
$format{‘title‘}->set_border();
#其它行(上下左右居中)
$format{"normal"} = $workbook->add_format();
$format{"normal"}->set_align(‘center‘);
$format{"normal"}->set_align(‘vcenter‘);
$format{"normal"}->set_border();
#特殊列处理(P-value(Ttest)、P-value(Utest)、P-value(Logistic)这三列P值<0.05的表格背景色设为橘黄色#fac090)
$format{"special"} = $workbook->add_format();
$format{"special"} ->set_align(‘center‘);
$format{"special"} ->set_align(‘vcenter‘);
$format{"special"} ->set_bg_color("#fac090");
$format{"special"}->set_border();

return %format;
}

sub help{
my $info = "
Program: txt转换为excel
Version: 2019-11
Contact: *

Usage: perl ".(File::Spec->splitpath(File::Spec->rel2abs($0)))[2]." [options]

Options:
--txt/-i txt文件
--output_path/-o 输出路径
--help/-h 查看帮助文档
\n";
return $info;
}

perl模块Excel::Writer::XLSX进行txt2xlsx转换

标签:split   设置   color   getopt   gis   bin   --help   center   格式   

原文地址:https://www.cnblogs.com/dongxj1994/p/12016293.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!