#!/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    : pldemo03.cgi
#    Created by   : Hans Kern
#    Creation date: 31.3.99
#

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

#    Spezialvariablen

if (defined $_) {
   print "\$\_: auch \$ARG, der standardmässige Ein-, Ausgabe- oder Mustererkennungsraum $_ \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\_: auch \$ARG undefined\n";
}	
if (defined $.) {
   print "\$\.: auch \$INPUT_LINE_NUMBER oder \$NR $. \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\.: auch \$INPUT_LINE_NUMBER undefined\n";
}	
print "\$\/: auch \$INPUT_RECORD_SEPARATOR oder \$RS $/ \n";
if (defined $,) {
   print "\$\,: auch \$OUTPUT_FIELD_SEPARATOR oder \$OFS $, \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\,: auch \$OUTPUT_FIELD_SEPARATOR oder \$OFS undefined\n";
}	
print "\$\": auch \$LIST_SEPARATOR $\" \n";  #   \", da sonst Stringende! Gemeint ist $" 
if (defined $\) {
   print "\$\\: auch \$OUTPUT_RECORD_SEPARATOR oder \$ORS $\ \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\\: auch \$OUTPUT_RECORD_SEPARATOR oder \$ORS undefined\n";
}	
print "\$\?: auch \$CHILD_ERROR $? \n";
print "\$\[: erster Index eines Arrays oder erstes Zeichen eines Strings $[ \n"; #veraltet
print "\$\]: auch \$PERL_VERSION $] \n";
#print "\$\;: auch \$SUBSCRIPT_SEPARATOR oder \$SUBSEP $; \n"; #Diese Zeile verursacht Aufruf des Editors.
print "\$\!: auch \$OS_ERROR oder \$ERRNO $! \n";
print "\$\@: auch \$EVAL_ERROR $@ \n";
print "\$\:: auch \$FORMAT_LINE_BREAK_CHARACTERS $: \n";
#print "\$\0: auch \$PROGRAM_NAME $0 \n"; #Diese Zeile verursacht ein Download.
print "\$\$: auch \$PROCESS_ID oder \$PID $$ \n";
print "\$\<: auch \$REAL_USER_ID oder \$UID $< \n";
print "\$\>: auch \$EFFECTIVE_USER_ID oder \$EUID $> \n";
print "\$\(: auch \$REAL_GROUP_ID oder \$GID $( \n";
print "\$\): auch \$EFFECTIVE_GROUP_ID oder \$EGID $) \n";
print "\$\^A: auch \$ACCUMULATOR $^A \n";
print "\$\^D: auch \$DEBUGGING $^D \n";
print "\$\^E: $^E \n";
print "\$\^F: auch \$SYSTEM_FD_MAX $^F \n";
print "Hinweise von Pragmas \$\^H: $^H \n";
if (defined $^I) {
   print "\$\^I: auch \$INPLACE_EDIT $^I \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\^I: auch \$INPLACE_EDIT undefined\n";
}	
print "\$\^L: auch \$FORMAT_FORMFEED $^L \n";
if (defined $^M) {
   print "\$\^M: $^M \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\^M: undefined\n";
}	
print "\$\^O: auch \$OSNAME $^O \n";
print "\$\^P: auch \$PERLDB $^P \n";
if (defined $^S) {
   print "\$\^S: $^S \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\^S: undefined\n";
}	
print "\$\^T: auch \$BASETIME $^T \n";
print "\$\^W: auch \$WARNING $^W \n";
print "\$\^X: auch \$EXECUTABLE_NAME $^X \n";
print "\$\%: auch \$FORMAT_PAGE_NUMBER $% \n";
print "\$\=: auch \$FORMAT_LINES_PER_PAGE $= \n";
print "\$\-: auch \$FORMAT_LINES_LEFT $- \n";
print "\$\~: auch \$FORMAT_NAME $~ \n";
print "\$\^: auch \$FORMAT_TOP_NAME $^ \n";
print "\$\|: auch \$OUTPUT_AUTOFLUSH $| \n";

if (defined $ARGV) {
   print "\$ARGV: $ARGV \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$ARGV: undefined\n";
}
if (defined $&) {
   print "\$\&: auch \$MATCH $& \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\&: auch \$MATCH undefined\n";
}	
if (defined $`) {
   print "\$\`: auch \$PREMATCH $` \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\`: auch \$PREMATCH undefined\n";
}	
if (defined $') {
   print "\$\': auch \$POSMATCH $' \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\': auch \$POSMATCH undefined\n";
}	
if (defined $+) {
   print "\$\+: auch \$LAST_PAREN_MATCH $+ \n"; # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\+: auch \$LAST_PAREN_MATCH undefined\n";
}	
if (defined $*) {
   print "\$\*: auch \$MULTILINE_MATCHING $* \n"; #veraltet # Use of uninitialized value in concatenation (.) or string
} else {
   print "\$\*: auch \$MULTILINE_MATCHING undefined\n";
}	
if (defined $#) {
   print "\$\#: auch \$OFMT $# \n";   #veraltet # Use of uninitialized value in concatenation (.) or string

} else {
   print "\$\#: auch \$OFMT undefined\n";
}	
if (defined $1) {
   print "BRACKET1 \$1: $1 \n";
} else {
   print "BRACKET1 undefined \$1\n";
}	
if (defined $2) {
   print "BRACKET2 \$2: $2 \n";
} else {
   print "BRACKET2 undefined \$2\n";
}	
if (defined $3) {
   print "BRACKET3 \$3: $3 \n";
} else {
   print "BRACKET3 undefined \$3\n";
}	
if (defined $4) {
   print "BRACKET4 \$4: $4 \n";
} else {
   print "BRACKET4 undefined \$4\n";
}	
if (defined $5) {
   print "BRACKET5 \$5: $5 \n";
} else {
   print "BRACKET5 undefined \$5\n";
}	
if (defined $6) {
   print "BRACKET6 \$6: $6 \n";
} else {
   print "BRACKET6 undefined \$6\n";
}	
if (defined $7) {
   print "BRACKET7 \$7: $7 \n";
} else {
   print "BRACKET7 undefined \$7\n";
}	
if (defined $8) {
   print "BRACKET8 \$8: $8 \n";
} else {
   print "BRACKET8 undefined \$8\n";
}	
if (defined $9) {
   print "BRACKET9 \$9: $9 \n";
} else {
   print "BRACKET9 undefined \$9\n";
}