我認(rèn)為你可以用一張桌子做好，所以我會告訴你如何做你要求的和我認(rèn)為好的。

$name = "";

$data = {};

open(IN, "build.txt");

foreach my $line (){

if($line =~ /Re: (.*)\n/) { # 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 =~ /^\n$/){ # 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) . "\n";

}

close OUT;這使得每個建筑物的文件具有建筑物名稱。 Building_A.txt的一個例子是：

Month

kWh

1

100

2

110

3

105表文件名為tabledata.txt，如下所示：

Building_A 100 110 105

Building_B 200 210 205

總結(jié)

以上是生活随笔為你收集整理的perl转python_将行转换为perl或python中的列的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。