大头

标签云

分类

日历

二月
28	29	30	31	1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	1	2

留言

微博

初学Perl之三

loveisbug posted @ 2008年11月14日 06:27 in 娱乐 with tags Perl , 3403 阅读

今天程序终于跑对了。程序如下：

#!/usr/bin/perl
use strict;
use warnings;
 
my $subset = "书名：</td>";
my $modflag = 0;
 
while(<>)
{
        if($modflag == 1)
        {
                #get the book name.
                print $1 if $_ =~ />(.*)<\/a>/m;
                print "\n";
        }
 
        my $offset = 0;
        $offset = index($_, $subset);
        if($offset == -1)
        {
                $modflag = 0;
        }
        else
        {
                $modflag = 1;
        }
}

get the book name那里（L13, L14），这样写也可以：

        $_ =~ m!>(.*?)</a>!;
        print $1, "\n";

这样写的时候，'/a'前面加'\'或者不加'\'结果都是对的；而采用第一种写法时不是这样，必须加'\'，去掉则不正确，报错信息是：

Bareword found where operator expected at xxxx line 23, near "/>(.*?)</a"

(Missing operator before a?)

syntax error at xxxx line 23, near "/>(.*?)</a"

这是为什么？

[回复]

birdinforest 说:
2008年11月21日 05:05

因为容易与'/a'前面的'/'混淆

二月
日	一	二	三	四	五	六
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29

二月
日	一	二	三	四	五	六
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29

二月
日	一	二	三	四	五	六
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29