Re: Perl und DOS-Enter-Zeichen?

On 16.04.04 Stefan Lagotzki (lago20@gmx.de) wrote:

Hallo Stefan,

oder mit perl:

perl -pe 's/\015/\n/g' BabyTuX_color.eps

Gut, Minimalbeispiel (geklaut von Dir und perlrun)

#!/usr/bin/perl -w

open (BABY,"zabyTuX_color.eps"); while (<BABY>) { s/\015/\n/g } continue { print or die "-p destination: $!\n"; } close (BABY);

Nur, wie baue ich es in das Skript ein? epstopdf macht das filehandle auf, geht dann zeilenweise durch und sucht nach Spuren von der Bounding Box, mittels diverser if-Anweisungen. Dazwischen müßte irgendwo ein Filter, der mir die Enterzeichen entfernt. Ich hab jetzt mal versucht $/ aufzubohren, aber das will nicht gelingen. $/ = "\n:\015"; ganz am Anfang zeitigt nicht die gewünschte Wirkung.

Thanks anyway, H.