note
planetscape
<p>Just because I <i>really</i> like [grinder]'s [cpan://Regexp::Assemble], and think such a cool module needs more exposure:</p>
<code>
#!/usr/bin/perl -w
use Regexp::Assemble;
my $lineFromSomeTextFile = "your line right here\n";
my $ra = Regexp::Assemble->new->add(
"something",
"matching",
"a",
"line"
);
print $ra->re . "\n"; # because the output is cool
# and sometimes educational
my($word) = $lineFromSomeTextFile =~ /($ra)/;
print "found '$word' in: $lineFromSomeTextFile";
</code>
<p>(For more on [cpan://Regexp::Assemble] see: [id://406643].)</p>
<p>HTH,</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-442602">
<font color="#8000ff">p</font><font color="#8b00f3">l</font><font color="#9700e7">a</font><font color="#a200dc">n</font><font color="#ae00d0">e</font><font color="#b900c5">t</font><font color="#c500b9">s</font><font color="#d000ae">c</font><font color="#dc00a2">a</font><font color="#e70097">p</font><font color="#f3008b">e</font>
</div></div>
469182
469331