Opened by Philipp at 2012-04-29 13:14
Hallo,
in einer CSV-Datei (tab-getrennt) habe ich zwei Spalten (A, B), Beispiel:
Nun sollen die Präfixe aus Spalte B herausgearbeitet werden, Beispiel für die 1. Zeile:
Wie würdet ihr das in Perl realisieren?
Danke & Grüße,
Philipp
Last edited: 2012-04-29 13:21:42 +0200 (CEST)
in einer CSV-Datei (tab-getrennt) habe ich zwei Spalten (A, B), Beispiel:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
201.1 201(27,28,3,4,83,84,890,897,898,9)
201.1 2054
201.2 201(1,20-26,29,80-82,891-896,899)
201.3 201(52-54,6,75,76,85-88)
201.4 201(50,51,55-59,70-74,77-79)
202.1 202(20-24,28,29,4,75,8,90-92,94,95,97-99)
202.2 202(1,27,3,70-74,76-79,93)
202.3 202(25,26,5,6,96)
203.1 203(1-3,41-45,9)
203.1 206
203.2 203(40,46-49,5,8)
203.3 203(6,7)
2041.1 204
2051.1 2051
2051.1 2052
2051.1 2053
2051.1 2056
2051.1 2058
Nun sollen die Präfixe aus Spalte B herausgearbeitet werden, Beispiel für die 1. Zeile:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
201.1 20127
201.1 20128
201.1 2013
201.1 2014
201.1 20183
201.1 20184
201.1 201890
201.1 201897
201.1 201898
201.1 2019
Wie würdet ihr das in Perl realisieren?
Danke & Grüße,
Philipp
Last edited: 2012-04-29 13:21:42 +0200 (CEST)