chomp

So I am currently trying to write a perl script that reads to a file and writes to another. Currently, the problem that I have been having is removing new line characters from parsed rows.I feed in a file like this BetteDavisFilms.txt 1. Wicked Stepmother (1989) as Miranda A couple comes home from vacation to find that their grandfather has … 2. Directed By William Wyler (1988) as Herself During the Golden Age of Hollywood, William Wyler was one of the … 3. Whales of August, The (1987) as Libby Strong Drama revolving around five unusual elderly characters, two of whom … Ultimately I am trying

I'm on break from classes right now and decided to spend my time learning Perl. I'm working with Beginning Perl ( http://www.perl.org/books/beginning-perl/ ) and I'm finishing up the exercises at the end of chapter three. One of the exercises asked that I "Store your important phone numbers in a hash. Write a program to look up numbers by the person's name." Anyway, I had come up with this: #!/usr/bin/perl use warnings; use strict; my %name_number= ( Me => "XXX XXX XXXX", Home => "YYY YYY YYYY", Emergency => "ZZZ ZZZ ZZZZ", Lookup => "411" ); print "Enter the name of who you want to call (Me,

This is what my Perl code looks like for monitoring a Unix folder : #!/usr/bin/perl use strict; use warnings; use File::Spec::Functions; my $date = `date`; chomp $date; my $datef = `date +%Y%m%d%H%M.%S`; chomp $datef; my $pwd = `pwd`; chomp $pwd; my $cache = catfile($pwd, "cache"); my $monitor = catfile($pwd, "monme"); my $subject = '...'; my $msg = "..."; my $sendto = '...'; my $owner = '...'; sub touchandmail { `touch $cache -t "$datef"`; `echo "$msg" | mail -s "$subject" $owner -c $sendto`; } while(1) { $date = `date`; chomp $date; $datef = `date +%Y%m%d%H%M.%S`; chomp $datef; if (! -e "