under is the result of the source.
chomp $name;
just delete the CR/LF of the row What is your name? peng CR/LF
--------------------------------------------------------------------------------------------
What is your name? peng
Content-Type: text/html; charset=ISO-8859-1
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
<html xmlns="http://www.w3.org/1999/xhtml"; lang="en-US"><head><title>Hello peng
!
</title>
</head><body bgcolor="#cccccc" text="#999999"><h2>Hello, peng
!</h2>
</body></html>
--------------------------------------------------------------------------------------------
-----Original Message-----
From: Chris Share [mailto:[EMAIL PROTECTED]
Sent: Friday, October 20, 2006 6:54 PM
To: beginners@perl.org
Subject: Where are These Carriage Returns Coming From?
Hi,
In the output of the following code there's a carriage return between
the $name variable and the "!". Where is this coming from? Doesn't the
chomp get rid of this?
#!/usr/local/bin/perl
$| = 1;
use strict;
use warnings;
use CGI qw(:standard);
print "What is your name? ";
my $name = <STDIN>;
chomp $name;
print header;
print start_html(-title=>"Hello $name!\n", -bgcolor=>"#cccccc",
-text=>"#999999");
print "<h2>Hello, $name!</h2>\n";
print end_html;
Here's the output:
What is your name? Chris
Content-Type: text/html; charset=ISO-8859-1
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
<html xmlns="http://www.w3.org/1999/xhtml"; lang="en-US" xml:lang="en-US">
<head>
<title>Hello Chris
!
</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body bgcolor="#cccccc" text="#999999">
<h2>Hello, Chris
!</h2>
</body>
</html>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
