【Perl 】初心者コーナーPart5

>>495
あの、下の例文の意味がよくわからないのですが、 実体参照を
一文字としてsubstrしたいということですか？
手遊びに作ってみましたが、ちがったら無視して下さい。

# 開始位置は最初からのみ
# $str : 切り取り対象 $n : 何文字切り取るか
sub html_substr{
my( $str, $n ) = @_;

{
my $count = 0;
do{ last if $count++ >= $n }
while $str =~ /？\d{1,4};|&[A-Za-z]{1,7};|./gs;
}

substr $str, 0, pos($str);
}

うーん。遅そう。