Adventure-Treff

Verfasst: **07.10.2003, 11:32**

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

Verfasst: **07.10.2003, 20:50**

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?

Adventure-Treff

Obskure Programmiersprachen

Re:Obskure Programmiersprachen

Re:Obskure Programmiersprachen