Re^3: How to split unique patterns

[Corion]

I don't understand the additional requirements from your text. Can you maybe post some (anonymized) more relevant input data?

[cornelius80]

Hi Corion, Sorry for the misunderstanding. Here goes... I have a string as follows that I will collate into an array: info::gmdate:2013-06-07 05:57:tccat_cico::r From that array, I am intending to split the data based on ':' such that I get the following, info gmdate 2013-06-07 05:57 tccat_cico r However, the "2013-06-07 05:57" gets separated into 2013-06-07 05 57 which is not what is intended.

[Corion]

Ah - if you want to capture different parts, you need to adjust the parentheses appropriately:

my $line= q{info::gmdate:2013-06-07 05:57:tccat_cico::r};

my @columns= qw( type   tstype  timestamp                             
+   info1 info2 rest);
$line=~       /^(\w+)::(gmdate):(20\d\d-[01]\d-[0123]\d [012]\d:[0-6]\
+d):(\w+):(\w*):(.*)/
    or die "Malformed input [$line] in line $.";

my %info; @info{ @columns }= ($1,$2,$3,$4,$5,$6);

Update: Fixed $info{ @columns }= ... to be the correct @info{ @columns }= ...

[cornelius80]

Hi Corion, Ohh MMmmyyy,...hmmm,..that really looks nasty,.. Ok,..let me have a look and try to decipher that,.. PS: it could really hasten the process if you could give a little explanation as you dissect each line, please? Kind Regards, Cornelius