comment on

use Modern::Perl;

while (<DATA>) {
    chomp;
    say "$_ : ",
        ( /^0+$/   or /^1+$/ )   ? 'PASS'
      : ( /^0+1+$/ or /^1+0+$/ ) ? 'CLEAN'
      :                            'FAIL';
}

__DATA__
000000
111111
000011111
1111111000
10001001110000011
[download]

Output:

000000 : PASS
111111 : PASS
000011111 : CLEAN
1111111000 : CLEAN
10001001110000011 : FAIL
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics

In reply to Re: read string (which is in binary) and make decision by CountZero
in thread read string (which is in binary) and make decision by hey_frind

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Perl Monk, Perl Meditation
	PerlMonks