初学Perl之二

大头 posted @ 2008-11-07 08:55PM in 娱乐 with tags Perl

程序有问题，有关字符串匹配。会用index函数去查找字串，那就能找到正确的行。可是运行总是报错，看不懂报错信息。怀疑是语法错误，却不知道错在哪儿。不像C，编译就排查了语法错误。CSDN上乱翻贴，看到有人推荐一个工具Komodo（下载）。装了后打开我的程序源文件，看到一行波浪线，太好了，这里有问题：

$_ =~ m!>(.*?)</a>;

可是什么问题呢？书上说模式匹配函数（m//）是这样用的：

m/pattern/;

还说m后的第一个字符是模式分隔符。在一个例子里用!做分隔，我没有正确理解，这是把缺省分隔符（/）换成其他的（!）。因此这样才对：

$_ =~ m!>(.*?)</a>!;

现在的程序可以跑，但是结果不对。问题还是在这一行。我要取出所需要的字串。哪里不对？应该怎么写？没人可问，继续琢磨。

Barret [Guest] posted @ 2008-11-11 06:06PM

应该得到你的结果了啊，从\1得到。

大头 posted @ 2008-11-13 10:29PM

大头

谢谢关注，新写的“之三”里提到了报错信息和错误的情况。我知道了如何改对，但不知道错在哪。