﻿#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use integer;


# Filter_1_01_import_text.pl
# 2010-04-04
# Wolfgang Schmidle

# what does it do?
# input
# output


# text input

my @text;
while(<>) { push @text, $_; }


# go through the text

foreach (@text) {

}


# text output

print @text;


# TO DO:
# besser als Skript statt als Filter? Es gibt ja noch nichts, worauf man es anwenden kann
# oder man definiert als Startsituation: geöffneter Text, bei dem noch die Zeilenenden
# geändert werden müssen.
# Insbesondere weil s!\r\n!\n!; im Filter de facto ignoriert wird.

# in WO1/ (wird nicht angelegt):
# Benedetti_1585/ anlegen
# raw/ anlegen
# Originaltext hierhin kopieren: link von Pythia
# weitere Kopie, umbenennen in Autor_Jahr_identifier.xml
# Zeilenende ändern

# oder 
# in texts/: WO1 anlegen falls nötig
# Benedetti_1585 mit b, c, ... versehen, falls es dieses Verzeichnis schon gibt.

# wohin kommen jetzt neue Texte? Weiterhin erstmal nach Pythia, und von dort werden sie
# abgeholt?

# hier oder auf andere Weise: Zeilenenden und BOM anpassen?
# s!¿!!; # remove debris of the Byte Order Mark 
# s!\r\n!\n!;  # remove Windows line ends

