Mega Code Archive

 

Categories / Perl / Language Basics

 

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"; }