Re: uninitialized value $_ in pattern match (m//)

use strict;
use warnings;
use 5.010;

use XML::Simple;
use Data::Dumper;

my $str = q{ <suite subfamily="Database Connect - SQL" name="DBMgrTest
+" family="Databases" /> };

my $ref = XMLin($str);
say Dumper($ref);

say $ref->{name};
say $ref->{family};
say $ref->{subfamily};

--output:--
$VAR1 = {
          'subfamily' => 'Database Connect - SQL',
          'name' => 'DBMgrTest',
          'family' => 'Databases'
        };

DBMgrTest
Databases
Database Connect - SQL
[download]

Comment on Re: uninitialized value $_ in pattern match (m//) Download Code

Replies are listed 'Best First'.
Re^2: uninitialized value $_ in pattern match (m//) by gvinu4u (Acolyte) on Jun 23, 2011 at 10:39 UTC
Thanks for the reply....its wroking but as a learner I wanted to use regex.. especially to extract substrings b/w a line as in this case. `my $line = '<suite subfamily="Database Connect - SQL" name="DBMgrTest +family="Databases">'; my $pattern = '<suite subfamily="(*.?)+name=(\S+)\s+family=(\S+)'; if ($line =~ /$pattern/)` [download]	[reply] [d/l]