搜索泥称 发表于 2018-9-1 07:57:52

perl 笔记-chop函数

　　
#!/usr/bin/perl
　　

　　
$string1 = "This is test";
　　
$retval= chop( $string1 );
　　

　　
print " Choped String is : $string1\n";
　　
print " Character removed : $retval\n";


页: [1]
查看完整版本: perl 笔记-chop函数