Re^2: Split tab-separated file into separate files, based on column name (updated)

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}

Comment on Re^2: Split tab-separated file into separate files, based on column name (updated) Select or Download Code

Replies are listed 'Best First'.
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
Try putting `open ..., '>', $_ for split scalar <>` or similar in a BEGIN block, instead of running it on each loop iteration. :-)	[reply] [d/l]
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


go ahead... be a heretic
	PerlMonks