Search Results

try:
#!/usr/bin/perl -w #-d
use strict;

my $Line = "value1:{value2a:value2b}:value3:{}:value5:{value6a:value6b:value6c:value6d}";

my @atts = ($Line =~ /{[^:}]*:[^}]*}/g);
for (@atts) {my...

try:
#!/usr/bin/perl -w #-d
use strict;

my $Line = "value1:{value2a:value2b}:value3:{}:value5:{value6a:value6b}";
$Line=~s/({[^:}]+):([^}]+})/$1!=!$2/g;

my @LineAttributes = split (/:/,...

Try:
nawk -F: '{last=$1} END{print last}' infile

You'll need to know the concept of "references" for this.

As for the custom ordering of keys, you could reorder the array @all_comp_products, but that was not its intention in the first place....

Since the data in your sample file is repetitive, I've used a different sample data file for this problem.

Let's say the data file looks like this:


$
$
$ cat lines.txt...

Try to unset $DATEMSK and try again. There seems to be a problem with this environment variable.

Do it this way:
#!/usr/bin/perl -w #-d

use strict;

my $pu;
my $pu_list_cmd;

my @pu_list = (
"PU_0001",
"PU_0002",
"PU_0003",
"PU_0004",
"PU_0005");

printf "pu_list at the...