■chop()
chop()関数はカッコの中の引数をひとつだけとり、その変数が値として持っている文字列の最後の一文字を取り除く
■chomp()
chomp()関数はカッコの中の引数をひとつだけとり、その変数が値として持っている文字列の最後にある改行を取り除
#!/bin/perl $str = "abcdefg"; print "$str\n"; while ( $str ) { chop($str); print "$str\n"; } $str1 = "abcdef\n"; print "$str1"; for ($i = 0; $i < 7; $i++) { chomp($str1); print "$str1"; } |
実行結果
abcdefg abcdef abcde abcd abc ab a abcdef abcdefabcdefabcdefabcdefabcdefabcdefabcdef |