Return aus Array entfernen ? Wie ? (Allgemeines zu Perl)

[thread]11674[/thread]

Return aus Array entfernen ? Wie ?

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]);

renee

2008-04-21 13:48

User since
2003-08-04
14371 Artikel
ModeratorIn

Verschiebe das chomp nach vorne und mach es auf $workline...

Code (perl): (dl )

      if (length($workline) > 1 ){
        chomp $workline;
        @elemente = split(/#/,$workline);
        $elemente[0]=~ s/^ *(.*) *$/$1/g;

Wenn die Datei auf einem anderen System erzeugt wird wie Du sie jetzt verarbeitest kann chomp evtl auch die falsche Wahl sein, weil unterschiedliche Systeme unterschiedliche Zeilentrenner haben.

Dann kannst Du

Code (perl): (dl )

      if (length($workline) > 1 ){
        $workline =~ s![\r\n]+$!!;
        @elemente = split(/#/,$workline);
        $elemente[0]=~ s/^ *(.*) *$/$1/g;

machen

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Gast Gast

2008-04-21 15:06

Vielen Dank - eben ausprobiert - Bingo läuft !!!!

Super ! Du bist gigantisch !

View all threads created 2008-04-21 13:43.