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>) {
    ...

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

1 个答案: