在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 發(fā)表：


substr

zx0228

substr (expr, skipchars, length)
抽取字符串（或表達(dá)式生成的字符串）expr中的子串，跳過skipchars個(gè)字符，或者說從位置skipchars開始抽取子串（第一個(gè)字符位置為0），子串長(zhǎng)度為length，此參數(shù)可忽略，意味著取剩下的全部字符。
當(dāng)此函數(shù)出現(xiàn)在等式左邊時(shí)，expr必須為變量或數(shù)組元素，此時(shí)其中部分子串被等式右邊的值替換。

bioinfor

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

應(yīng)該是($dump, $title, $ver) = split(/,|:/, $line);吧？