Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^5: sending a scalar to the interpreter as a command

by kcott (Abbot)
on Oct 12, 2012 at 18:25 UTC ( #998767=note: print w/ replies, xml ) Need Help??


in reply to Re^4: sending a scalar to the interpreter as a command
in thread sending a scalar to the interpreter as a command

Here's pm_2d_comb_long.pl - a longer, annotated version of pm_2d_comb.pl:

#!/usr/bin/env perl use 5.010; use strict; use warnings; # Original code #say for glob '{' . join('}-{' => map { join ',' => split } <DATA>) . +'}'; # Read raw data # @data_lines will be: ('1 2', '3 4 5', '6 7', '8 9') my @data_lines = <DATA>; # Convert spaces to commas by splitting each string on whitespace # to form a list whose elements are joined with commas # @spaces_to_commas will be: ('1,2', '3,4,5', '6,7', '8,9') my @spaces_to_commas = map { join ',' => split } @data_lines; # Join those strings with '}-{' # $brace_dash_brace_string will be '1,2}-{3,4,5}-{6,7}-{8,9' my $brace_dash_brace_string = join('}-{' => @spaces_to_commas); # Add opening and closing braces # $glob_string will be: '{1,2}-{3,4,5}-{6,7}-{8,9}' my $glob_string = '{' . $brace_dash_brace_string . '}'; # Finally glob '{1,2}-{3,4,5}-{6,7}-{8,9}' say for glob $glob_string; __DATA__ 1 2 3 4 5 6 7 8 9

Outputs:

$ pm_2d_comb_long.pl 1-3-6-8 1-3-6-9 1-3-7-8 1-3-7-9 1-4-6-8 1-4-6-9 1-4-7-8 1-4-7-9 1-5-6-8 1-5-6-9 1-5-7-8 1-5-7-9 2-3-6-8 2-3-6-9 2-3-7-8 2-3-7-9 2-4-6-8 2-4-6-9 2-4-7-8 2-4-7-9 2-5-6-8 2-5-6-9 2-5-7-8 2-5-7-9

-- Ken


Comment on Re^5: sending a scalar to the interpreter as a command
Select or Download Code
Re^6: sending a scalar to the interpreter as a command
by silentq (Novice) on Oct 12, 2012 at 19:22 UTC
    This helps a ton, kcott! I've been using Perl for a long time, but my focus is mostly on string processing and regular expressions. It's high time I got an education in other areas, and I feel like I've gotten a good start in this thread.

    Thanks so much to you and the others who have lent a hand to help me work through this problem.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://998767]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2014-08-31 10:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls