习鞘8-4.txt

< linux网络编程工具>>配套源码

$answer = substr <STDIN>, 0, -1;
print $answer,"\n";
$var = "I am OK!";
print "The string before replace :$var\n";
$last_char = chop($var);
$last_char = substr($var, -1, 1, '');   # same thing
print "After replaced: ",$var;
print "\nThe return is $last_char";
$caravan = "Thank you!";
print "\nBefore replace: $caravan\n";
substr($caravan, -5) = "";
print "After replaced : $caravan\n";