One Hat Cyber Team

Your IP : 216.73.216.76

Server IP : 162.240.179.46

Server : Linux vps-14493116.nutrivittasaude.com.br 5.14.0-611.49.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Apr 21 16:39:08 EDT 2026 x86_64

Server Software : Apache

PHP Version : 8.2.31

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Regexp-Assemble/examples/

View File Name : track-5.10

/usr/bin/perl

use strict;
use warnings;

use lib 'blib/lib';
use Regexp::Assemble;

my $r = Regexp::Assemble->new->track(1)->add(qw(foo? bar{2} [Rr]at));

for my $w (qw(this food is rather barren)) {
	if ($w =~ /$r/) {
		print "$w matched by ", $r->source($^R), $/;
	}
	else {
		print "$w no match\n";
	}
}