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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,3 +0,0 @@
$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
View file

@ -1,3 +0,0 @@
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
View file

@ -1,2 +0,0 @@
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
View file

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

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

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