Sophie

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

distrib > Mageia > 5 > x86_64 > media > core-release > by-pkgid > 8d941aceeb9251ad9a0f33589757d3eb > files > 9

perl-CGI-XML-0.100.0-5.mga5.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";
}