Python打印-> Perl STDIN行跳过问题

Question

我是perl和python的新手。

我需要在python（dataframe）中进行文件处理，并且该文件需要在Perl中进行计算。

一开始，我尝试使用python子进程，但它不起作用（管道断开）

我需要从python多行，而perl代码需要读取它并进行处理。

我只是用| 在命令行中，这是可行的，但perl跳过赔率数字行，而只是读取偶数行。

我该如何解决？

我的python代码是：

import pandas as pd

data = pd.read_csv('./data.txt', sep = '\t', header = None)

datalist = list(data[0] + '_' + data[1])

for line in kinase_list:

    print(line)

而我的perl代码是：//

use strict;

my %new_list = ();

while (<STDIN>){
  my $line = <STDIN>;
#  print STDERR $line;
#  chomp $line;
  my ($name, $title) = split('_', <STDIN>);
  $new_list{$title} = $name;
  print STDERR $name, "\t", $title, "\n";
}

print STDERR scalar(keys %new_list);

我的python输出657行，但perl刚输出329行。

我该如何解决？

Answer 1

表达式<STDIN>从标准输入中读取一行，因此您的Perl代码对于while循环的每次迭代都读取两行。

足以说

while (<STDIN>) {
    my $line = $_;
    ...

要不就

while (my $line = <STDIN>) {
    ...