================================
\nbday-perltest
\n================================<\/p>\n
#!\/usr\/bin\/perl
\n#
\n# Program to show the next birthdays from a listfile<\/p>\n
#parameter
\n$nextbirthdays = 25;<\/p>\n
#Datum bestimmen
\n($sek, $min, $std, $tag, $mon, $jahr) = localtime(time);
\n$jahr = $jahr + 1900;
\n$mon++;
\nprint “$tag $mon $jahr \\n”;<\/p>\n
$file = ‘birthday.ini’; # Filename zuweisen
\nopen(INFO, $file); # File \u00f6ffnen<\/p>\n
@lines = <INFO>; # alle Zeilen einlesen
\n$length = @lines; # bestimme Array-L\u00e4nge<\/p>\n
# for ($i = 0; $i < $length; ++$i)<\/p>\n
$i = 0;
\n$count = 0;<\/p>\n
while ($count < $nextbirthdays)
\n{<\/p>\n
@record = split(\/ \/, $lines[$i]); # get day+month
\n$dayMonth = @record[0]; # get day+month<\/p>\n
$birthday = substr($dayMonth, 0, 2); # get birthday
\n$birthmonth = substr($dayMonth, 3, 2); # get birthmonth<\/p>\n
if(
\n($birthmonth > $mon)
\nor ( ($birthmonth == $mon) and ($birthday >= $tag) )
\nor ($count > 0)
\n)
\n{
\nprint $lines[$i]; # Zeilen ausgeben
\n$count++;
\n# print “count $count\\n”;
\n# print “$i\\n”;<\/p>\n
}
\n# print “$i\\n”;<\/p>\n
if($i >= $length){
\n$i = 0;
\n}
\nelse{
\n$i++;
\n}
\n}<\/p>\n
close(INFO); # File schliessen<\/p>\n
================================
\nbirthday.ini
\n================================
\n03.01. 1952 Ma Muster
\n10.01. 1975 Else
\n15.01. 1925 Billy Horst
\n16.01. 0000 Max Molch
\n24.01. 1978 Klaus Strolch
\n31.01. 1973 Klaas Clever<\/p>\n","protected":false},"excerpt":{"rendered":"
================================ bday-perltest ================================ #!\/usr\/bin\/perl # # Program to show the next birthdays from a listfile #parameter $nextbirthdays = 25; #Datum bestimmen ($sek, $min, $std, $tag, $mon, $jahr) = localtime(time); $jahr = $jahr + 1900; $mon++; print “$tag $mon $jahr \\n”; $file = ‘birthday.ini’; # Filename zuweisen open(INFO, $file); # File \u00f6ffnen @lines = <INFO>; # […]<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[12],"tags":[],"_links":{"self":[{"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/posts\/30"}],"collection":[{"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/comments?post=30"}],"version-history":[{"count":1,"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/posts\/30\/revisions"}],"predecessor-version":[{"id":31,"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/posts\/30\/revisions\/31"}],"wp:attachment":[{"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/media?parent=30"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/categories?post=30"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mobiehl.de\/wordpress\/pc-knowhow\/wp-json\/wp\/v2\/tags?post=30"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}