Perl Language
विशेष चर

टिप्पणियों

पर्ल में विशेष चर:

1. $_ : डिफ़ॉल्ट इनपुट और पैटर्न-खोज स्थान।

उदाहरण 1:

my @array_variable = (1 2 3 4);
foreach (@array_variable){
    print $_."\n";    # $_ will get the value 1,2,3,4 in loop, if no other variable is supplied.
}

उदाहरण 2:

while (<FH>){
    chomp($_);    # $_ refers to the iterating lines in the loop.
}

निम्न कार्य डिफ़ॉल्ट तर्क के रूप में $_ उपयोग करते हैं:

abs, alarm, chomp, chop, chr, chroot, cos, defined, eval,
evalbytes, exp, fc, glob, hex, int, lc, lcfirst, length, log,
lstat, mkdir, oct, ord, pos, print, printf, quotemeta, readlink,
readpipe, ref, require, reverse (in scalar context only), rmdir,
say, sin, split (for its second argument), sqrt, stat, study,
uc, ucfirst, unlink, unpack.

2. @_ : इस सरणी में सबरूटीन को दिए गए तर्क हैं।

उदाहरण 1:

example_sub( $test1, $test2, $test3 );

sub example_sub {
    my ( $test1, $test2, $test3 ) = @_; 
}

एक सबरूटीन के भीतर सरणी @_ में उस सबरूटीन को दिए गए तर्क होते हैं। सबरूटीन के अंदर, सरणी ऑपरेटरों के pop और shift लिए @_ default सरणी है।