#!/usr/bin/perl
# ^ wird verwendet wenn mehrere Perl installiert
use Math::Trig; # Mathe Library

# spitze klammern sind Handle
chomp($r = <STDIN>);  # Zeile einlesen
# chomp Entfernt alle strings die noch aus der vorherigen eingeabe vorhanden sind
print 2 * pi * $r;


# --------- Listen -----------
@buch = (1,2,3);

$buch[0] = "1";
print @buch;
# ABER!
print $buch[0];

#Können beide existiereten
@a = ();
$a = "a";


("Peter", "Hans") == qe( Peter Hans );

# Weitere zeichen für funktionen z.B.
print ("a");
print !"a"!;
print {"a"};
echo ! mit ausrufe\!zeichen !;

# Liste kopieren:
@listeb = ("a", 2);
@listea = @listeb;

# Anzahl der elemente
0 + @personen # ergibt anzahl

# stack
push @listeb "neu";
push @listeb ("noch", "mehr");
pop @listeb;

#queue
shift @kram;
unshift @kram "Stift";

# sort reverse
@kram = sort @kram;
@kram = reverse @kram;

# ------------ Variablen tauschen -------
($links, $rechts) = ($rechts, $links);


# Foreach
foreach $item (@kram){
}

foreach (1..10){
  print "Durchlauf $_";
}


# ------------ Sub -------
sub x{
	print($#_);
	print("\n");
	print(@_ + 0);
}
&x("", "", "");


# ------------ Filehandle -------

open DATEI, "datei.txt";
# < Lesend, >schreiend, >>anhängend
open DATEI, "<datei.txt";
$zeile = <DATEI>;
while (defined($zeile = <DATEI>));
while (<DATEI>){}
@zeilen = <DATEI>;
close DATEI;

$success = open DATEI, "datei.txt";
die "fehler $!";

print DATEI "Inhalt";