Chop function in action : chop chomp « String « Perl
- Perl
- String
- chop chomp
Chop function in action
#!C:/perl/bin
$word = 'Lengthy';
print "Before chop = $word \n";
$word2 = chop($word);
print "Result of the chop function after chop = $word2 \n\n";
print "Original string \$word after chop = $word \n";
Related examples in the same category