Return aus Array entfernen ? Wie ? - #108625 (Allgemeines zu Perl)

Gast Gast

2008-04-21 13:43

Ich lese Elemente ein, was auch funktioniert, allerdings wird nach dem Letzten Element, was eingelesen ist, jdesmal ein "RETURN" gesetzt, was mir natürlich beim Import in eine Datenbank ein fehlerhaftes Feld erzeugt.
Wie kann ich das unterbinden ?????

Code: (dl )

foreach $workfile (@ARGV) {
 if (-e $workfile){
    open (SENTFILE, ">>$workfile.ok");
    printf ("aktuelle Input-Datei: %s\n", $workfile);
    open (INFILE, $workfile) or die "Datei $workfile nicht gefunden\n";
    while ($workline = <INFILE>){
      if (length($workline) > 1 ){
        @elemente = split(/#/,$workline);
        $elemente[0]=~ s/^ *(.*) *$/$1/g;
        chomp ($elemente[16]);