Jerry Preston <[EMAIL PROTECTED]> wrote:
:
: This one is new to me and I need to be able to
: read $name and $age from the following:
:
: @history = (
: {
: program => 'new',
: version => '0.42',
: },
: input => {
: '/data' => 0.14,
: '/home' => undef,
: },
: input_contents => '
: $name = \'Jerry\';
: $age = \'25\';
: 1;
: '
: }
As written it is useless as it is incomplete.
Assuming the last brace is suppose to be ');' and
not '}', your solution would be:
my( $name, $age ) = $history[4] =~ /'([^']+)'/g;
Though I think it a strange way to write
an array.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
