in reply to Default value for capture in regular expression
my %stuff = ( Title => 'some default', What => 'some default', 'Date added' => 'some default', Data => 'some default' ); use JSON; my $newstuff = jsonToObj( <<STRING ); { "Title": "Gone With The Wind", "Date added": "January 16th, 2006 ( an optional source )" } STRING @stuff{keys %$newstuff} = values %$newstuff;
|
|---|