#!/opt/bin/perl -w # core idea from [diotalevi] on Oct 7 2004, id://397469 use Data::Dumper; my $msg = "File Change Date 05/04/05 6.pl\n"; my $title = "06.01.04 Module Inventory Script"; my $in; my @in; my %in; # my $list = qw( # CGI # CGI::Application # Data::Dumper # HTML::Template # ); # my @extList = @ARGV; ##### Print header ##################################################### ######print "\n\n"; print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "
\n"; print "

Running $0 in Perl $]

\n
\n"; #$in = ("moduleList=Carp CGI Data::Dumper"); #$in = "moduleList=Carp%0D%0ACGI%0D%0AData%3A%3ADumper%0D%0A"; $in = "moduleList=Carp\n\rCGI\n\rData::Dumper\n\r"; print "$in\n"; my $junk; my $data; print "\n"; print "\n \n"; ($junk,$data) = split /=/, $in; @in = map {split} $data; print "\n"; print "\n"; print "\n"; print "\n
"; my $leng = $#in + 1; print "\n
"; foreach $_ (@in) { print "\n
"; } print "
\$in split on =gfgfgf
dumping \@in\n"; print "
",Dumper(\@in), "
"; print "
dumping \$in, \$data, \@in\n"; print "
",Dumper(\$in, \$data, \@in,), "
"; print "
\$junk$junk
\$data$data
\@in@in
\@in leng$leng
$_$_
\n"; ##### Print footer ##################################################### print "
\n
\n"; print "webmaster\@cantrall.net
\n"; print "### created Oct 07 2004 ###
\n"; print "$msg\n"; print "
\n\n\n"; exit (0);