<div>
ARGV is an array which stores values from stdin.<br />
shift Remove the first element of an array, and return it.<br />

</div>


ARGV is an array which stores values from stdin.
shift Remove the first element of an array, and return it.


<div>
in first case,<br />
shift takes the first value from array ARGV ie 0 and prints it.<br />
<br />
in second case, u are not using shift and asking directly the first element of ARGV array and printing it.<br />
thats why getting the same result.
</div>


in first case,
shift takes the first value from array ARGV ie 0 and prints it.

in second case, u are not using shift and asking directly the first element of ARGV array and printing it.
thats why getting the same result.

<div>
Thanks, just have one more question :<br />
what does &quot;@&quot; mean here ? Thanks a lot !!!<br />
<br />
meow.
</div>


Thanks, just have one more question :
what does "@" mean here ? Thanks a lot !!!

meow.

<div>
See <br />
perldoc perldata<br />
and<br />
perldoc -f shift
</div>


See
perldoc perldata
and
perldoc -f shift

<div>
<div class="content wysiwyg-content">
To Experts,<br />
<br />
&nbsp; &nbsp;I have two perl programs, which output the same results.<br />
--------------------------<wbr />----------<wbr />--<br />
#!/usr/bin/perl -w<br />
use strict ;<br />
<br />
my $dir ;<br />
$dir = shift(@ARGV) || &quot;/tmp&quot; ; # line01..Q1<br />
print $dir; print &quot;\n&quot; ;<br />
--------------------------<wbr />----------<wbr />--<br />
#!/usr/bin/perl -w<br />
use strict ;<br />
<br />
my $dir1 ;<br />
$dir1 = $ARGV[0] || &quot;/tmp&quot; ;<br />
print $dir1; print &quot;\n&quot; ;<br />
--------------------------<wbr />----------<wbr />-<br />
Q1. However, I do not understand what does it mean by &quot;@ARGV&quot; and &quot;shift&quot; in line01. Could anyone please explain it to me ? <br />
<br />
Thanks !!!<br />
<br />
meow.
</div>
</div>


To Experts,

   I have two perl programs, which output the same results.
--------------------------------------
#!/usr/bin/perl -w
use strict ;

my $dir ;
$dir = shift(@ARGV) || "/tmp" ; # line01..Q1
print $dir; print "\n" ;
--------------------------------------
#!/usr/bin/perl -w
use strict ;

my $dir1 ;
$dir1 = $ARGV[0] || "/tmp" ;
print $dir1; print "\n" ;
-------------------------------------
Q1. However, I do not understand what does it mean by "@ARGV" and "shift" in line01. Could anyone please explain it to me ? 

Thanks !!!

meow.

shift(@ARGV) .....

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.