Perl字符串匹配和数据提取

Question

我正在研究数据提取程序，但在尝试确定晶圆上的芯片位置时，我似乎无法使这部分数据日志正常工作。

    &write_device_results($sbin, $hbin, $diex, $diey, $site, $time, @testdata);
} elsif($line =~ m/"Site 1: W"(\d+)(\d+)/) { # <---- THIS IS NOT WORKING
    $diex = $1;
    $diey = $2;
} elsif($line =~ m/Site (\d+) has \w+. Binned to bin (\d+)\((\d+)\)/) { <- THIS WORKS
    $site = $1;
    $sbin = $2;
    $hbin = $3;

我尝试从中提取数据的行是：

  

站点1：W0,0＆lt; ---第一个0是$ diex位置，第二个是$ diey位置。

这一行我可以从以下数据中提取数据：

  

网站1已失败。 Bin bin to bin 24（23）

关于如何从上面提取0,0数据的任何想法都会很棒。