2009年06月27日

空白削除

VB での RTrim, Trimに該当する関数です。

trim.txt




#--------------------------------------------------------------------
# 右空白削除
# 概要 文字列の右空白を削除する
# 形式 $string = &RTrim ( $instring );
# 引数 $instring : in : 文字列
# 戻り値 右空白削除後の文字列
#--------------------------------------------------------------------
sub main'RTrim {
local ( $instring ) = @_;

$instring =~ s/\s*$//;
return $instring;
}

#--------------------------------------------------------------------
# 左右空白削除
# 概要 文字列の左右空白を削除する
# 形式 $string = &Trim ( $instring );
# 引数 $instring : in : 文字列
# 戻り値 左右空白削除後の文字列
#--------------------------------------------------------------------
sub main'Trim {
local ( $instring ) = @_;

$instring =~ s/^\s*//;
return &main'RTrim( $instring );
}
posted by ぜんこう at 18:07| Comment(0) | Perl
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。