zoukankan      html  css  js  c++  java
  • perl excel文件和txt转换

    excel2txt.pl

    #!/usr/bin/perl

    use strict;

    use Spreadsheet::ParseExcel;

    my $oExcel = new Spreadsheet::ParseExcel;

    die "Usage : \n\tperl $0 <xls> > xls.txt\n\n" unless @ARGV;

    my $oBook = $oExcel->Parse($ARGV[0]);
    my($iR, $iC, $oWkS, $oWkC);

    for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++){
            $oWkS = $oBook->{Worksheet}[$iSheet];
            for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
                    for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++)  {
                            $oWkC = $oWkS->{Cells}[$iR][$iC];
                            print $oWkC->Value,"\t" if($oWkC);
                    }
                    print "\n";
            }
    }

    输入为xls格式,集群下可用。

    txt2excel.pl

    #!/usr/bin/perl
    use strict;
    use Encode qw(decode);
    use Spreadsheet::WriteExcel;
    my $workbook = Spreadsheet::WriteExcel->new("$ARGV[0].xls");
    my $worksheet = $workbook->add_worksheet();
    # Row and column are zero indexed
    my $row = 0;
    open IN,$ARGV[0] or die $!;
    while(<IN>){
            chomp;my @s = split;
            my $col = 0;
            foreach my $token(@s){
                    $worksheet->write_string($row,$col,decode('gb2312',$token));
                    $col++;
            }
            $row++;
    }
    close IN;

  • 相关阅读:
    MongoDB一键安装
    Mongo基本操作
    MongoDB AUTH结果验证及开启方法
    MongoDB AUTH结果验证
    MongoDB使用
    MongoDB-安装配置
    11204RAC-dbca建库脚本
    MySQL主从同步最佳实践
    实时抓取主从的同步状态
    守护神 Supervisor
  • 原文地址:https://www.cnblogs.com/xianghang123/p/2717254.html
Copyright © 2011-2022 走看看