在perl中怎样提取字符串中的某一部分。

snollow

比如，Bookname: Learning Perl, Third Edition中提取Learning Perl。谢谢了。

nasvel

1/
($dump, $title, $ver) = split(/,:/, $line);
print $title;

2/
$line =~ m/:(.*),/;
print $1;

deathcult

$str =~ /Learning Perl/;
print $&;

flw

substring,还是 substr，忘了。

roby

[quote]原帖由 "flw"]substring,还是 substr，忘了。[/quote 发表：


substr

zx0228

substr (expr, skipchars, length)
抽取字符串（或表达式生成的字符串）expr中的子串，跳过skipchars个字符，或者说从位置skipchars开始抽取子串（第一个字符位置为0），子串长度为length，此参数可忽略，意味着取剩下的全部字符。
当此函数出现在等式左边时，expr必须为变量或数组元素，此时其中部分子串被等式右边的值替换。

bioinfor

原帖由 "nasvel" 发表：
1/
($dump, $title, $ver) = split(/,:/, $line);
print $title;

应该是($dump, $title, $ver) = split(/,|:/, $line);吧？