#!/bin/perl

$E = <>;

# Bei passendem Treffer wird die passende Extension gesetzt.
# Man muss dafür sorgen, dass die Treffer alle uniq sind.
# Damit es idealerweise immer nur EINEN Treffer
# mit anschliessender Ersetzung gibt
# Hmm, am besten man schreibt hier aus dem Quellcode von file
# alle Definitionen die file kennt und ergänzt die passenden Endungen.
# Leider steht mir der Source nicht zur Verfügung
# (Ist ein Windowssystem mit cygwin-Umgebung drauf, ohne Sourcen)
$E =~ s/^.*: MPEG 1.0 layer 3 audio stream data.*$/.mp3/;
$E =~ s/^.*: ASCII text.*$/.txt/;
$E =~ s/^.*: ISO-8859 text.*$/.txt/;
$E =~ s/^.*: ISO-8859 English text.*$/.txt/;
$E =~ s/^.*: perl script text executable.*$/.pl/;
$E =~ s/^.*: directory.*$//;
$E =~ s/^.*: empty.*$//;
# $E =~ s/^.*: .*$/./;
# $E =~ s/^.*: .*$/./;
# Sonsten mit den obenstehenden Templates das System empirisch erweitern :)

print $E;
