Re: Extract a small part of a long sentence using regular expressions

Eclectic TIMTOWTDI:

use Data::Dump;
use strict;
use warnings;

my $line =
qq([AHB_REPORTER][INFO]: action(62,1,0,0,0,0,5,53,9,0,190)D:/XYZ/reg/T
+ests/Mcu/A_test.cCALL: (null));

my $key = q(a);

my %hash = map { $key++ => $_ } grep { $_ != 0 } &{
    sub { $line =~ /action\(([^)]+)\)/; split /,/, $1; }
  };

dd \%hash;

__END__

{ a => 62, b => 1, c => 5, d => 53, e => 9, f => 190 }
[download]

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

Comment on Re: Extract a small part of a long sentence using regular expressions Download Code

Replies are listed 'Best First'.
Re^2: Extract a small part of a long sentence using regular expressions by Anonymous Monk on Dec 02, 2014 at 15:53 UTC
Thanks Karl! Might be a dumb question(with Perl i am always in the figuring out stage!!) but what does `&{ sub { blah }` do exactly??	[reply] [d/l]
Re^3: Extract a small part of a long sentence using regular expressions by choroba (Cardinal) on Dec 02, 2014 at 16:02 UTC
It's a dereference, I'd rather (if ever) write it as `my %hash = map { $key++ => $_ } grep { $_ != 0 } sub { $line =~ /action$([^)]+)$/; split /,/, $1; }->();` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^4: Extract a small part of a long sentence using regular expressions by karlgoethebier (Abbot) on Dec 02, 2014 at 17:19 UTC
"It's a dereference..." Thank you for answering this question for me. But i'm Karl and you are Choroba, isn't it? "...(if ever)..write it" May be - if you make so. But there is nothing wrong with the syntax i used to dereference a anonymous sub. Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply]
Re^5: Extract a small part of a long sentence using regular expressions by choroba (Cardinal) on Dec 02, 2014 at 17:44 UTC
Re^6: Extract a small part of a long sentence using regular expressions by karlgoethebier (Abbot) on Dec 02, 2014 at 20:31 UTC
Re^4: Extract a small part of a long sentence using regular expressions by Anonymous Monk on Dec 02, 2014 at 16:07 UTC
Got it!! Cheers!	[reply]
Re^3: Extract a small part of a long sentence using regular expressions by karlgoethebier (Abbot) on Dec 02, 2014 at 17:28 UTC
"Might be a dumb question..." Sorry - my fault. I should have mentioned this. Please see perlsub as well as anonymous functions. Regards, Karl P.S.: There are no dumb questions. Just dumb answers ;-) «The Crux of the Biscuit is the Apostrophe»	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks