chop function deletes the character at the right end of the line of text : chop chomp « String « Perl






chop function deletes the character at the right end of the line of text

   

When you type a number 10 and press Enter, the line of input assigned to $originaldist consists of three 
characters: the 1, the 0, and a newline character. 

#!/usr/local/bin/perl 
 
print ("Enter the distance to be converted:\n"); 
$originaldist = <STDIN>; 
chop ($originaldist); 
$miles = $originaldist * 0.6214; 
$kilometers = $originaldist * 1.609; 
print ($originaldist, " kilometers = ", $miles," miles\n"); 
print ($originaldist, " miles = ", $kilometers, " kilometers\n"); 

   
    
    
  








Related examples in the same category

1.Difference between chomp and chop
2.Type four characters with chomp
3.Type four characters without chomp
4.chomp in a while statement
5.chomp matches the input line separator defined by the $/ system variable.
6.The chomp function is a safer version of chop
7.The chop function removes the last character in a scalar variable
8.Chomp the pre-set character
9.Chomp: Last character removed only if a newline
10.Chop function in action
11.Chop: Removing the last character, regardless of what it is
12.Cleaning Up Typed Input