#!/usr/bin/perl

use strict;
use warnings;

print "Geben Sie eine Zahl ein","";

# mit <STDIN> liest Du eine Eingabe ein
my $a= <STDIN>;
my $b= 2;

chomp $a;

# überprüfe, ob es auch wirklich eine Zahl ist
if( not $a =~ /^\d+$/ ){
    print "ich habe Dir doch gesagt, Du sollst eine Zahl eingeben!!!!!!!\n";
    exit;
}

if( $a%$b == 0 ){
    print "gerade";
}
else{
    print "ungerade";
}

#!/usr/bin/perl

use strict;
use warnings;

print "Geben Sie eine Zahl ein","";

my $zahl_a= <STDIN>;
my $zahl_b= 2;

chomp ($zahl_a);

if( $zahl_a%$zahl_b == 0 )
  {
print"Das Ergebnis der Division von " + a + "
               ergibt eine Nichtkommazahl.";
} else {
print "Das Ergebnis der Division von " + a + " durch 2
               ergibt eine Kommazahl."; }

#!/usr/bin/perl

use strict;
use warnings;

# überflüssige Liste und Leerstring entfernt; dafür String geändert:
print "Geben Sie eine Zahl ein: ";

# Dateneingabe und Umbruch Entfernen kombiniert
chomp( my $zahl_a = <STDIN> );

my $zahl_b= 2;

if( $zahl_a%$zahl_b == 0 )   {

  # Strings werden mit '.' verknüpft, nicht mit '+'
  # ausserdem kann print Listen verarbeiten; das nutzen wir hier mal
  # und 'a' ist ein bareword; deine variable heisst doch $zahl_a
  # Umbruch eingefügt
  print"Das Ergebnis der Division von ", $zahl_a, "ergibt eine Nichtkommazahl.\n";
}
else {
  # s.o.
  print "Das Ergebnis der Division von ", $zahl_a, " durch 2 ergibt eine Kommazahl.\n"; 
}

perl "Das Ergebnis für $eingabe ist eine ",
  ( $eingabe % $teiler == 0 ) ? 'ganze ' : '',
  "Zahl.\n";

if( $zahl_a%$zahl_b == 0 )
  {
print"Das Ergebnis der Division von " + a + "
               ergibt eine Nichtkommazahl.";
} else {
print "Das Ergebnis der Division von " + a + " durch 2
               ergibt eine Kommazahl."; }

perl -cw test.pl
Bareword "a" not allowed while "strict subs" in use at test.pl line 14.
Bareword "a" not allowed while "strict subs" in use at test.pl line 18.
test.pl had compilation errors.

print "Das Ergebnis der Division von $zahl_a durch 2 ergibt eine Nichtkommazahl.\n";

my $string = "Das ist der erste Teil." . "Und hier kommt der Rest" . "\n";

use strict;
use warnings;

print "Geben Sie Ihren Verdienst ein:\n";

my $income = <STDIN>;
chomp($income);

if ($income < 300)
{
print "Mann das ist aber nicht gerade viel Verdienst.\n";}

elsif ($income >= 300 <=> 1000)
{
print "Dein Verdienst scheint ordentlich zu sein.\n";}

elsif ($income > 1001)
{
print "Ey, kannst du mir was leihen?\n";}

elsif ($income >= 300 <=> 1000)

if( $income >= 300 and $income < 1000 ){...}