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

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Language Basics » 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

1.	Get reference to a scalar
2.	Scalar alias
3.	Using scalar reference
4.	The backslash operator means "adddress of"

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.