Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^2: Tk cryptogram (no, not cryptography)

by graff (Chancellor)
on Sep 24, 2009 at 02:31 UTC ( #797113=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        ...
        my @hits = ();
    ...
        }                           # (end of this little "for loop"
        if ($got_a_pattern)  {
            ...
    
  2. or download this
        ...
        for my $chr ( split //, $doword ) {
    ...
        }
        if ($got_a_pattern)  {
            ...
    
  3. or download this
        foreach (@template2) {
            $_  =~ tr/ //d;
            if ($_ eq " ") { next; }
            push @template,$_;
        }
    
  4. or download this
            tr/ //d;
            push @template, $_  if ($_);  # true when $_ is not an empty s
    +tring
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://797113]
help
Chatterbox?
[choroba]: I sent him the invitations for the last two meetings, but he didn't arrive
[choroba]: ^ should have been a /msg

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2017-09-25 15:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (280 votes). Check out past polls.

    Notices?