aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/String-matching/Perl/string-matching-1.pl Normal file
View file

@ -0,0 +1,3 @@
$str1 =~ /^\Q$str2\E/ # true if $str1 starts with $str2
$str1 =~ /\Q$str2\E/ # true if $str1 contains $str2
$str1 =~ /\Q$str2\E$/ # true if $str1 ends with $str2

3
Task/String-matching/Perl/string-matching-2.pl Normal file
View file

@ -0,0 +1,3 @@
index($str1, $str2) == 0 # true if $str1 starts with $str2
index($str1, $str2) != -1 # true if $str1 contains $str2
rindex($str1, $str2) == length($str1) - length($str2) # true if $str1 ends with $str2

2
Task/String-matching/Perl/string-matching-3.pl Normal file
View file

@ -0,0 +1,2 @@
substr($str1, 0, length($str2)) eq $str2 # true if $str1 starts with $str2
substr($str1, - length($str2)) eq $str2 # true if $str1 ends with $str2

1
Task/String-matching/Perl/string-matching-4.pl Normal file
View file

@ -0,0 +1 @@
print $-[0], "\n" while $str1 =~ /\Q$str2\E/g; # using a regex

1
Task/String-matching/Perl/string-matching-5.pl Normal file
View file

@ -0,0 +1 @@
my $i = -1; print $i, "\n" while ($i = index $str1, $str2, $i + 1) != -1; # using index