Loose-Info.com

Last Update 2019/12/25


TOP - Perl - 関数 - chop

引数に指定した文字列の最後の文字を削除します。

戻り値1 = chop 変数1

戻り値1
削除した文字
変数1
削除処理の対象となる文字列を格納した変数 省略した場合は$_の値が対象となる

戻り値1 = chop リスト値1

戻り値1
削除した文字
リスト値1
削除処理の対象となる文字列を格納した変数からなるリスト値

(例)
$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";

実行結果
テスト対象文字列 → test テスト結果 → test 削除した文字 → ------------------------------ テスト対象文字列 → test 改行 テスト結果 → test改行 削除した文字 → ------------------------------ テスト対象文字列 → test_a テスト結果 → test_ 削除した文字 → a ------------------------------ テスト対象文字列 → test テスト結果 → test 削除した文字 →