$v = 'Flowers';
$r = chop($v);
print "$v (without $r)n";
运行结果
[root@localhost per]# ./1-16.pl
Flower (without s)
例2：chomp
#!/usr/bin/perl
print "User name: ";
$name = < STDIN >;
chomp $name;
print "Your user name is : $namen";
运行结果
[root@localhost per]# ./1-18.pl
User name: Bill
Your user name is : Bill
