Re: Regex random values pattern match and code efficiency

[moritz]

As for the first question, I'd do something like this:

use strict;
use warnings;

my %h;
while (<DATA>) {
    chomp;
    my ($key, $value) = split /=/, $_, 2;
    $h{$key} = $value;
}

print $h{DEPLOY_PARAMS}, "\n";

__DATA__
DEPLOY_TIME=300
DEPLOY_TYPE=OS
DEPLOY_PARAMS=$DOMAIN{HOST},$DOMAIN{IP},$DOMAIN{CONFIG}
DEPLOY_DEFAULT_STARTUP=$DOMAIN{STARTUP.INI}
DEPLOY_DEBUG=Y
DEFAULT_EXPIRY=900

(That is, parse the whole file with the same code, instead of parsing each value with a different regex).

[Mark.Allan]

Thanks for that advice, just an update to the first question which critically I missed off, I need only the values between {} for DEPLOY_PARAMS and not the entire string

[Anonymous Monk]

just a basic regex loop.. try to adapt this..


use strict; 
my $value='$DOMAIN{HOST},$DOMAIN{IP},$DOMAIN{CONFIG}';
my @data = split(',',$value);
foreach my $attributes (@data) {
    $attributes=~ m/(DOMAIN){(.+?)}/;
    print $2."\n";
}

prints:
HOST
IP
CONFIG

kindly perlig

[AlexTape]

lol.. why i was logged out?! ^^

[Mark.Allan]

this works nicely until I bump into the following value then it crashes

DEPLOY_PARAMS=$DOMAIN{HOST},$DOMAIN{IP},$DOMAIN{DEVICE,NAME}