Re: removing carriage returns

also (it's easier to understand, but you adding more code), just an alternative...

while ($requests = <REQUESTS>) {
  chomp $requests; #remove any endline characters
  if ($requests ne "") { #if all endline characters are wiped, check f
+or nothingness
    print MAIL "$requests\n";
  }
}
[download]

EDIT. RMGir got me good. Sorry for the mistake. (didn't put my newlines back in)

Comment on Re: removing carriage returns Download Code

Replies are listed 'Best First'.
Re: Re: removing carriage returns by RMGir (Prior) on Mar 29, 2002 at 15:17 UTC
Don't forget to put the newline back in, though... `while ($requests = <REQUESTS>) { chomp $requests; #remove any endline characters #if all endline characters are wiped, #check for nothingness if ($requests ne "") { # add newline for lines we're printing print MAIL "$requests\n"; } }` [download] -- Mike	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: removing carriage returns
by RMGir (Prior) on Mar 29, 2002 at 15:17 UTC

while ($requests = <REQUESTS>) {
  chomp $requests; #remove any endline characters

  #if all endline characters are wiped, 
  #check for nothingness
  if ($requests ne "") {
     # add newline for lines we're printing 
     print MAIL "$requests\n"; 
  }
}
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom