Mega Code Archive

 

Categories / Perl / String

 

Chomp

#!usr/bin/perl use warnings; use strict; print "Input something and we'll print it: "; my $string = <STDIN>; chomp( $string );  # Last character removed only if a newline print "\nThis is safer. Still '$string.'\n";