如何从perl中的二进制数据集中选择行和计数值？
我希望你们中的任何人都可以帮助我。我有一个类似于这样的数据集：
0100010011
1011100100
0001001100
0101111011
0010000100
1101111011
0000111000
0001000101
1110000010
0001000011
0110111100
1001000001
此示例仅包含四个“段落”，每个段落有三行，每行10个数字。我的真实数据要大得多，它有1000个段落，每个段落100行，每行50个数字（所有二进制数据）。
我需要计算每段每列有“1”的次数。我一直在网上搜索，发现这段代码：
#!/usr/bin/perl
my @LineTotalsArray;
while (my $line = <stdin>) {
print $line;
chomp $line;
my $index=0;
for my $val ( split /t/, $line ) {
$LineTotalsArray[ $index++ ] += $val;
}
}
print join('=', @LineTotalsArray), "n";
没有找到相关结果
已邀请:
3 个回复
细屠截殴些
#!/usr/bin/perl use strict; use warnings; use YAML; my @counts; my $every_n = 3; while (my $row = <DATA>) { last unless my @digits = $row =~ /([01])/g; $counts[($. - 1) / $every_n][$_] += $digits[$_] for 0 .. $#digits; } print Dump @counts; __DATA__ 0100010011 1011100100 0001001100 0101111011 0010000100 1101111011 0000111000 0001000101 1110000010 0001000011 0110111100 1001000001#!/usr/bin/perl use strict; use warnings; use YAML; my @counts; { local $/ = ""; while ( my $chunk = <DATA> ) { while ( $chunk =~ /([01]+)/g ) { my @digits = $1 =~ /([01])/g; $counts[$. - 1][$_] += $digits[$_] for 0 .. $#digits; } } } print Dump @counts; __DATA__ 0100010011 1011100100 0001001100 0101111011 0010000100 1101111011 0000111000 0001000101 1110000010 0001000011 0110111100 1001000001徐百晴墓斜
use strict; use warnings; use 5.010; use Data::Dumper; my %totals; { $/ = "nn"; while (my $chunk = <DATA>) { chomp $chunk; my @line_totals; for my $line (split /n/, $chunk) { my $index = 0; for (split //, $line ) { $line_totals[$index++] += $_; } } say $chunk; say @line_totals, "n"; $totals{$chunk} = join '', @line_totals; } } say Dumper %totals;{ $/ = "nn"; while (<DATA>) { chomp; our @lines_total = (); my $index = 0; () = /(? (?<=^) ([0-1])(?{ $index = 0; $lines_total[$index] += $^N }) | ([0-1])(?{ $lines_total[++$index] += $^N }) )/xmg; say join '', @lines_total; } }蕾跨立锌煤
#!/usr/bin/perl my @LineTotalsArray; while (my $line = <stdin>) { print $line; chomp $line; my $index=0; chomp; my @val = (split /t/, $line); if (@val <= 1) { print "=", join('=', @LineTotalsArray), "n"; @LineTotalsArray = undef; } else { for my $val ( split /t/, $line ) { $LineTotalsArray[ $index++ ] += $val; } } } print "=", join('=', @LineTotalsArray), "n";