How to match crossing line?

[firenet]

#!/usr/bin/perl -w
undef $/;
$temp=<>;
#print $temp;
$temp =~ /author (.*?)<\/a>/gs;
print $1;

I want to get Brian W.Kerniham below.But i get a message"Use of
uninitialized value in print at sss.pl line 6, <> chunk 1." what's
wrong? Thank you.

<br><span class="pl2">author: <a
href=http://www.douban.com/subject_search?search_text=Brian W.Kernigham&amp;cat=1001>
Brian W.Kernigham</a>

 

[Jürgen Exner]

#!/usr/bin/perl -w
undef $/;
$temp=<>;
#print $temp;
$temp =~ /author (.*?)<\/a>/gs;
print $1;

You should _always_ test is the pattern match sussessfull before using the
captured result.
Had you done that
if ($temp =~ /author (.*?)<\/a>/gs) {
print $1;
} else {
print 'Can\'t match /author (.*?)<\/a>/';
}
then perl would have told you.

I want to get Brian W.Kerniham below.But i get a message"Use of
uninitialized value in print at sss.pl line 6, <> chunk 1." what's
wrong? Thank you.

<br><span class="pl2">author: <a
href=http://www.douban.com/subject_search?search_text=Brian W.Kernigham&amp;cat=1001>
Brian W.Kernigham</a>

jue

 

[firenet]

I did it as you told. it can't match.
But what should the rexp be?

 

[Jürgen Exner]

^^^^^^^
|
^^^^^^^
|

But what should the rexp be?

Did you notice the difference in the first character after 'author'?

jue

 

[firenet]

thank you! i get the name but also the <a herf=url>
i'll work to get rid of it!
thanks again