Question

我对Perl说得很新,对Perl的 proper子一无所知。

我有一份案文文件,我每天用一份姓名清单,并用其他信息为我们的用户使用。这一档案每天都有变化,有时有两行(划界),其他有100加权。

档案中的数据分6-9栏。我用了一张纸张,在表格上使用分机功能,但我讨论的问题是,如果我投了a<>m>,其中5栏,然后添加第二栏b>>>>>>,其中6栏是所有数据。

我无法指出,如何让Perl看到,只有5列数据,并继续从这个角度对文本进行分类。它仍在继续,但产出细微划线。我如何处理这个问题? 我希望这一点是有意义的。

Answer 1

你们必须张贴一些法典,可能还有一些样本数据,但这里的法典是不加争议地划分不同长度的行文。

<>:

#!/usr/bin/perl
use strict;

while (<STDIN>)
{
    chomp;
    my @info = split("	");
    print join(";", @info), "
";
}

exit;

<>试验文件:

  jsmith  101     777-222-5555    Office 1        Building 1      Manager 
  aposse  104     777-222-5556    Office 2        Building 2      Stock Clerk 
  jbraza  105     777-222-5557    Office 3 
  mcuzui  102     777-222-5557    Office 3        Building 3      Cashier 
  ghines  107     777-222-5557    Office 3

<<>Output>:

%> test.pl < file.txt
jsmith;101;777-222-5555;Office 1;Building 1;Manager
aposse;104;777-222-5556;Office 2;Building 2;Stock Clerk
jbraza;105;777-222-5557;Office 3
mcuzui;102;777-222-5557;Office 3;Building 3;Cashier
ghines;107;777-222-5557;Office 3

Answer 2

你们应当公布一些抽样数据和编码,并解释在守则目前做些什么以及你想要做些什么方面理想的行为。 rel=“nofollow”>split 将给予你们尽可能多的投入领域。

#!/usr/bin/perl

use strict; use warnings;

while ( my $row = <DATA> ) {
    last unless $row =~ /S/;
    chomp $row;
    my @cells = split /	/, $row;
    print "< @cells >
";
}

__DATA__
1 2 3 4 5
a b c d e f

Answer 3

http://search.cpan.org/perldoc?Text%3a%3aCSV”rel=“nofollow”>Text:CSV 模块也可用于平价制成表格的分类价值。实际上,可按任何性质划分的数值。

国防部的相关摘要:

The module accepts either strings or files as input and can utilize any user-specified characters as delimiters, separators, and escapes so it is perhaps better called ASV (anything separated values) rather than just CSV.

#!/usr/bin/env perl

use strict;
use warnings;

use Text::CSV;

my $csv = Text::CSV->new( {  sep_char  => "	" } );

open my $fh,  < ,  data.tsv  or die "Unable to open: $!";

my @rows;
while ( my $row_ref = $csv->getline($fh) ) {
    push @rows, $row_ref;
}

$csv->sep_char( | );
for my $row_ref (@rows) {
    $csv->combine(@$row_ref);
    print $csv->string(), "
";
}

友情链接