Lösung zu Blatt 3 --- Software Engineering Praxis (SS 2002)

Zählen

#!/usr/local/bin/perl -w

use strict;
my %count = ();
while (<>) {
   foreach (split //) {
      next unless /\w/;
      $count{$_}++;
   }
}
foreach (sort keys %count) {
   print "$_: $count{$_}\n";
}

Zeit

#!/usr/local/bin/perl -w

use strict;

while (<>) {
   chomp;
   next unless /^([01]?\d|2[0-3]):[0-5]\d$/;
   print "Valid time\n";
}

Aushang

#!/usr/local/bin/perl -w

use strict;
while (<>) {
   chomp;
   next unless s/.*:([1-3]\.[037]|[45]\.0):\d\d+(\d{4})$/$2:$1/;
   print "$_\n";
}