Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
 |
 |
8 Einträge, 1 Seite |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
use strict;
while (<DATA>) {
my @parts = split/ {TAB} /,$_;
for (1..$#parts) {
print "$parts[0]\tFeld$_\t$parts[$_]\n";
}
}
__DATA__
ID1 {TAB} A C {TAB} A B {TAB} A T
ID2 {TAB} A H {TAB} C V {TAB} C T
1
2
3
4
5
6
7
8
styx@styx-laptop:~/programmierung/perl/tests$ perl matrix.pl
ID1 Feld1 A C
ID1 Feld2 A B
ID1 Feld3 A T
ID2 Feld1 A H
ID2 Feld2 C V
ID2 Feld3 C T
Feld$_
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
chomp(my $line = <DATA>);
my @headers = split/ /,$line;
while (<DATA>) {
my @parts = split/ {TAB} /,$_;
for (1..$#parts) {
print "$parts[0]\t$headers[$_-1]\t$parts[$_]\n";
}
}
__DATA__
Gurke Tomate Banane
ID1 {TAB} A C {TAB} A B {TAB} A T
ID2 {TAB} A H {TAB} C V {TAB} C T
|
|
8 Einträge, 1 Seite |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
