#!/usr/local/bin/perl

use strict;
use warnings;

my $input_file  = 'words.txt';
my $output_file = 'word_types.brain';

# oeffne Eingabe- und Ausgabedatei parallel
open my $in_fh, '<', $input_file    or die "Konnte $input_file nicht lesend oeffnen: $!\n";
open my $out_fh, '>', $output_file  or die "Konnte $output_file nicht schreibend oeffnen: $!\n";

# lese zeilenweise aus Eingabe
while ( my $line = <$in_fh> ) {
    # entferne Zeilenumbruch vom Ende der gelesenen Zeile
    chomp $line;
    # Ausgabe mit sogenanntem HERE-Dokument; alle folgenden Zeilen bis zur Marke "OUTPUT" werden ausgegeben
    print $out_fh <<"OUTPUT" or die "Konnte nicht nach $output_file schreiben: $!\n";
$line:
 type: n
 genus: s
OUTPUT
}

# Schliesse Ausgabe- und Eingabedatei wieder
close $out_fh or die "Fehler beim Schliessen von $output_file: $!\n";
close $in_fh;