shuraba.com - Perl: Library for Text

エンコード、デコードする

文字列 $text をエンコードする。

$text =~ s/([^\w])/"%".unpack("H2", $1)/eg;

$text =~ tr\\+\;

文字列 $text をデコードする。

$text =~ tr/+/ /;

$text =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/eg;

タグを削除する

文字列 $text からタグを削除する。

$text =~ s/<[^>]*>//g;

URL にリンクを貼る

文字列 $text に含まれる URL (http URL) にリンク <a href=""></a> を貼る。

$text =~ s/s?https?:\/\/[-_.!~*\'()a-zA-Z0-9;\/?:\@&=+\$,%\#]+/<a href="$&">$&<\/a>/g;

英単語の最初の文字を大文字にする

スペースで単語が区切られた文字列 $text において、単語の最初の文字を大文字にする。

$text =~ s/\b(\w)/\U$1/g;