Re: Split tab-separated file into separate files, based on column name

Here a pure Perl one-liner,

please note that

the files are named after the column heads
that I use Windows quoting rules

D:\tmp>del id,name,position

D:\tmp>perl -lanE "if (@FH) {print $_ shift @F for @FH} else {open $FH
+[$x++], '>', $_ for @F}" data.txt

D:\tmp>type data.txt, id,name,position

data.txt


id  name  position
1   Nick  boss
2   George CEO
3   Christina CTO

id


1
2
3

name


Nick
George
Christina

position


boss
CEO
CTO
[download]

UPDATE

eliminated bug

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re: Split tab-separated file into separate files, based on column name Download Code

Replies are listed 'Best First'.
Re^2: Split tab-separated file into separate files, based on column name (updated) by LanX (Saint) on Aug 27, 2020 at 16:36 UTC
ACHTUNG The following code is buggy, sorry. ... it will create empty files for each field ... `D:\tmp>type 1,George,CEO 1 George CEO D:\tmp>` [download] strange behavior... (Update: see solution here ) I didn't expect this, but Perl seems to silently refuse to re-open an already open file handle so if you don't mind having the column head included you can go even shorter `D:\tmp>del id,name,position D:\tmp>perl -lanE "open $FH[$x++], '>', $_ for @F;print $_ shift @F f +or @FH" data.txt D:\tmp>type id,name,position id id 1 2 3 name name Nick George Christina position position boss CEO CTO D:\tmp>` [download] Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re^3: Split tab-separated file into separate files, based on column name (updated) by jcb (Parson) on Aug 28, 2020 at 01:17 UTC
Try changing `'>'` to `'>>'`. If I remember correctly, open will silently reopen an already open handle. Since you are using truncating write mode, each file gets truncated every time it is opened.	[reply] [d/l] [select]
Re^4: Split tab-separated file into separate files, based on column name (solved) by LanX (Saint) on Aug 28, 2020 at 07:25 UTC
Hi ~~The strange thing is that the "reopened" files are created but all output still goes to the first one.~~ ~~Probably a Windows issue...~~ Ok got it. I'm pushing new file handles onto the @FH array, but only the first 3 ones are written! The trouble with overly clever one liners... 🤦🏻‍♂️ Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]
Re^5: Split tab-separated file into separate files, based on column name (solved) by jcb (Parson) on Aug 28, 2020 at 23:26 UTC
Re^6: Split tab-separated file into separate files, based on column name (solved) by LanX (Saint) on Aug 28, 2020 at 23:58 UTC

UPDATE

ACHTUNG