Question

我有这样的数据:

Re: Building A

Month
kWh
1
100
2
110
3
105


Re: Building B

Month
kWh
1
200
2
210
3
205

我想将其转换成每个建筑物的多个文本文件。我的计划是:

extract the values between the building delimiter line
convert the lines into a table

就任务(1)而言,我试图像这样使用双管线操作员:

while( <DATA> ) {
  next unless /^Re: Building A/ .. /^Re: Building B/;
  my $line = $_;
  print $line;
}

但是,这并不奏效,因为以上所述只能显示A楼的数据。这些数据涉及多个建筑物(其中约50座),因此,我需要稍加谨慎地这样做。我没有开始做任务(2)。

任何帮助都将受到赞赏。

Answer 1

我愿这样做:

#!/usr/bin/perl
use strict;
use warnings;

my %buildings;

while (<DATA>) {
    chomp;
    $buildings{$1} = [] if /^Re: Building ([AB])/;
    push @{$buildings{$1}}, $_ if $_;
}

while (my ($building, $data) = each %buildings) {
    open(my $out,  > , "$building.txt") or die "Unable to open file for writing: $!
";

    for my $i (1 .. $#$data / 2) {
        print $out sprintf "%s	%s
", $data->[$i*2-1], $data->[$i*2];
    }
    close $out;
}

A.txt:

Month   kWh
1       100
2       110
3       105

B.txt:

Month   kWh
1       200
2       210
3       205

Answer 2

我认为,你可以坐在一张桌子上,这样,我就告诉你,你要求做什么,我认为什么是好的。

$name = "";
$data = {}; 
open(IN, "build.txt");
foreach my $line (<IN>){
    if($line =~ /Re: (.*)
/) { # get building name
        $name = $1;
        $name =~ s/ /_/;
        $data->{$name} = []; # link to empty array
    } else {
        # make a new list and return to a list
        @{$data->{$name}} = (@{$data->{$name}}, $line); # add line to current building data
    }
}
close IN;
#
# write on file for each
#
foreach my $name (keys %{$data}){
    open(OUT, ">$name.txt");
    foreach my $line (@{$data->{$name}}){
        print OUT $line;
    }
    close OUT;
}
#
# or write into one file as a table
#
open(OUT, ">tabledata.txt");
foreach my $name (keys %{$data}){
    # because the data was not filtered on import we filter it now
    my $flag = 0;
    my @data; 
    foreach my $line (@{$data->{$name}}){
        if($line =~ /kWh/) {
            $flag = 1;
        } elsif($line =~ /^
$/){ # skip blanks
        } elsif($flag == 1) {     # skip the counters
            $flag++; 
        } elsif($flag > 1) {
            chomp($line);
            @data = (@data, $line);
            $flag = 1;
        }   
    }
    # print pretty rows
    my $format = "%20s" . ("%10d" x @data);
    print OUT sprintf($format, $name, @data) . "
";

}
close OUT;

这为每个建筑物提供建筑名称。 “A.txt”大楼的一个例子是:

Month
kWh
1
100
2
110
3
105

表格文档称为表格数据。

          Building_A       100       110       105
          Building_B       200       210       205

Answer 3

在座右边,我将将文本档案整理成一个数据结构,然后使用。理想的情况是,你真的会直接地操纵扼杀,而是 par平,然后单独显示。

你们如何做定级取决于各种因素,例如档案格式的经常性,以及是否有必要容忍档案中的错误或打字。

友情链接