chop 執(zhí)行效果??

hunter_cao

怎么能看CHOP函數(shù)執(zhí)行效果?????
--------------------------------------------------------------------------------------------------------------------
函數(shù)名 chop
調用語法 $lastchar = chop (var);
解說 var可為變量或數(shù)組，當var為變量時，最后一個字符被刪除并賦給$lastchar，當var為數(shù)組/列表時，所有元素的最后一個字符被刪除，最后一個元素的最后一個字母賦給$lastchar。
-------------------------------------------------------------------------------------------------------------------

apile

$abc ="1234";
print chop($abc)."\n";

hunter_cao

$abc =<STDIN>;
print chop($abc)."\n";
輸入沒有顯示了???
thanks for the reply.

qinxianjun

原帖由 hunter_cao 于 2006-12-21 15:36 發(fā)表
$abc =<STDIN>;
print chop($abc)."\n";
輸入沒有顯示了???
thanks for the reply.

在什么環(huán)境下?

among29

最后一個是 \n, 返回的是\n, 換行而已
chop和chomp就這個區(qū)別
chop返回的是最后一個字符。
chomp去除最后一個換行符，\n, 返回0或是1，刪除成功則返回1

hunter_cao

謝謝,樓上的同胞!

hunter_cao

$str=<STDIN>;      #我輸入了 my perl
chop($str);             #--->>>   有無這條語句print輸出效果都一樣.
if($str=~/perl$/){
  print " 是以perl字符結束\n";
}
----------------------------------------------------------------------------
我想請問chop什么用途有意義呢????謝謝.

among29

chop去除字符串的最后一個字符，并返回最后移除的字符
re中 $   Match the end of the line (or before newline at the end)

多看看perldoc