K
Ken Sington
In this test:
#!/usr/bin/perl -T
print "content-type: text/html \n\n";
use warnings;
use strict;
use CGI qw/param/;
my $x=param("x");
print qq{
<form method="GET">
<textarea name="x" cols="50" rows="20">$x</textarea><br>
<input type="submit">
</form>
};
print "<hr>\n";
my $s=length($x);
print $s;
print "<br>\n";
print $x =~ s/\n/<br>\n/g; #This one here...
=================
This: print $x =~ s/\n/<br>\n/g;
doesn't do this:
$x =~ s/\n/<br>\n/g;
print $x;
#!/usr/bin/perl -T
print "content-type: text/html \n\n";
use warnings;
use strict;
use CGI qw/param/;
my $x=param("x");
print qq{
<form method="GET">
<textarea name="x" cols="50" rows="20">$x</textarea><br>
<input type="submit">
</form>
};
print "<hr>\n";
my $s=length($x);
print $s;
print "<br>\n";
print $x =~ s/\n/<br>\n/g; #This one here...
=================
This: print $x =~ s/\n/<br>\n/g;
doesn't do this:
$x =~ s/\n/<br>\n/g;
print $x;