Re^3: match diagonal text

Will the input always be 6 x 4? not always, it will vary.

Over what range?

Please let me know for further assistance

Thank you.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: match diagonal text

Replies are listed 'Best First'.
Re^4: match diagonal text by raybies (Chaplain) on Sep 22, 2011 at 12:41 UTC
While you're at it, BrowserUK, I'd like a pony.	[reply]
Re^4: match diagonal text by arivu198314 (Sexton) on Sep 22, 2011 at 12:43 UTC
~ 500x50	[reply]
Re^5: match diagonal text by BrowserUk (Patriarch) on Sep 22, 2011 at 13:21 UTC
#! perl -slw use strict; sub checkDiags { my $text = shift; my $x1 = 1 + index $text, "\n" or die 'Bad input'; my $x2 = $x1-2; my $reMajor = qr[ ([12]) (?: .{$x1}\1 ){3} ]sx; my $reMinor = qr[ ([12]) (?: .{$x2}\1 ){3} ]sx; return $text =~ $reMajor \|\| $text =~ $reMinor; } my $test = do{ local $/; <> }; print "$test\n", checkDiags( $test ) ? 'Matched' : 'Failed'; __END__ c:\test>junk40 0100000000 0010000000 0001000000 0000100000 0000000000 ^Z 0100000000 0010000000 0001000000 0000100000 0000000000 Matched c:\test>junk40 0000000 0000020 0000200 0002000 0020000 0000000 ^Z 0000000 0000020 0000200 0002000 0020000 0000000 Matched [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^6: match diagonal text by arivu198314 (Sexton) on Sep 23, 2011 at 06:25 UTC
Thanks BrowserUk, this is what i expect. :)	[reply]


We don't bite newbies here... much
	PerlMonks