open DMLOG, "<dmlog.txt" or &error("Can't open log file: $!");
chomp(@entirelog=<DMLOG>);
close DMLOG;
for $line (@entirelog)
{
if ($line =~ m/\#F/)
{
$titlecolumn = $line;
last;
}
}
Run Code Online (Sandbox Code Playgroud)
我发现=〜是我认为的正则表达式,但我不太了解它在这里的作用。
它将第一行分配给$titlecolumn,#其后跟一个F。
该=~是绑定运营商并应用正则表达式的字符串。该正则表达式通常写为/#F/。该m前缀可以用于强调,以下文字是前缀(当使用其它的分隔符是重要的)。