regexp - komme nicht weiter - #173848 (Allgemeines zu Perl)

knorpelfisch

2014-03-05 10:01

User since
2014-03-04
2 Artikel
BenutzerIn
[default_avatar]

Hi,

jau das war es! Sorry, ist aber ziemlich zimperlich die perl Console...
kann man für die Zeichen nach dem "Unterstrich" einen Platzhalter definieren? oder muss man dann mit "oder" arbeiten. XX steht für beliebige Zeichen. Das Fragezeichen funktioniert nicht!

Code (perl): (dl )

my @data = map { s/[^,]+_??//g; s/^,|,$//g; s/,,/,/g; $_ } $text =~ m{\[([^\]]+)\]}g;

Nachtrag:

Code (perl): (dl )

1
2
3

my $text = "[Part1,Part1_SW,Part2],[Part3,Part3_RF],[Part4, Part5],[Part6]";
my @data = map { s/[^,]+(_SW|_RF)//g; s/^,|,$//g; s/,,/,/g; $_ } $text =~ m{\[([^\]]+)\]}g;   
print join "\n", @data, ''

..so geht es auf jeden Fall wenn ich die Suffixe mit "oder" verknüpfe..
Christian.
Last edited: 2014-03-05 10:15:44 +0100 (CET)