Util.pm line 110のトラブル解消!!
救われた。
何度か書いている「Util.pm line 110」のトラブル。
実は今回解消するために最も参考になったqootas.org/blogさんのところ。実は知ってて一度実験したけど失敗していた。そのため違うのかと思っていたら、同じトラブルを持っていたWEBLOGROOVEのみゃ〓さんからのコメントで再度挑戦うまくいった。
なぜ失敗していたかというと、そのままqootas.org/blogさんのコードを貼り付けたためらしい。＿|￣|○
勘付けよ!!と自分で思うほどだ。
元のコードは
# substring treating HTML character-entity references as single characters
sub substr_wref {
my ($str, $start, $width) = @_;
my @character_entities = $str =~ /(&[^;]*;|.)/g;
join '', @character_entities[$start..$start+$width-1];
}
これなんだけど、参考にして
# substring treating HTML character-entity references as single characters
sub substr_wref {
my ($str, $start, $width) = @_;
return undef unless defined $str;
my @character_entities = $str =~ /(&[^;]*;|.)/gs;
$width = @character_entities if $width > @character_entities;
join '', @character_entities[$start..$start+$width-1];
}
こうやって貼り付けてみたらエラーメールが届かなくなった。
助かったぁぁぁぁ(泣)
qootas.orgの方には感謝!!!
コメントする
(初めてのコメントの時は、コメントが表示されるためにこのブログのオーナーの承認が必要になることがあります。承認されるまでコメントは表示されませんのでしばらくお待ちください)