linux - Perl + Linux 在多个文本位置重新排列列

Question

就目前情况而言，这个问题不太适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持，但这个问题可能会引发辩论、争论、民意调查或扩展讨论。如果您觉得这个问题可以改进并可能重新开放， visit the help center以获得指导。

已关闭 10 年前。

#!/usr/bin/perl

use strict;
use warnings;

my $file;
my @files;
my $parse;
my @files = <*>;
foreach $file(@files)
 chomp ($file);
{
 $parse = system qq(paste <(cut -f1,2,13 $file) <(cut -f12 $file));
}

<小时/>

"my" variable @files masks earlier declaration in same scope at Rast_seq.pl line 11.
sh: 1: Syntax error: "(" unexpected
sh: 1: Syntax error: "(" unexpected
sh: 1: Syntax error: "(" unexpected
sh: 1: Syntax error: "(" unexpected
sh: 1: Syntax error: "(" unexpected
sh: 1: Syntax error: "(" unexpected

请帮我解决这个错误。

Answer 1

将左大括号 { 移到 chomp;
之前并删除第一个 my @files;
并更改 qq

的分隔符

my $file;
my $parse;
my @files = <*>;

foreach $file(@files) {
    chomp ($file);
    $parse = system qq#paste <(cut -f1,2,13 $file) <(cut -f12 $file)#;
}