Help for this page
if( index($str1, $str2) > -1 && $str1 ne $str2 ){ print "$str2 is a substring of $str1\n"; }
#!/usr/bin/env perl use strict; ... my ($substring, $string) = @_; return 1 if index($string, $substring) > -1 && $string ne $substri +ng; }
www.com | www.net | www.org
No recent polls found