如何通过命令行参数读取文本文件并使用perl打印列？

Question

---

如何使用perl命令行参数读取文本文件并使用perl打印第三 列 ？

我很惊讶从命令行输入并打印所需的列。 帮助我选择正确的方法来达到预期的输出。

我编写以接受命令行输入的代码：( map.pl ）

use strict;
use warnings 'all';
use Getopt::Long 'GetOptions';
my @files=GetOptions(
    'p_file=s' => \my $p_file,
);
print $p_file ? "p_file = $p_file\n" : "p_file\n";

我得到上面代码的输出：

perl map.pl -p_file cat.txt
p_file = cat.txt

cat.txt :( Input file ）

ADG:YUF:TGH
UIY:POG:YTH
GHJUR:"HJKL:GHKIO

预期产量：

TGH
YTH
GHKIO

Answer 1

Perl可以自动读取其名称作为命令行参数提供的文件。 以下命令应产生预期的输出

perl -F: -le 'print $F[2]' cat.txt

-F:打开自动autosplit模式，将字段分隔符设置为:并在输入文件的行上循环。 -l在输入和输出期间处理行尾。 对文件的每一行执行e标志之后的代码（ 'print $F[2]'打印第三个字段）。 阅读perldoc perlrun了解更多perldoc perlrun 。

Answer 2

您需要阅读文件并分割行以获取列，然后打印所需的列。 这是一个演示代码段，使用perl -s开关来解析命令行参数。 像这样运行./map.pl -p_file = cat.txt

#!/usr/bin/perl -s
use strict;
use warnings;
use vars qw[$p_file];

die("You need to pass a filename as argument") unless(defined($p_file));
die("Filename ($p_file) does not exists") unless(-f $p_file);

print "Proceeding to read file : $p_file\n\n";

open(my $fh,'<',$p_file) or die($!);

while(chomp(my $line = <$fh>)) {
        next unless(defined($line) && $line);
        my @cols = split(/:/,$line);
        print $cols[-1],"\n";
}

close($fh);