Module, CPAN und Pakete

use strict; use warnings;
use POSIX qw(floor ceil strftime);
use List::Util qw(sum max);
use Scalar::Util qw(looks_like_number blessed reftype);
use Time::Local qw(timegm);
use Text::Wrap qw(wrap);
use File::Basename;
use Cwd qw(getcwd);

print floor(3.7), " ", ceil(3.2), "\n";
print strftime("%Y-%m-%d", gmtime(timegm(0, 0, 0, 15, 2, 2025))), "\n";
print join(",", map { looks_like_number($_) ? "Zahl" : "Text" } (42, "4.5e3", "abc", "1_000")), "\n";
$Text::Wrap::columns = 20;
print wrap("", "  ", "Ein langer Satz, der umgebrochen werden soll."), "\n";
print "Arbeitsverzeichnis ist nicht leer\n" if length getcwd();

use strict; use warnings;
use JSON::PP;
use Time::Piece;
use Carp qw(croak);

my $json = JSON::PP->new->canonical->pretty;
my $text = $json->encode({ name => "Mia", alter => 17, hobbys => ["Lesen", "Judo"], aktiv => JSON::PP::true });
print $text;
my $daten = decode_json('{"a":[1,2,{"b":null}],"c":"text"}');
print scalar @{ $daten->{a} }, " ", $daten->{c}, " ", defined $daten->{a}[2]{b} ? "def" : "undef", "\n";

my $t = Time::Piece->strptime("2025-03-15", "%Y-%m-%d");
print $t->year, " ", $t->monname, " ", $t->day_of_week, " ", $t->add_months(1)->ymd, "\n";

sub wurzel { my $x = shift; croak "Negative Zahl: $x" if $x < 0; sqrt $x }
eval { wurzel(-4) };
print "Fehler gefangen: ", $@ =~ s/ at .*//sr, "\n";

use strict; use warnings;
sub teile { my ($a, $b) = @_; die "Division durch null\n" if $b == 0; return $a / $b }

my $ergebnis = eval { teile(10, 0) };
if ($@) { chomp(my $e = $@); print "Fehler: $e\n" }
print "weiter\n";

for my $b (2, 0) {
    my $r = eval { teile(8, $b); } // "nicht berechenbar";
    print "8/$b = $r\n";
}

# Objekte als Fehler
package MeinFehler { sub new { my ($c, %a) = @_; bless {%a}, $c } sub nachricht { $_[0]{nachricht} } }
eval { die MeinFehler->new(nachricht => "eigenes Fehlerobjekt") };
if (ref $@ && $@->isa('MeinFehler')) { print "Objekt: ", $@->nachricht, "\n" }

local $@;
print "sauber\n" unless eval { die "x\n"; 1 };

cpanm Mojolicious        # Webframework
cpanm DBI DBD::SQLite    # Datenbankzugriff
cpanm --installdeps .    # Abhängigkeiten eines Projekts
perldoc List::Util       # Dokumentation eines Moduls lesen
perl -MList::Util=sum -e 'print sum(1..10)'   # Modul im Einzeiler

# cpanfile
requires 'Mojolicious', '>= 9.0';
requires 'DBI';
on 'test' => sub { requires 'Test::More'; };

use strict; use warnings;
use File::Temp qw(tempdir);
my $dir = tempdir(CLEANUP => 1);
mkdir "$dir/Mein";
open(my $f, '>', "$dir/Mein/Rechner.pm") or die;
print $f <<'MODUL';
package Mein::Rechner;
use strict; use warnings;
use Exporter 'import';
our @EXPORT_OK = qw(addiere quadrat);
our $VERSION = '1.02';

sub addiere { return $_[0] + $_[1] }
sub quadrat { return $_[0] ** 2 }

1;    # Module müssen einen wahren Wert zurückgeben
MODUL
close $f;

use lib ();
unshift @INC, $dir;
require Mein::Rechner;
Mein::Rechner->import(qw(addiere quadrat));
print addiere(2, 3), " ", quadrat(9), " Version ", $Mein::Rechner::VERSION, "\n";
print "geladen aus: ", ($INC{'Mein/Rechner.pm'} =~ s{.*/Mein/}{.../Mein/}r), "\n";