Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mandriva > 2010.0 > i586 > media > contrib-release > by-pkgid > a77029acfc32fdb2355ea7bf83f9b8de > files > 9

perl-CGI-XML-0.1-9mdv2010.0.noarch.rpm

• Info
• Deps
• Files
• Scripts
• ChangeLog
• Location
• Others versions
• Analyse

#!/usr/bin/perl -w
use strict;
use CGI::XML;
my $q = new CGI::XML;

# load CGI variables from XML file
open (XML,"cgi.xml");
my $xml = join("",<XML>);
$q->toCGI($xml);

# print CGI variables
foreach my $item ($q->param) {
    print "$item = ", $q->param($item), "\n";
}