Passing scalar variable to a subroutine by reference using $_ : Scalar Reference « Language Basics « Perl

1. Perl
2. Language Basics
3. Scalar Reference

Passing scalar variable to a subroutine by reference using $_

    

#!/usr/bin/perl -w

use strict;

my $var = 10;
print "before: $var\n";
change_var($var);
print "after:  $var\n";

sub change_var {
    print "in change_var() before: $_[0]\n";
    ++$_[0];
    print "in change_var() after:  $_[0]\n";
}

   
    
    
    
  

Related examples in the same category