in reply to Re: Split tab-separated file into separate files, based on column name
in thread Split tab-separated file into separate files, based on column name

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

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]
      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]

        Try putting open ..., '>', $_ for split scalar <> or similar in a BEGIN block, instead of running it on each loop iteration. :-)

[reply]
[d/l]

In Section Seekers of Perl Wisdom