msdoc old:programmieren:perl
https://www.mtacs.de/
2026-04-11T20:23:36+00:00msdoc
https://www.mtacs.de/
https://www.mtacs.de/lib/tpl/dokuwiki/images/favicon.icotext/html2023-01-11T19:29:47+00:00Anonymous (anonymous@undisclosed.example.com)old:programmieren:perl:kalender
https://www.mtacs.de/doku.php?id=old:programmieren:perl:kalender&rev=1673465387&do=diff
apt-get install libdate-calc-perl
#!/usr/bin/perl -w
use strict;
use Date::Calc qw(Day_of_Week check_date Day_of_Year leap_year Easter_Sunday Week_Number Today);
my $key;
my $jahr;
my $mon_ende;
my $mon;
my $tg = 1;
my $sj;
my $year;
my $month;
my $day;
my $os;
my @tag = ("","Mo","Di","Mi","Do","Fr","Sa","So");
my @monat = ("","Januar","Februar","Maerz","April","Mai","Juni", "Juli","August","September","Oktober","November","Dezember");
($year,$month,$day) = Today();
if (! defined $ARGV[0]…text/html2023-01-11T19:29:47+00:00Anonymous (anonymous@undisclosed.example.com)old:programmieren:perl:slowcat
https://www.mtacs.de/doku.php?id=old:programmieren:perl:slowcat&rev=1673465387&do=diff
Langsame Ausgabe auf der Console
#!/usr/bin/perl
# slowcat - emulate a s l o w line printer
# usage: slowcat [-DELAY] [files ...]
$DELAY = ($ARGV[0] =~ /^-([.\d]+)/) ? (shift, $1) : 1;
$| = 1;
while (<>) {
for (split(//)) {
print;
select(undef,undef,undef, 0.005 * $DELAY);
}
}