Perl | print operator

print operator in Perl is used to print the values of the expressions in a List passed to it as an argument. Print operator prints whatever is passed to it as an argument whether it be a string, a number, a variable or anything. Double-quotes(“”) are used as a delimiter to this operator. 

Syntax: print “”
Returns:
0 on failure and 1 on success.

Example 1:

Perl

#!/usr/bin/perl -w

# Defining a string
$string = "Geeks For Geeks";

# Defining an array of Integers
@array = (10, 20, 30, 40, 50, 60);

# Searching a pattern in the string
# using index() function
$index = index ($string, 'or');

# Printing the position of matched pattern
print "Position of 'or' in the string $index\n";

# Printing the defined array
print "Array of Integers is @array\n";

Output:

Position of 'or' in the string 7
Array of Integers is 10 20 30 40 50 60

Example 2:

Perl

#!/usr/bin/perl -w

# Defining a string
$string = "Welcome to GFG";

# Defining an array of integers
@array = (-10, 20, 15, -40, 45, -60);

# Searching a pattern in the string
# using index() function
$index = index($string, 'o G');

# Printing the position of matched pattern
print "Position of 'o G' in the string $index\n";

# Printing the defined array
print "Array of Integers @array\n";

Output:

Position of 'o G' in the string 9
Array of Integers -10 20 15 -40 45 -60