luelista

<div  id="countdown_silvester"
   style="background:black; font-size:40pt; text-align:center;
          padding: 50px 0; color: white; line-height: 1em;">
00:00:00
</div>
<script type="text/javascript">
var cdEl = document.getElementById("countdown_silvester");
var curDate = new Date();
var trgDate = new Date(curDate.getFullYear()+1, 0, 1, 0, 0, 0);
window.setInterval(function(){

luelista

# Aufgabe 1)    Summieren
$ perl -e "my ($a,$b)=(201,0);$b+=$a while($a-->0);print $b;"
20100

# Aufgabe 2)    Brüche addieren
$ perl -e "my ($a,$b)=(1,0);$b+=(1/$a) while($a++>0 && $b<3);print \"$a - $b\";"
$ perl -e "my ($a,$b)=(1,0); while($a++>0 && $b<3){$b+=(1/$a) ;print \"$a - $b\";}"
32 - 3.02724519543652

# Aufgabe 3)a)  Preise berechnen

luelista

#!/bin/perl
# durchschnitt.pl

use strict;

print "Punkte-Durchschnittsberechner\n";
print '(c) Max Weller <[email protected]>',"\n\n";

die "Bitte gib den Punktespiegel absteigend ein\n" unless ($#ARGV>0);

luelista

#!/usr/bin/perl
# jpeg2kml.pl
# Extracts GPS location data from JPEG EXIF and creates a KMZ file with thumbnails
# http://home.max-weller.de/perl/jpeg2kml/

use strict;
use Image::ExifTool qw(:Public);
use File::Basename;
use File::Copy;
use Data::Dumper;

luelista

#!/bin/perl
# mag_quad03.pl
# Max Weller, http://max-weller.de

my $count = $ARGV[0];
if(!$count || $count < 1 || $count % 2 == 0) {
    print "Usage: perl $0 count\n\n";
    print "Please specify a positive odd integer for count\n\n";
    exit(1);
}

luelista

#!/bin/perl
# view_hexfile.pl
# prints IBM hex files in a formatted way
# Max Weller, http://max-weller.de

while(<>) {
  if($_=~/^\s*:([A-F0-9]+)\s*$/) {
    my @data = unpack("(A2)*", $1);
    print $_," " for (@data);
    print "  |  ";