■ｃｈop()
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 |