How to Check if String starts with Specific Prefix in Perl - Step by Step Examples
How to Check if String starts with Specific Prefix in Perl ?
Answer
To check if a string starts with a specific prefix in Perl, you can use the index()
function or regular expressions.
✐ Examples
1 Check if "Hello World" starts with prefix "Hello"
In this example,
- We create a string named
$str1
with a value of"Hello World"
. - We use the
index()
function or regular expression to check if$str1
starts with the prefix"Hello"
. - The
index()
function returns the starting position of the substring if found; otherwise, it returns-1
. - Finally, we print the result to standard output.
Perl Program
$str1 = "Hello World";
$start_with_hello = index($str1, "Hello") == 0;
print "String starts with prefix 'Hello': $start_with_hello\n";
# or using regular expressions
$start_with_hello_regex = $str1 =~ /^Hello/;
print "String starts with prefix 'Hello' (using regex): $start_with_hello_regex\n";
Output
String starts with prefix 'Hello': 1 String starts with prefix 'Hello' (using regex): 1
2 Check if "apple" starts with prefix "banana"
In this example,
- We create a string named
$str2
with a value of"apple"
. - We use the
index()
function or regular expression to check if$str2
starts with the prefix"banana"
. - The
index()
function returns the starting position of the substring if found; otherwise, it returns-1
. - Finally, we print the result to standard output.
Perl Program
$str2 = "apple";
$start_with_banana = index($str2, "banana") == 0;
print "String starts with prefix 'banana': $start_with_banana\n";
# or using regular expressions
$start_with_banana_regex = $str2 =~ /^banana/;
print "String starts with prefix 'banana' (using regex): $start_with_banana_regex\n";
Output
String starts with prefix 'banana': String starts with prefix 'banana' (using regex):
Summary
In this tutorial, we learned How to Check if String starts with Specific Prefix in Perl language with well detailed examples.
More Perl Strings Tutorials
- How to Create an Empty String in Perl ?
- How to get Length of String in Perl ?
- How to get Character at Specific Index in String in Perl ?
- How to get First Character in String in Perl ?
- How to get Last Character in String in Perl ?
- How to get First N Characters in String in Perl ?
- How to get Last N Characters in String in Perl ?
- How to get Substring after Specific Character in Perl ?
- How to get Substring before Specific Character in Perl ?
- How to get Substring between two Specific Characters in Perl ?
- How to get Substring from Specific Index to End in Perl ?
- How to Iterate over Characters in String in Perl ?
- How to Iterate over Words in String in Perl ?
- How to Check if String is Empty in Perl ?
- How to Check if String contains only Alphabets in Perl ?
- How to Check if String contains only Alphabets and Numbers in Perl ?
- How to Check if String contains only Numeric Digits in Perl ?
- How to Check if a String contains given Substring in Perl ?
- How to Check if String contains specific Character in Perl ?
- How to Check if String starts with Specific Prefix in Perl ?
- How to Check if String ends with Specific Suffix in Perl ?
- How to Append a String to another String in Perl ?
- How to Append a Character to beginning of a String in Perl ?
- How to Append a Character to end of a String in Perl ?
- How to Concatenate Two Strings in Perl ?
- How to Repeat a String N Times in Perl ?
- How to Insert Character at Specific Index in String in Perl ?
- How to Replace a Substring in String in Perl ?
- How to Replace multiple Spaces with a Single Space in String in Perl ?
- How to Replace Character at Specific Index in String in Perl ?
- How to Replace All Occurrences of a Substring in a String in Perl ?
- How to Replace a Substring in a String using Regular Expression in Perl ?
- How to Split a String in Perl ?
- How to Split a String by New Line in Perl ?
- How to Split a String by Comma in Perl ?
- How to Sort Characters in String in Perl ?
- How to convert String to Lowercase in Perl ?
- How to convert String to Uppercase in Perl ?
- How to Trim a String in Perl ?
- How to convert First Character in String to Uppercase in Perl ?
- How to Reverse a String in Perl ?
- How to Remove Character at specific Index in a String in Perl ?
- How to Remove First Character in a String in Perl ?
- How to Remove Last Character in a String in Perl ?
- How to Remove first N Characters in a String in Perl ?
- How to Remove last N Characters in a String in Perl ?
- How to Remove specific Substring in Perl ?
- How to Remove specific Character from a String in Perl ?
- How to Remove All Whitespace Characters from a String in Perl ?
- How to Remove Special Characters from a String in Perl ?
- How to keep only Alphabets in a String in Perl ?
- How to Convert Integer to String in Perl ?
- How to Convert String to Integer in Perl ?
- How to convert String to Float in Perl ?
- How to convert Float to String in Perl ?
- How to check if Two Strings are Equal in Perl ?
- How to check if Two Strings are Equal ignoring case in Perl ?
- How to Compare Two Strings in Perl ?
- How to find the Characters in the First String that are not Present in the Second String in Perl ?
- How to find the Index of Substring in Perl ?
- How to find the Index of Last Occurrence of Substring in Perl ?
- How to find the Indices of All Occurrences of Substring in Perl ?
- How to get all the possible Substrings of a String in Perl ?
- How to get all the possible K length Substrings in a String in Perl ?