Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^3: More while issues

by Dandello (Scribe)
on Mar 04, 2011 at 03:59 UTC ( #891351=note: print w/ replies, xml ) Need Help??


in reply to Re^2: More while issues
in thread More while issues

More possible solutions! I need a happy smiley.


Comment on Re^3: More while issues
Replies are listed 'Best First'.
Re^4: More while issues
by ynonp (Initiate) on Mar 04, 2011 at 10:28 UTC

    Hi, Using RegExp I'd use the following (here @stash represents the layers):

    use strict; use warnings; my $needed_ys = 7; my $str = 'Why do you need 7 ys when cll you hve re as and cs'; my $orig = $str; my @stash = qw(a c); my @existing = $str =~ /y/g; my $missing = $needed_ys - @existing; foreach my $letter (@stash) { while ( $missing > 0 ) { last unless $str =~ s/$letter/y/; $missing -= 1; } } print 'Original: ', $orig, "\n"; print 'Result: ', $str, "\n";

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (13)
As of 2015-07-29 22:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (269 votes), past polls