variable processing and checking in one statement

Hi all,

i wonder whether it's possible to simplify constructs like

doSthWith($test) if checkFn($test);
[download]

further, such that i have to write the variable ($test) only once!?

I often have to deal with such statements and i just don't want to use perl's default variable, so that it yields

$_=$test; doSthWith($_) if checkFn($_);
[download]

since $_ is often used by other statements in the same block.

How would you monks do it the neat way?

best regards

Comment on variable processing and checking in one statement Select or Download Code
Re: variable processing and checking in one statement by BrowserUk (Pope) on Aug 06, 2012 at 22:26 UTC
You could do: `checkFn( $_ ) and doSthWith( $_ ) for $test;` [download] which wouldn't interfere with surrounding uses of `$_`; and avoids referencing `$test` twice. But I wouldn't unless the variable in question was a complex reference. Ie. a multi-level hash or array lookup. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l] [select]
Re: variable processing and checking in one statement (for my) by tye (Cardinal) on Aug 07, 2012 at 00:13 UTC
`for my $t ( $test ) { doWith($t) if check($t); }` [download] avoids $_ completely. Clearly not worth it if your variable is actually just `$test`. - tye	[reply] [d/l] [select]
Re^2: variable processing and checking in one statement (for my) by saunderson (Novice) on Aug 07, 2012 at 00:29 UTC
Thank you for your contribution. the `for` respectively the `foreach` approach will cetrainly find their ways in my future scripts ...	[reply] [d/l] [select]
Re: variable processing and checking in one statement by ig (Priest) on Aug 07, 2012 at 04:37 UTC
How about `doSthWith(checkFn($test));` [download] Have `checkFn` return the passed data if all is well, or undef if not and have `doSthWith` check its arguments. Or, incorporate the check into `doSthWith` - depending on where you want to localize the knowledge about the condition, and how you want to handle the race between the check and what you do with `$test` And, I don't advocate this but find the range of possibilities interesting and can't seem to stop myself from updating: `sub { doSthWith($_[0]) if(checkFn($_[0])); }->($test);` [download]	[reply] [d/l] [select]


XP is just a number
	PerlMonks

variable processing and checking in one statement

The best material for plates (tableware) is: