Ein string auf ein Musterüberprüfen ! - #78041 (Allgemeines zu Perl)

renee

2007-07-06 12:25

User since
2003-08-04
14371 Artikel
ModeratorIn

Na gut ;)

Code: (dl )

            $line= substr($_,10,length($_));
           @array = split(/ /, $line);
           $line='';
                 

           foreach my $idx (0 .. 5) {
            $array[$idx].="|"
           }
           print "$counter|",@array,"\n";

Das ist zu umständlich gedacht...

Wenn man sich den Ausgangsstring anschaut und das was am Ende rauskommen soll, fällt eins auf: Dort wo Leerzeichen waren, sind auf einmal Pipes. Klar, kann man mit split arbeiten. Dann sollte man die Elemente aber mit der Pipe verbinden. Dafür gibt es join. Also könnte man es rein theoretisch so machen:

Code (perl): (dl )

my $string = "Dies ist ein Test";
my @array = split / /, $string;
my $new_string = join "|", @array;
print $new_string;

Aber warum umständlich wenn es auch einfach geht.

tr/// ersetzt einzelne Zeichen durch ein anderes Zeichen. tr/// und s/// sind in perlop beschrieben.

Also geht es einfach mit

Code (perl): (dl )

$string =~ tr/ /|/

...

Aber keine Angst, solche Sachen kommen mit der Erfahrung.

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/