- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
Perl 程序中包含美元 ($) 符号的简单文本字符串:
open my $fh, "<", $fp or die "can't read open '$fp': $OS_ERROR";
while (<$fh>)
{
$line=''; #Initialize the line variable
$line=$_; #Reading a record from a text file
print "Line is $line\n"; #Printing for confirming
(@arr)=split('\|',$line);
$line 获取以下管道分隔的字符串(通过打印 $line 值确认):
Vanilla Cake $3.65 New Offering|Half pound Vanilla Cake||Cake with vanilla, cream and cheese
然后将该记录拆分并拉入特定的数组元素:
(@arr)=split('\|',$line);
$arr[0] 得到 Vanilla 蛋糕 $3.65
,$arr 1获取半磅 Vanilla 蛋糕
,$arr[2] 保持empty/NULL
,$arr[3] 获取Cake with vanilla, cream and cheese
现在我检查 $arr[0] 是否包含价格值。要匹配的模式是一些文本 (Vanilla Cake
),然后是一个美元符号 ($),后跟一位或多位数字(在本例中为 3
的值),十进制是可选 - 可能有也可能没有,然后小数点后可以有一位或多位数字(在本例中为 .65
)。使用以下正则表达式:
if ($arr[0]=~ /(.*?)(\$\d+(?:\.\d+)?)/)
{
print "match1 is $1, match2 is $2, match3 is $3, match4 is $4\n";
}
问题是 $1、$2、$3、$4 - 所有匹配的模式值都打印为 NULL/EMPTY。我想这是因为 $ 符号是字符串 $arr[0] 的一部分。
我的猜测是,由于 $3.65 的值(value),它将 $3 部分(小数点前)作为变量并尝试替换它,而 $3 为 NULL。所以正则表达式匹配正在发生购买值提取可能会失败,因为整个字符串可能被解释为 Vanilla Cake .65
,而不是 Vanilla Cake $3.65
(这是我的猜猜)
可能这就是正则表达式匹配和提取失败的原因。
我还在某处读到它可能依赖于变量初始化($line
或 $arr[0]
作为单引号或双引号)——我没有关于这种依赖关系的线索(这就是为什么包括所有代码,如上面 $line 变量的初始化)。 $line 一次从文件中读取一条记录,因此需要在每次迭代时初始化。
已尝试过 Escape a dollar sign inside a variable 中给出的解决方案和 Trouble escaping dollar sign in Perl ,但无法使其正常工作。在 https://regex101.com/r/FQjcHp/2/ 上创建正则表达式的其他试验和错误也没有帮助。
有人可以告诉我如何使用正确的正则表达式代码从上面的字符串中获取 Vanilla Cake
和 $3.65
的值吗?
最佳答案
这段代码
if ($foo =~ /(.*?)(\$\d+(?:\.\d+)?)/) {
print "match1 is $1, match2 is $2, match3 is $3, match4 is $4\n";
}
有了这个输入
Vanilla Cake $3.65
将打印
Use of uninitialized value $3 in concatenation (.) or string at ...
Use of uninitialized value $4 in concatenation (.) or string at ...
match1 is Vanilla Cake , match2 is $3.65, match3 is , match4 is
如果您没有use warnings
,警告将是无声的启用。
这是您提供的代码对此输入的处理方式。您还表明它与您的屏幕截图有关。您在评论中说,它不会在您的家用 PC 上执行此操作。我会说这是不可能的。
您的代码不同,您的输入不同,或者您的 Perl 安装不同(尽管这不太可能是问题所在)。真的别无选择。
一个大问题是您没有使用 use strict; use warnings
用你的代码。这可能意味着您的代码中隐藏了许多问题。很可能,在你的情况下,我会说这是一个错字,例如:
$Iine = $_;
if ($line =~ /...../) # <---- not the same variable
但是你要求 8 小时来更新你的代码,所以我想我们会在 8 小时内找到结果。
一些提示
while (<$fh>)
{
$line=''; #Initialize the line variable
$line=$_; #Reading a record from a text file
<$fh>
正在这样做。while (my $line = <$fh>)
.$3
和 $4
在您的 print 语句中永远无法保存值,因为您缺少捕获组 ( ... )
必要的。两个捕获组仅表示 $1
和 $2
将被填充。When writing Perl code, you should always use
use strict;
use warnings;
因为不这样做对你没有帮助,它只会隐藏你的问题。
还要养成将声明 ( my $var
) 放在尽可能小的范围内的习惯。示例代码:
use strict;
use warnings;
use feature 'say';
while (my $line = <DATA>) {
my @x = split /\|/, $line;
if ($x[0] =~ /(.*?)(\$\d+(?:\.\d+)?)/) {
say "$1 is $2";
}
}
__DATA__
Vanilla Cake $3.65 New Offering|Half pound Vanilla Cake||Cake with vanilla, cream and cheese
关于regex - 在 Perl 字符串中匹配美元符号,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/72363022/
使用sed和/或awk,仅在行包含字符串“ foo”并且行之前和之后的行分别包含字符串“ bar”和“ baz”时,我才希望删除行。 因此,对于此输入: blah blah foo blah bar
例如: S1: "some filename contains few words.txt" S2:“一些文件名包含几个单词 - draft.txt” S3:“一些文件名包含几个单词 - 另一个 dr
我正在尝试处理一些非常困惑的数据。我需要通过样本 ID 合并两个包含不同类型数据的大数据框。问题是一张表的样本 ID 有许多不同的格式,但大多数都包含用于匹配其 ID 中某处所需的 ID 字符串,例如
我想在匹配特定屏幕尺寸时显示特定图像。在这种情况下,对于 Bootstrap ,我使用 col-xx-## 作为我的选择。但似乎它并没有真正按照我认为应该的方式工作。 基本思路,我想显示一种全屏图像,
出于某种原因,这条规则 RewriteCond %{REQUEST_FILENAME} !-f RewriteCond %{REQUEST_FILENAME} !-d RewriteRule ^(.*
我想做类似的东西(Nemerle 语法) def something = match(STT) | 1 with st= "Summ" | 2 with st= "AVG" =>
假设这是我的代码 var str="abc=1234587;abc=19855284;abc=1234587;abc=19855284;abc=1234587;abc=19855284;abc=123
我怎样才能得到这个字符串的数字:'(31.5393701, -82.46235569999999)' 我已经在尝试了,但这离解决方案还很远:) text.match(/\((\d+),(\d+)\)/
如何去除输出中的逗号 (,)?有没有更好的方法从字符串或句子中搜索 url。 alert(" http://www.cnn.com df".match(/https?:\/\/([-\w\.]+
a = ('one', 'two') b = ('ten', 'ten') z = [('four', 'five', 'six'), ('one', 'two', 'twenty')] 我正在尝试
我已经编写了以下代码,我希望用它来查找从第 21 列到另一张表中最后一行的值,并根据这张表中 A 列和另一张表中 B 列中的值将它们返回到这张表床单。 当我使用下面的代码时,我得到一个工作表错误。你能
我在以下结构中有两列 A B 1 49 4922039670 我已经能够评估 =LEN(A1)如2 , =LEFT(B1,2)如49 , 和 =LEFT(B1,LEN(A1)
我有一个文件,其中一行可以以 + 开头, -或 * .在其中一些行之间可以有以字母或数字(一般文本)开头的行(也包含这些字符,但不在第 1 列中!)。 知道这一点,设置匹配和突出显示机制的最简单方法是
我有一个数据字段文件,其中可能包含注释,如下所示: id, data, data, data 101 a, b, c 102 d, e, f 103 g, h, i // has to do with
我有以下模式:/^\/(?P.+)$/匹配:/url . 我的问题是它也匹配 /url/page ,如何忽略/在这个正则表达式中? 该模式应该: 模式匹配:/url 模式不匹配:/url/page 提
我有一个非常庞大且复杂的数据集,其中包含许多对公司的观察。公司的一些观察是多余的,我需要制作一个键来将多余的观察映射到一个单独的观察。然而,判断他们是否真的代表同一家公司的唯一方法是通过各种变量的相似
我有以下 XML A B C 我想查找 if not(exists(//Record/subRecord
我制作了一个正则表达式来验证潜在的比特币地址,现在当我单击报价按钮时,我希望根据正则表达式检查表单中输入的值,但它不起作用。 https://jsfiddle.net/arkqdc8a/5/ var
我有一些 MS Word 文档,我已将其全部内容转移到 SQL 表中。 内容包含多个方括号和大括号,例如 [{a} as at [b],] {c,} {d,} etc 我需要进行检查以确保括号平衡/匹
我正在使用 Node.js 从 XML 文件读取数据。但是当我尝试将文件中的数据与文字进行比较时,它不匹配,即使它看起来相同: const parser: xml2js.Parser = new
我是一名优秀的程序员,十分优秀!