Try this:
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
# ------
my(%method);
for my $tag (keys %CGI::EXPORT_TAGS)
{
$method{$_} = 1 for grep{! /^:/} (@{$CGI::EXPORT_TAGS{$tag} });
}
print "$_. \n" for (sort keys %method);
--
Ron Savage, [EMAIL PROTECTED] on 3/05/2004. Room EF 312
Deakin University, 221 Burwood Highway, Burwood, VIC 3125, Australia
Phone: +61-3-9251 7067, Fax: +61-3-9251 7604
http://www.deakin.edu.au/~rsav
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[EMAIL PROTECTED]/
http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
