in reply to FORMATting
You'll want to mess with it a bit, but that's the general idea.#!/usr/local/bin/perl -w use strict; use vars qw/$name $phone/; use CGI; my $query = new CGI; print $query->header; format STDOUT = @<<<<<<<<<<< @|||||||||||||| $name, $phone . my %phones = ( "Baz" => "1-293-593-2529", "Foo Bar" => "1-392-592-0382" ); print "<pre>\n"; print "Phone Numbers:\n"; for $name (keys %phones) { $phone = $phones{$name}; write; } print "</pre>\n";
|
|---|