Re: shift split grep question

It's certainly possible but your problems description is fuzzy.

Please clarify. :)

use strict;
use warnings;
use Data::Dump qw/pp dd/;

my @lines =<DATA>;

my @headings = grep /^\s*AUID/, @lines;
@headings = split ' ', $headings[0];
shift @headings;
pp @headings;

__DATA__
AUID \cIRA \cIDec \cILabel \cIV \cIB-V \cIComments
AUID \cIRA \cIDec \cILabel \cIV \cIB-V \cIComments
AUID \cIRA \cIDec \cILabel \cIV \cIB-V \cIComments
[download]

(
  "\\cIRA",
  "\\cIDec",
  "\\cILabel",
  "\\cIV",
  "\\cIB-V",
  "\\cIComments",
)
[download]

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

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re: shift split grep question Select or Download Code

Replies are listed 'Best First'.
Re^2: shift split grep question by haukex (Archbishop) on Nov 25, 2018 at 19:25 UTC
`"\cI"` is `"\t"` (tab), that's my guess as to what's meant...	[reply] [d/l] [select]