擅长:python、mysql、java
<p>这是一个非常简单的Perl解决方案。它只跟踪第二列的前一个值,如果它发生变化,它会改变<code>$n</code>的值。你知道吗</p>
<p>程序希望输入文件的路径作为命令行上的参数,并将修改后的数据发送到<code>STDOUT</code>。你知道吗</p>
<pre><code>use strict;
use warnings;
print scalar <>; # Copy header line
my ($prev, $n) = (0, 0);
while (<>) {
chomp;
my @fields = split /\t/;
($prev, $fields[1]) = ($fields[1], $fields[1] == $prev ? $n : ++$n);
print join("\t", @fields), "\n";
}
</code></pre>