RDW #5 - Rätsel der Woche 5 - #85516 (Allgemeines zu Perl)

Crian

2004-08-09 13:41

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich werde jetzt die Auszählungen der Golflösungen mit diesem Skript vornehmen, wenn keiner was dagegen hat:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $c = 0;

while (<>) {
    if ($. == 1 and m~^#!~) {
        s~^#!.*?perl~~;
    }
    $c += () = m~(\S)~g;
}

print $c, "\n";

Kommentare werden nicht verstanden, möchte ich auch nicht einbauen, da in Strings und RE's # ganz andere Bedeutung haben kann. Golf-Programme werden in der Regel eh nicht kommentiert.

Berücksichtigt werden aber Switches hinter der Shebang.

Damit ergibt sich dann:

rdw05_crian_golf.pl 185
rdw05_ds_golf1.pl 84
rdw05_ds_golf2.pl 86
rdw05_ds_golf3a.pl 80
rdw05_ds_golf3b.pl 79
rdw05_ds_golf3c.pl 78
rdw05_ds_golf4.pl 49
rdw05_ds_golf5.pl 74
rdw05_eb_golf.pl 84\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite