ignore carriage returns from STDIN.

[newtarge]

Please tell me how to do this. here is an example of the current part of the script i'm working with. If I paste a small paragraph from note pad in windows it chops at the 1st carriage return. How do I make SDTIN accept the whole paragraph?

print "What will the subject be[]?";
$subject = <STDIN>;
chomp ($subject);
print &quot;paste your message here[]&quot;;
$message = <STDIN>;
chomp ($message);
print &quot;$message\n&quot;;
open (TEXT,&quot;>$b3&quot;
print TEXT &quot;Subject: $subject\n\n&quot;;
print TEXT &quot;$message\n&quot;;
close (TEXT);

 

[icrf]

It breaks input on the input record separator, like any other file handle. You can change this to something other than a newline if you wish.

http://www.perldoc.com/perl5.8.0/pod/perlvar.html#IO--Handle->input_record_separator(EXPR)

________________________________________
Andrew - Perl Monkey

 

[raklet]

Or you can change

$message = <STDIN>

to

@message = <STDIN>

Each carriage return will place the previously typed text into a new array element. Input will not stop being recieved until the user types ctrl+z (windows) or ctrl+d (linux)