Opened by parafux at 2018-04-10 11:15
Hallo,
hier ein paar Lösungsansätze mit regexp und printf:
Alle drei Ansätze funktionieren mit den Beispieldaten, nicht mit allen möglichen denkbaren Daten.
Grüße
payx
Last edited: 2018-04-10 19:37:33 +0200 (CEST)
hier ein paar Lösungsansätze mit regexp und printf:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!/usr/bin/perl use strict; use warnings; use 5.010; my @rows = <DATA>; print "\n1. Loesung:\n"; print s/(\S+\s+\S+)\s+(\S+)/$1 $2/r for @rows; print "\n2. Loesung:\n"; print s/ +/\t/gr for @rows; print "\n3. Loesung:\n"; printf "%s\t%s\t%s", split / +/ for @rows; __DATA__ xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz
Alle drei Ansätze funktionieren mit den Beispieldaten, nicht mit allen möglichen denkbaren Daten.
Grüße
payx
Last edited: 2018-04-10 19:37:33 +0200 (CEST)