mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/String-matching/Perl/string-matching-4.pl

2 lines
64 B
Perl
Raw Permalink Blame History

print $-[0], "\n" while $str1 =~ /\Q$str2\E/g; # using a regex
Reference in New Issue View Git Blame Copy Permalink