■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