文本文件中的 Perl 字符串比较

Posted 2023-03-15

【中文标题】文本文件中的 Perl 字符串比较

【英文标题】：Perl string comparison in text file

【发布时间】：2021-03-16 04:36:31

【问题描述】：

我正在编写一个要由 Perl 脚本处理的抽象指令文件。每一行的格式为 - “指令操作数 1 操作数 2 ...”

因此，如果我有一个类似“copy dest src”的内容，我想首先检查该行的第一个单词是否为“copy”并相应地继续。如何使用 Perl 做到这一点？

【问题讨论】：

简单答案：正则表达式。硬答案：正则表达式。

你如何定义一个词？使用split ' ', $_ 分割空格。

【参考方案1】：

如果需要，这可以在没有正则表达式的情况下完成。在空白处拆分，检查第一个单词是否等于“copy”，例如：

echo 'copy foo bar\nbaz' | perl -lane 'print if $F[0] eq qcopy;'

输出：

copy foo bar

Perl 单行代码使用这些命令行标志：-e：告诉 Perl 查找内联代码，而不是在文件中。-n：循环输入一行一次，默认将其分配给$_。-l：在执行内联代码之前剥离输入行分隔符（默认为 *NIX 上的"\n"），并在打印时附加它。-a : 在空格或-F 选项中指定的正则表达式上将$_ 拆分为数组@F。

另请参阅：perldoc perlrun: how to execute the Perl interpreter: command line switches

【参考方案2】：

您应该从阅读 Perl 文档开始。你问的很琐碎。

https://perldoc.perl.org/perl#Tutorials

这是一个非常简短的示例，可以帮助您入门。

while (my $line = <$FILE_HANDLE>) 
  if ($line =~ m/^copy\b/) 
    # do something
  

阅读正则表达式教程 (https://perldoc.perl.org/perlretut) 以了解 m// 的工作原理。您需要的一切都在该网站上。

祝你好运。

【参考方案3】：

我会使用调度表。像这样的：

# Define a subroutine for each of your commands

sub my_copy 
  my ($source, $dest) = @_;
  # other stuff


# Set up a hash where the keys are the names of the
# commands and the values are references to the
# subroutines

my %commands = (
  copy => \&my_copy,
  # other commands here
);

# Then, in the main processing section...

my ($cmd, @params) = split /\s+/, $input_line;

if (exists $commands$cmd) 
  # execute the subroutine
  $commands$cmd->(@params);
 else 
  warn "'$cmd' is not a valid command.\n";