DeleteSpaces.perl

# ################################################
# TRIM A FILE
# ################################################

# Declare the subroutines
sub trim($);

# Perl trim function to remove whitespace from the start and end of the string
sub trim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

@Zeilen = ("");    # Speicher für alle Datensaetze
$i = 0;
open(ZEILEN, "<$ARGV[0]") || die "Datei nicht gefunden\n";
while(<ZEILEN>)              # Datei einlesen
 {
    push(@Zeilen,$_);
    $i++;                        # Datensatzzähler erhöhen
 }
close(ZEILEN);
$Anzahl = $i - 1;              # Anzahl Datensätze merken

open(ZEILENCLEANED, ">$ARGV[1]");   # Datei zum Schreiben für gertrimmte Zeilen öffnen
for(@Zeilen)                        # solange Zeilen vorhanden
 {
    $zeile=$_;
    $zeile=&trim($zeile);
    $laenge=length($zeile);
    if(($zeile =~ /\S/)) {
      print ZEILENCLEANED $zeile;   # Aktuelle Zeile getrimmt in den Output schreiben
      print ZEILENCLEANED "\n";
      $i++;
    }
 }
print $Anzahl," Datensaetze geschrieben in $ARGV[1]\n";   # Nur zur Kontrolle: auf Standardausgabe
close(ZEILENCLEANED);