Re: Using arrays of qr!! to simplify larger RE's for readability.


Keep It Simple, Stupid
	PerlMonks

Re: Using arrays of qr!! to simplify larger RE's for readability.

by sachmet (Scribe)

on May 01, 2001 at 20:39 UTC ( [id://77024]=note: print w/replies, xml )

Need Help??

in reply to Using arrays of qr!! to simplify larger RE's for readability (code).

#!/usr/bin/perl

print isend("#---end");
print "\n";

sub isend {
     my $line = shift;
     my @terminators =
     ( qr!#=3D=3D=3D(?:END|end)!,
       qr!#===(?:END|end)!,
       qr![-]+_=_NextPart_!,
       qr!1===(?:END|end)!,
       qr!#---(?:END|end)!
     );

     foreach my $ending (@terminators) {
       return undef if $line =~ $ending;
     }
     return 1;
   }
[download]

prints solely a newline.