Home > Logs > September 2007 > This Entry
改行コードを変換するサブルーチン
Perl で改行コードを変換するサブルーチン。各種改行コードにマルチに対応します。引数で改行コードを変換したい文字列を渡してください。
sub changeline_convert {
my $str = shift;
$str =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
return $str;
}
This entry is
Bookmark
- Hatena:
Post Comment