Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. 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";
}