在Perl中将字符串与“$”进行比较

Question

我正在解析的文件中间有这样的字符串。

$t
$a

我的目标是消除这种线条。所以我想要这样的东西......

if($line matches "$") {
next; #Go to next line of the file and do not process further
}   

我该如何做到这一点？

Answer 1

你可以使用这个，

if($line =~ m/^\h*\$/m) {
next; #Go to next line of the file and do not process further
}

^断言我们处于起点，\h*匹配零个或多个水平空格字符。