#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11112671 use warnings; my $string = 'aaa, bbb, ccc,ddddd;eee-12345abc Qwerty'; my @a; $string =~ m{ (?<![-\w/])[-\w/] .* (?<=[-\w/])(?![-\w/]) (?{ push @a, $& }) (*FAIL) }x; use Data::Dump 'dd'; dd \@a;
Outputs:
[ "aaa, bbb, ccc,ddddd;eee-12345abc Qwerty", "aaa, bbb, ccc,ddddd;eee-12345abc", "aaa, bbb, ccc,ddddd", "aaa, bbb, ccc", "aaa, bbb", "aaa", "bbb, ccc,ddddd;eee-12345abc Qwerty", "bbb, ccc,ddddd;eee-12345abc", "bbb, ccc,ddddd", "bbb, ccc", "bbb", "ccc,ddddd;eee-12345abc Qwerty", "ccc,ddddd;eee-12345abc", "ccc,ddddd", "ccc", "ddddd;eee-12345abc Qwerty", "ddddd;eee-12345abc", "ddddd", "eee-12345abc Qwerty", "eee-12345abc", "Qwerty", ]
In reply to Re: Regex. Combination of words block. Need help.
by tybalt89
in thread Regex. Combination of words block. Need help.
by nickwest
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |