File manager - Edit - /usr/share/doc/perl-Regexp-Assemble-0.35/eg/fee
Back
/usr/bin/perl -w use strict; use Regexp::Assemble; my $re = Regexp::Assemble->new->add( qw[ fee fie foe fum ] ); while( <DATA> ) { chomp; if( /($re)/ ) { print "Here be giants: $1\n"; } } print $re->as_string, "\n"; __DATA__ feedbag airfield foe fumble blorp
| ver. 1.4 |
Github
|
.
| PHP 8.2.32 | Generation time: 0.06 |
proxy
|
phpinfo
|
Settings