Perl-从输入字符串中获取第一个 "word"

Question

我正在尝试编写一个Perl程序，该程序从文本文件中读取行，并针对每一行从行中提取第一个“单词”，并根据返回的字符串执行不同的操作。

主循环如下所示:

while(<AXM60FILE>) {

   $inputline = $_;

   ($start) = ($inputline =~ /\A(.*?) /);

perform something, based on the value of string in $start

}

输入文件实际上是一个参数文件，其中parameter_name和parameter_value用冒号(“:”)分隔。在冒号之前或之后可以有空格或制表符。

因此，该文件的外观(例如)如下所示:

param1: xxxxxxxxxxxx
param2 :xxxxxxxxxxxxx
param3 : xxxxxxxxxxxxxxxxx
param4:xxxxxxxxxxxxx

那“($ start)=($ inputline =〜/\A(.*？)/);”对于“param2”示例和“param3”示例，第一个单词以空格/空格终止可以正常工作，但是如何处理“param1”和“param4”情况，其中parameter_name后面紧跟冒号？

另外，如果“空白”是一个或多个选项卡，而不是空格/空格字符，该怎么办？

谢谢，
吉姆

Answer 1

这将涵盖您的所有情况，然后涉及一些情况:

my ($key, $value) = split /\s*:\s*/, $inputline, 2;

(或者用英语将 $inputline拆分为最多两个元素，并用任意数量的空格，冒号和任意数量的空格分隔。)