$a = "test\n"; print "テスト対象文字列 → $a\n"; $c = chop($a); print "テスト結果 → $a\n"; print "削除した文字 → $c\n"; print "------------------------------\n"; $a = "test\n"; $b = "改行\n"; print "テスト対象文字列 → $a$b\n"; # リスト値として2つの変数を指定 $c = chop($a,$b); print "テスト結果 → $a$b\n"; print "削除した文字 → $c\n"; print "------------------------------\n"; $a = "test_a"; print "テスト対象文字列 → $a\n"; # 最後の文字が改行ではない場合 $c = chop($a); print "テスト結果 → $a\n"; print "削除した文字 → $c\n"; print "------------------------------\n"; $_ = "test\n"; # $_に値を設定 print "テスト対象文字列 → $_\n"; $c = chop(); print "テスト結果 → $_\n"; print "削除した文字 → $c\n";