#!/usr/bin/perl 
#
# Skript zur Anzeige des PSE auf der Console
#
# Aufruf: pse.pl
#
#

use strict;

if (! $ARGV[0]) {
   print "
              1   2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 
       n = 1: H                                                  He 
       n = 2: Li Be                                B  C  N  O  F Ne 
       n = 3: Na Mg                               Al Si  P  S Cl Ar 
       n = 4: K  Ca Sc Ti  V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Kr 
       n = 5: Rb Sr  Y Zr Nb Mo Tc Ru Rh Pd Ag Cd In Sn Sb Te  I Xe 
       n = 6: Cs Ba La Hf Ta  W Re Os Ir Pt Au Hg Tl Pb Bi Po At Rn 
       n = 7: Fr Ra Ac Rf Db Sg Bh Hs Mt Ds                         
                                                                    
       Lantanoide:  Ce Pr Nd Pm Sm Eu Gd Tb Dy Ho Er Tm Yb Lu       
       Actinoide:   Th Pa  U Np Pu Am Cm Bk Cf Es Fm Md No Lr \n";
}
else {
my  @SY = qw(X
    H                                                  He
    Li Be                                B  C  N  O  F Ne
    Na Mg                               Al Si  P  S Cl Ar
    K  Ca Sc Ti  V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Kr
    Rb Sr  Y Zr Nb Mo Tc Ru Rh Pd Ag Cd In Sn Sb Te  I Xe
    Cs Ba La
             Ce Pr Nd Pm Sm Eu Gd
             Tb Dy Ho Er Tm Yb Lu
             Hf Ta  W Re Os Ir Pt Au Hg Tl Pb Bi Po At Rn
    Fr Ra Ac
             Th Pa  U Np Pu Am Cm
             Bk Cf Es Fm Md No Lr
             Rf Db Sg Bh Hs Mt Ds
            );
#
   if ($ARGV[0] =~ /\d/) {
      print "Aufrufargunment war eine Zahl: ", $ARGV[0], "\n";
      print "Das entsprechende Elementsymbol lautet: ", $SY[$ARGV[0]], "\n";
   }
   else {
      print "Aufrufargunment war ein Zeichen: ", $ARGV[0], "\n"; 
   }
}