Using my with parentheses and only one variable

by

There are several scenarios when there is a difference:

  1. When array is on right side

    my @array = ('a', 'b', 'c');
my  $variable  = @array;           #  3   size of @array
my ($variable) = @array;           # 'a'  $array[0]

  2. When list is on right side

    my  $variable  = qw/ a b c d /;    # 'd'  last  item of the list
my ($variable) = qw/ a b c d /;    # 'a'  first item of the list

  3. Subroutine with variable (array/scalar) return value

    sub myFunction {
  ...
  return (wantarray() ? @array : $scalar);
}
my  $variable  = myFunction(...);  # $scalar   from the subroutine
my ($variable) = myFunction(...);  # $array[0] from the subroutine

More Related Contents:

  1. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  2. Redirecting the perl script
  3. How can I troubleshoot my Perl CGI script?
  4. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  5. How can I install Perl modules without root privileges?
  6. How can I require an optional Perl module if installed?
  7. How do I run a Perl script from within a Perl script?
  8. How do I compare two strings in Perl?
  9. What is the difference between ‘my’ and ‘our’ in Perl?
  10. Difference between &function and function() in perl [duplicate]
  11. How do you round a floating point number in Perl?
  12. How does double arrow (=>) operator work in Perl?
  13. Why do I have to specify the -i switch with a backup extension when using ActivePerl?
  14. How can I run Perl system commands in the background?
  15. Why is this program valid? I was trying to create a syntax error
  16. Find size of an array in Perl
  17. What does the -> arrow do in Perl?
  18. In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?
  19. In Perl, how can I find the index of a given value in an array?
  20. How can I run a system command in Perl asynchronously?
  21. How do I tell what type of value is in a Perl variable?
  22. What should I use for a Perl script’s shebang line?
  23. How can I find memory leaks in long-running Perl program?
  24. What does “select((select(s),$|=1)[0])” do in Perl?
  25. Why do Perl variables need to start with $, %,@ (sigils)?
  26. Print lines from one file that are not contained in another file
  27. Perl DBD::Oracle Module installation
  28. Why doesn’t print output anything on each iteration of a loop when I use sleep?
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment