k0rn has asked for the wisdom of the Perl Monks concerning the following question:

When useing Net::Whois::Raw qw( whois ); The results come out on one big long line. This is not ideal. How can I change this. 
#!/usr/bin/perl

# Whois script

use CGI qw(:standard escapeHTML);
use Net::Whois::Raw qw( whois );

# Get values from form

my $domain = param('domain');

# Check for blanks

unless (param('domain')){noname('a domain')};

#Get whois information

$whois = whois($domain);

#Print whois information

print "Content-type: text/html\n\n";
HEADER('Results');
print <<EOT;
$whois
EOT
FOOTER();
exit; # We stop here

# Header subroutine

sub HEADER {
    my($title) = @_;
    print <<EOT;
<HTML>
<HEAD>
    <TITLE>$title</TITLE>
</HEAD>
<body bgcolor="#263C6D" text="white" link="#ffffff" vlink="#C0C0C0" al
+ink="#C0C0C0">

EOT
}

# Noname Subroutine

sub noname {
    my($reason) = $_[0];
    print "Content-type: text/html\n\n";
    HEADER('Blank Entry');
    print <<EOF;
    <H1><center>Incomplete</H1></center>
    <center>Please fill in all required fields. You are missing $reaso
+n</center>
EOF
FOOTER();
exit; #we Stop Here
}

# Footer Subroutine

sub FOOTER {
    print <<EOT;
</BODY>
</HTML>
EOT
}

[download]

Replies are listed 'Best First'.
Re: Net::Whois::Raw qw( whois );
by quester (Vicar) on Apr 21, 2009 at 01:26 UTC

    Normally HTML ignores newlines. There are (at least) two simple ways of including output from a Unix command.

    One is to enclose the output in <pre> and </pre>, so that

    newlines, like this one -->
are not ignored.
It also tells the browser to use a monospaced font,
so that text in         columns
will line up            correctly.

    On the other hand, you may decide that the monospaced text looks kind of ugly.

    The other way is to enclose each line in the HTML sequence <p> ... </p> like this (caution: not tested):

    $whois =~ s{^}{<p>}mg;
$whois =~ s{$}{</p>}mg;

    [download]
[reply]
[d/l]

      replace the \n with <br/>

[reply]

Back to Seekers of Perl Wisdom