#!/usr/bin/perl -w
#!C:/xampp/perl/bin/perl -w
#
#    This file is part of a perl tutorial
#
#    (C) Copyright 1999 Hans Kern
#
#    File name    : pldemo04.cgi
#    Created by   : Hans Kern
#    Creation date: 31.3.99
#

#    Spezialarrays

print "Content-type:text/plain\n\n";

print "Ausgabe des Arrays \@ARGV:\n";
$size = @ARGV;
print "Elemente in \@ARGV: $size\n";
foreach $index ( @ARGV) {
   print "$index\n"
}
print "\n";

print "Ausgabe des Arrays \@EXPORT:\n";
$size = @EXPORT;
print "Elemente in \@EXPORT: $size\n";
foreach $index ( @EXPORT) {
   print "$index\n"
}
print "\n";

print "Ausgabe des Arrays \@EXPORT_OK:\n";
$size = @EXPORT_OK;
print "Elemente in \@EXPORT_OK: $size\n";
foreach $index ( @EXPORT_OK) {
   print "$index\n"
}
print "\n";

print "Ausgabe des Arrays \@F:\n";
$size = @F;
print "Elemente in \@F: $size\n";
foreach $index ( @F) {
   print "$index\n"
}
print "\n";

print "Ausgabe des Arrays \@INC:\n";
$size = @INC;
print "Elemente in \@INC: $size\n";
foreach $index ( @INC) {
   print "$index\n"
}
print "\n";

print "Ausgabe des Arrays \@ISA:\n";
$size = @ISA;
print "Elemente in \@ISA: $size\n";
foreach $index ( @ISA) {
   print "$index\n"
}
print "\n";

print "Ausgabe des Arrays \@_:\n";
$size = @_;
print "Elemente in \@_: $size\n";
foreach $index ( @_) {
   print "$index\n"
}
print "\n";