Perl標準関数: chomp ======== chomp VARIABLE chomp( LIST ) chomp 関数は、スカラーもしくはリストを引数とし、末尾の改行を取り除きます。 リストを引数とした場合は、それぞれの要素の末尾を chomp します。 末尾の「改行」を取り除くかどうかは $/ ($INPUT_RECORD_SEPARATOR)の設定によります。(ref. perlvar) chomp 関数は、chop 関数と違って、なんでも取り除いてしまうわけではありません。 VARIABLE が省略された場合は、$_ を対象に chomp します。 ## chomp サンプルコード ### 改行を取り除く my $str = "foo\n"; chomp $str; # "foo" ### リストにかければ、それぞれの要素の改行を取り除きます my @list = ( "foo\n", "bar\n", "baz\n", ); chomp @list; # ("foo", "bar", "baz") ### 特殊変数で、改行以外の文字を取り除くようにすることもできます $/ = "r"; my $str = "bar"; chomp $str; # ba ### 空にすると、全部なくなってしまいます $/ = ""; my $str = "foo\n"; chomp $str; # blank!! =pod When in paragraph mode ("$/ = """), it removes all trailing newlines from the string. When in slurp mode ("$/ = undef") or fixed-length record mode ($/ is a reference to an integer or the like, see perlvar) chomp() won't remove anything. =cut