Obskure Programmiersprachen

[Gast]

Ich find generell Lisp und darauf basierende Sprachen eher bizarr (Hilfe, Klammern! Sie wollen mich holen!)
Und so Sachen wie Brainfuck und Whitespace sind ja hoffentlich nicht ernst gemeint als echte Sprachen
Aber es gibt schon noch weitere Sprachen die wohl nur im Vollrausch einen Sinn ergeben

[theDon]

Code: Alles auswählen

#!/usr/bin/perl

use Date::Format;

@events = ("attacks Monster", "attacks Player", "is revived", "returns");

$verbose = 1 if $ARGV[1] =~ /--verbose|-v/;

open LOG, "eventlog.txt";

while(<LOG>)
  {
    push @log, $_;
  }

close LOG;

foreach $x (@log)
  {
    @l = split / /, $x;

    $l[0] =~ s/^\[([0-9]+)\]$/$1/;
    $l[3] =~ s/^([0-9]+):$/(event no. $1)\n/;

    $o[0] = time2str "[%d.%m.%Y %H:%M:%S]", $l[0];
    $o[1] = $l[1];
    $o[2] = $events[$l[4]].'.'.($verbose ? '' : "\n");
    $o[3] = $l[3] if $verbose;

    $o = join ' ', @o;

    print $o if $l[1] =~ /$ARGV[0]/;
  }

ästethisch, oder?