#!/usr/bin/perl
use CGI;
$query = CGI::new();
$hello1=$query ->param("hello1");
$wowser=$query ->param("wowser");
print $query ->header();
print "\n";
print $query ->p("Your text is $hello1\n");
print $query ->p("Your pattern is $wowser\n");
($newhello = $hello1) =~ s/\s+//g;
print "$hello1 minus all whitespace: $newhello\n";
($newwowser = $wowser) =~ s/\s+//g;
print "$wowser minus all whitespace: $newwowser\n";
Hi I am using this perl program in a CGI.
Why do the last two print statements print on the same line?
Any help, I am very grateful.
use CGI;
$query = CGI::new();
$hello1=$query ->param("hello1");
$wowser=$query ->param("wowser");
print $query ->header();
print "\n";
print $query ->p("Your text is $hello1\n");
print $query ->p("Your pattern is $wowser\n");
($newhello = $hello1) =~ s/\s+//g;
print "$hello1 minus all whitespace: $newhello\n";
($newwowser = $wowser) =~ s/\s+//g;
print "$wowser minus all whitespace: $newwowser\n";
Hi I am using this perl program in a CGI.
Why do the last two print statements print on the same line?
Any help, I am very grateful.