Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Stuck in komplexer regex, at least for me

by kyle (Abbot)
on Mar 26, 2007 at 16:18 UTC ( #606609=note: print w/ replies, xml ) Need Help??


in reply to Stuck in komplexer regex, at least for me

For the benefit of other monks who might be trying their hand at this:

use Test::More; my %output_for = ( '215000007801' => '21507801', '300000324002' => '30324002', '890000457651' => '89457651', '210004563401' => '214563401', '201045139158' => '20145139158', ); plan tests => scalar keys %output_for; sub solution { # (this doesn't work) $_[0] =~ s{ \A ([^0]+ 0) ([^0]*) 0+ ([^0]+0) }{$1$2$3}x # || # $_[0] =~ s{ \A ([^0]+) 0+ ([^0]) }{$1$2}x; } while ( my ($input, $correct_output) = each %output_for ) { my $orig_input = $input; solution( $input ); is( $input, $correct_output, "Solved '$orig_input'" ); }


Comment on Re: Stuck in komplexer regex, at least for me
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2014-08-28 01:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (255 votes), past polls