Re: Concise foreach expression

Your original foreach loop is probably the clearest, but if you do want fewer characters, you could go for something less readable like:

print"$path_name\n"for grep/test$/,@names;
[download]

I doubt it runs faster.

Comment on Re: Concise foreach expression Download Code

Replies are listed 'Best First'.
Re^2: Concise foreach expression by ikegami (Patriarch) on Aug 29, 2014 at 19:01 UTC
`print"$path_name\n"x grep/test$/,@names; say$path_name x grep/test$/,@names;` [download] `/test$/&&print$path_name,$/for@names; /test$/&&say$path_name for@names;` [download] If he meant `$x` where he had `$path_name`, `print"$_\n"x grep/test$/,@names; say for grep/test$/,@names;` [download] `/test$/&&print$_,$/for@names; /test$/&&say for@names;` [download] `print/.test$/g,$/ for@names; say/.test$/g for@names;` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Concise foreach expression
by ikegami (Patriarch) on Aug 29, 2014 at 19:01 UTC

print"$path_name\n"x grep/test$/,@names;

say$path_name x grep/test$/,@names;
[download]

/test$/&&print$path_name,$/for@names;

/test$/&&say$path_name for@names;
[download]

If he meant $x where he had $path_name,

print"$_\n"x grep/test$/,@names;

say for grep/test$/,@names;
[download]

/test$/&&print$_,$/for@names;

/test$/&&say for@names;
[download]

print/.*test$/g,$/ for@names;

say/.*test$/g for@names;
[download]