Perl | y Operator

Perl | my keyword

Last Updated : 07 May, 2019

my keyword in Perl declares the listed variable to be local to the enclosing block in which it is defined. The purpose of my is to define static scoping. This can be used to use the same variable name multiple times but with different values. Note: To specify more than one variable under my keyword, parentheses are used.

Syntax: my variable Parameter: variable: to be defined as local Returns: does not return any value.

Example 1:

perl

#!/usr/bin/perl -w

# Local variable outside of subroutine
my $string = "Geeks for Geeks";
print "$string\n";

# Subroutine call
my_func();
print "$string\n";

# defining subroutine 
sub my_func
{
    # Local variable inside the subroutine
    my $string = "This is in Function";
    print "$string\n";
    mysub();
}

# defining subroutine to show
# the local effect of my keyword
sub mysub 
{
    print "$string\n";
}

Output:

Geeks for Geeks
This is in Function
Geeks for Geeks
Geeks for Geeks

Example 2:

perl

#!/usr/bin/perl -w

# Local variable outside of subroutine
my $string = "Welcome to Geeks";
print "$string\n";

# Subroutine call
my_func();
print "$string\n";

# defining subroutine 
sub my_func
{
    # Local variable inside the subroutine
    my $string = "Let's GO Geeky!!!";
    print "$string\n";
    mysub();
}

# defining subroutine to show
# the local effect of my keyword
sub mysub 
{
    print "$string\n";
}

Output:

Welcome to Geeks
Let's GO Geeky!!!
Welcome to Geeks
Welcome to Geeks

How to define dynamic scoping? The opposite of "my" is "local". The local keyword defines dynamic scoping.

perl

# A perl code to demonstrate dynamic scoping 
$x = 10; 
sub f 
{ 
   return $x; 
} 
sub g 
{ 
   # Since local is used, x uses   
   # dynamic scoping. 
   local $x = 20; 

   return f(); 
} 

print g()."\n";

Perl | y Operator

C

Code_Mech

Improve

Article Tags :

Similar Reads

Perl | scalar keyword

scalar keyword in Perl is used to convert the expression to scalar context. This is a forceful evaluation of expression to scalar context even if it works well in list context. Syntax: scalar exprReturns: a scalar value Example 1: Perl #!/usr/bin/perl -w # Defining Arrays @array1 = ("Geeks

Barewords in Perl

Like any other language, Perl is also error-prone. some of the features in Perl are very difficult to use correctly. Perl's parser understands Perl's operators, functions, methods with the help of some symbols. But this is not the case always. The parser has to do the guesswork when we use Barewords

In Perl, array is a special type of variable. The array is used to store the list of values and each object of the list is termed as an element. Elements can either be a number, string, or any type of scalar data including another variable. Example: @number = (50, 70, 46); @names = ("Geeks", "For",

Error Handling in Perl

Error Handling in Perl is the process of taking appropriate action against a program that causes difficulty in execution because of some error in the code or the compiler. Processes are prone to errors. For example, if opening a file that does not exist raises an error, or accessing a variable that

Perl | y Operator

The y operator in Perl translates all characters of SearchList into the corresponding characters of ReplacementList. Here the SearchList is the given input characters which are to be converted into the corresponding characters given in the ReplacementList. Syntax: y/SearchList/ReplacementList/ Retur

Formats in Perl

Formats are the writing templates used in Perl to output the reports. Perl has a mechanism which helps in generating simple reports and charts. Instead of executing, Formats are declared, so they may occur at any point in the program. Formats have their own namespace apart from the other types in Pe

Perl | qw Operator

The qw operator in Perl is used to extract each element of the given string as it is in an array of elements in single-quote ( ' ' ). This function stands for quote word because it considers each word of the given string as it is quoted like qw(Geeks for Geeks) is equivalent to ('Geeks', 'for', 'Gee

Perl | gt operator

'gt' operator in Perl is one of the string comparison operators used to check for the equality of the two strings. It is used to check if the string to its left is stringwise greater than the string to its right. Syntax: String1 lt String2 Returns: 1 if left argument is greater than the right argume

Perl | le operator

'le' operator in Perl is one of the string comparison operators used to check for the equality of the two strings. It is used to check if the string to its left is stringwise less than or equal to the string to its right. Syntax: String1 le String2 Returns: 1 if left argument is less than or equal t

Perl | ge operator

'ge' operator in Perl is one of the string comparison operators used to check for the equality of the two strings. It is used to check if the string to its left is stringwise greater than or equal to the string to its right. Syntax: String1 ge String2 Returns: 1 if left argument is greater than or e