Newline-Zeichen im Text entfernen - #67911 (Allgemeines zu Perl)

renee

2006-07-07 10:47

User since
2003-08-04
14371 Artikel
ModeratorIn

Also ich weiß ja nicht, warum Du das unbedingt entfernt haben musst. Ich habe mal folgendes probiert:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $file = './test.csv';
my $dbh  = DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=\\;") or die $DBI::errstr;
$dbh->{csv_tables}->{'info'} = {file => $file};

my $sth = $dbh->prepare(q~SELECT * FROM info~);
$sth->execute();

while(my @row = $sth->fetchrow_array()){
    @row = grep{defined $_ }@row;
    print join("--",@row),"\n";
}
$sth->finish();

CSV:

Code: (dl )

"ID";"Ticket-Nr";"Status";"Stadt";
0;"test";"offen";"Musterstadt";
1;"067284-01";"arbeit erledigt Test";"Kiel";
2;"067285-02";"arbeit offen 
Test";"Bonn";
3;"067289-03";"arbeit offen Test";"Bonn";

Ausgabe:

Code: (dl )

C:\>csv.pl
0--test--offen--Musterstadt--
1--067284-01--arbeit erledigt Test--Kiel--
2--067285-02--arbeit offen
Test--Bonn--
3--067289-03--arbeit offen Test--Bonn--

Oder habe ich da was falsch verstanden??

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/