Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Re: Digit Density

by termix (Beadle)
on Dec 27, 2001 at 21:40 UTC ( #134662=note: print w/replies, xml ) Need Help??

in reply to Re: Digit Density
in thread Digit Density

Shoot. I am missing something here. I tried your code. It loops the right number of times, but it seems to only see the last character (the first match in a greedy match). So an input of '12345' looks like '55555'.

To test I tried

$x="12345"; for ($x=~ /./g) { print $&; } print "\n";

but this gives me "55555" again. I notice, I should be using a while and I try:

$x="12345"; while ($x=~ /./g) { print $&; } print "\n";

which works. So I changed your code to use a while loop also and it works.

-- termix

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2023-05-30 21:43 GMT
Find Nodes?
    Voting Booth?

    No recent polls found