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";

$c = chop($a,$b);                         # リスト値として2つの変数を指定

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
削除した文字 →




Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.