Perl 搜索字符串并从文本文件中获取整行

Question

我想搜索一个字符串并通过 Perl 脚本从文本文件中获取整行。

所以文本文件将如下所示。

data-key-1,col-1.1,col-1.2
data-key-2,col-2.1,col-2.2
data-key-3,col-3.1,col-3.2

在这里，我想应用data-key-1 作为搜索字符串，并将整行放入 Perl 变量中。

这里我想在 shell 中完全替换 grep "data-key-1" data.csv。

以下语法在控制台中运行时有效。

perl -wln -e 'print if /\bAPPLE\b/' your_file

但是我怎样才能将它放在脚本中呢？使用perl 关键字，我们无法将其放入脚本中。有没有办法避免循环？

Answer 1

如果您知道为单行提供的命令行选项，您就会确切地知道在perl 脚本中要写什么。当你读取一个文件时，你需要一个循环。循环的选择可以在性能方面产生不同的结果。使用for 循环读取一段时间比使用while 循环读取文件更昂贵。

你的单行：

perl -wln -e 'print if /\bAPPLE\b/' your_file

基本上是在说：

• -w：使用警告
• -l ：在处理之前从每行中剔除换行符，并在打印期间将其放回原处。
• -n ：创建一个隐式 while(<>) { ... } 循环以对每一行执行一个操作
• -e ：告诉 perl 解释器执行它后面的代码。
• print if /\bAPPLE\b/ 如果行包含单词APPLE，则打印整行。

所以要在perl 脚本中使用上述内容，您可以：

#!usr/bin/perl

use strict;
use warnings;

open my $fh, '<', 'your_file' or die "Cannot open file: $!\n";

while(<$fh>) {
    my $line = $_ if /\bAPPLE\b/;
    # do something with $line
}

chomp 在这里并不是真正需要的，因为除了检查单词是否存在之外，您没有对该行进行任何操作。

Answer 2

open($file, "<filename");
while(<$file>) {
   print $_ if ($_ =~ /^data-key-3,/);

}

Answer 3

use strict;
use warnings;

# the file name of your .csv file
my $file = 'data.csv';


# open the file for reading
open(FILE, "<$file") or
 die("Could not open log file. $!\n");

 #process line by line:
while(<FILE>) {

 my($line) = $_;

 # remove any trail space (the newline)
 # not necessary, but again, good habit
 chomp($line);


my @result = grep (/data-key-1/, $line);
push (@final, @result); 
}
print @final;