aut. Löschen von Zeilenumbrüchen und Blanks

[Frank Schönmann]

hi!

ich benötige eine Lösung, die sämtliche Zeilenumbrüche und Leerzeichen
zwischen > und < (also zwischen direkt den aufeinanderfolgenden Tags)
entfernt, um so den Speicherplatz möglichst gering zu halten.

=== cut ===
#!/usr/bin/perl

$filename = shift;

open INFILE, "<$filename" or die "File not found.";
open OUTFILE, ">$filename.out";

for (<INFILE>)
{
  s/\n//g;
  s/> +</></g;
  print OUTFILE $_;
}

close OUTFILE;
close INFILE;
=== cut ===

Eventuell mehrmals über ein File laufen zu lassen, könnte bessere Ergebnisse bringen. Erster und einziger Parameter beim Aufurf ist der Dateiname.

bye, Frank!