Multiple foreach loops in single statement

gurpreetsingh13 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Multiple foreach loops in single statement by ikegami (Patriarch) on Oct 23, 2012 at 16:40 UTC
Statement modifiers are not nestable. But since `do { ... } for ...;` [download] is legal, so is `do { ... for ... } for ...;` [download] But for readability's sake, just don't do that! Especially since `while (...) { ...}` [download] and `do { ...} while ...;` [download] have different semantics. A functional language approach would probably achieve what you want better. print map ord, split //, `cat file.pl`; [download] (Yeah, the outer loop is useless, as you can see.)	[reply] [d/l] [select]
Re^2: Multiple foreach loops in single statement by gurpreetsingh13 (Scribe) on Oct 24, 2012 at 03:36 UTC
Great. Just noticed that we can provide a list too in split function. The docs however mention EXPR --split /PATTERN/, EXPR-- which I assumed to be a scalar. Anyways thanks for the help. This was what I wanted to achieve: perl -e 'print chr(ord()+1) foreach(split //,`cat file.pl`);' [download] (a simple one liner to encrypt a file via ascii shift).	[reply] [d/l]
Re^3: Multiple foreach loops in single statement by Athanasius (Archbishop) on Oct 24, 2012 at 04:11 UTC
...we can provide a list too in split function. Sorry, no. split operates on a single string (a scalar), but not on a list: `13:57 >perl -wE " $s = q[abc]; $t = q[mno]; say for split(//, $s, $t); + " Argument "mno" isn't numeric in split at -e line 1. a b c 14:06 >perl -wE " $s = q[abc]; $t = q[mno]; say for split(//, ($s, $t) +); " Useless use of a variable in void context at -e line 1. m n o 14:06 >perl -wE " @u = (q[abc], q[mno]); say for split(//, @u); " 2 14:06 >` [download] The docs however mention EXPR ... which I assumed to be a scalar. Yes, your original assumption was correct. But `split` returns a list, which is why the output of `split` can be the subject of a `foreach` or a `map`. Hope that helps, Athanasius <°(((>< contra mundum	[reply] [d/l]
Re^4: Multiple foreach loops in single statement by gurpreetsingh13 (Scribe) on Oct 24, 2012 at 14:51 UTC
Re^4: Multiple foreach loops in single statement by gurpreetsingh13 (Scribe) on Oct 24, 2012 at 13:22 UTC
Re^5: Multiple foreach loops in single statement by Anonymous Monk on Oct 24, 2012 at 13:30 UTC
Re^5: Multiple foreach loops in single statement by Athanasius (Archbishop) on Oct 24, 2012 at 13:56 UTC
Re^5: Multiple foreach loops in single statement by ikegami (Patriarch) on Mar 02, 2013 at 22:54 UTC
Re: Multiple foreach loops in single statement by blue_cowdawg (Monsignor) on Oct 23, 2012 at 16:39 UTC
use strict; print join "",map { ord $_ } map{split(//,$_)} `cat file.pl`; ___________________ $ perl file.pl 1171151013211511611410599116591011211410511011632106111105110323434441 +099711232123321111141003236953212532109971121231151121081051164047474 +436954112532329699971163210210510810146112108965910 [download] Something like that? Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply] [d/l]