Opened by Henri at 2015-07-11 20:37
User since
2012-05-04
1054 Artikel
BenutzerIn
2012-05-04
1054 Artikel
BenutzerIn
Dann ist aber dein gesamter Code merkwürdig. Was machen die regulären Ausdrücke bei dir, warum suchst du nach ",fail," usw.
Wenn du nur aufteilen willst, dann z.B. so:
Bei deinem nächsten Problem werde ich aber nur noch antworten, wenn die Fragestellung sinnvoll und verständlich ist. Vor allem wäre es gut, wenn du beschreiben würdest, womit genau du ein Problem hast und nicht nur ein Script zu liefern, das scheinbar nichts mit der Fragestellung zu tun hat.
Wenn du nur aufteilen willst, dann z.B. so:
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 23 24 25 26 27 28 29 30 31 32
use strict; use feature qw(say); use autodie qw(:all); scalar <DATA>; my @header = split /\s*,\s*/, <DATA>; chomp $header[-1]; my @outputFHs; for (1..@header-1) { open $outputFHs[$_], ">", "file$_"; say {$outputFHs[$_]} "$header[$_]:"; } while (<DATA>) { chomp; next unless length; my @cols = split /\s*,\s*/; for my $colNo (1..@header-1) { say {$outputFHs[$colNo]} "$cols[0] : $cols[$colNo]"; } } __DATA__ 20150627 19:08:00 default, prim, second, copy_direct, forced_copy, always_allow, type_of_dump, full_memory, d100spupt, /dev/lg_du, /dev/sysdu, /var/adm, 1, 1, fault, disallow, doc10, 5, fault, 7, ad8, 9, wu, disallow, doc11, 5, fault, 5g7, 8, te, 10, disallow, doc12, 5, fault, 7, ca, 9hg, 10, disallow, doc13, 5, fault, 7, 8, 35hg, 10, disallow,
Bei deinem nächsten Problem werde ich aber nur noch antworten, wenn die Fragestellung sinnvoll und verständlich ist. Vor allem wäre es gut, wenn du beschreiben würdest, womit genau du ein Problem hast und nicht nur ein Script zu liefern, das scheinbar nichts mit der Fragestellung zu tun hat.