blocks|key|1454976|text|您可以像您想的那样传递它们，在脚本中，您可以从数组@ARGV中获取它们。如下所示：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1454977|my+$numArgs+=+$#ARGV+%2B+1;
print+"thanks,+you+gave+me+$numArgs+command-line+arguments.\n";

foreach+my+$argnum+(0+..+$#ARGV)+{

+++print+"$ARGV[$argnum]\n";

}|code-block|syntax|javascript|1454978|来自here。|1454979|entityMap|0|LINK|mutability|MUTABLE|url|http://www.devdaily.com/perl/edu/qanda/plqa00001.shtml^0|P|5|0|0|2|4|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@$9|V|A|W|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|X|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|Y|8|@]|D|@$9|Z|A|10|1|11]]|E|$]]|$1|M|3|-4|5|6|7|12|8|@]|D|@]|E|$]]]|N|$O|$5|P|Q|R|E|$S|T]]]]

You pass them in just like you're thinking, and in your script, you get them from the array <code>@ARGV</code>. Like so:

<pre><code>my $numArgs = $#ARGV + 1;
print "thanks, you gave me $numArgs command-line arguments.\n";

foreach my $argnum (0 .. $#ARGV) {

 print "$ARGV[$argnum]\n";

}
</code></pre>

From <a href="http://www.devdaily.com/perl/edu/qanda/plqa00001.shtml" rel="noreferrer">here</a>.

blocks|key|1670000|text|foreach+my+$arg+(@ARGV)+{
++++print+$arg,+"\n";
}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1670001|将打印每个参数。|unstyled|1670002|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>foreach my $arg (@ARGV) {
 print $arg, "\n";
}
</code></pre>

will print each argument.

blocks|key|1670045|text|这取决于你想做什么。如果您想使用这两个参数作为输入文件，只需传递它们，然后使用<>读取它们的内容。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1670046|如果它们有不同的含义，您可以使用GetOpt::Std和GetOpt::Long轻松地处理它们。GetOpt::Std仅支持单字符开关，而GetOpt::Long要灵活得多。来自GetOpt::Long：|1670047|use+Getopt::Long;
my+$data+++=+"file.dat";
my+$length+=+24;
my+$verbose;
$result+=+GetOptions+("length=i"+=>+\$length,++++#+numeric
++++++++++++++++++++"file=s"+++=>+\$data,++++++#+string
++++++++++++++++++++"verbose"++=>+\$verbose);++#+flag|code-block|syntax|javascript|1670048|或者，@ARGV是一个包含所有命令行参数的特殊变量。$ARGV[0]是第一个(即在您的示例中为"string1"+)，而$ARGV[1]是第二个参数。你不需要一个特殊的模块来访问@ARGV。|1670049|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/Getopt/Long.html^0|13|2|0|G|B|S|C|1C|B|1X|C|2H|C|2H|C|0|0|0|3|5|Q|8|1B|9|1O|8|2H|5|0^^$0|@$1|2|3|4|5|6|7|W|8|@$9|X|A|Y|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|Z|8|@$9|10|A|11|B|C]|$9|12|A|13|B|C]|$9|14|A|15|B|C]|$9|16|A|17|B|C]|$9|18|A|19|B|C]]|D|@$9|1A|A|1B|1|1C]]|E|$]]|$1|H|3|I|5|J|7|1D|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|1E|8|@$9|1F|A|1G|B|C]|$9|1H|A|1I|B|C]|$9|1J|A|1K|B|C]|$9|1L|A|1M|B|C]|$9|1N|A|1O|B|C]]|D|@]|E|$]]|$1|O|3|-4|5|6|7|1P|8|@]|D|@]|E|$]]]|P|$Q|$5|R|S|T|E|$U|V]]]]

Depends on what you want to do. If you want to use the two arguments as input files, you can just pass them in and then use <code>&lt;&gt;</code> to read their contents.

If they have a different meaning, you can use <code>GetOpt::Std</code> and <code>GetOpt::Long</code> to process them easily. <code>GetOpt::Std</code> supports only single-character switches and <code>GetOpt::Long</code> is much more flexible. From <a href="http://perldoc.perl.org/Getopt/Long.html" rel="noreferrer"><code>GetOpt::Long</code></a>: 

<pre><code>use Getopt::Long;
my $data = "file.dat";
my $length = 24;
my $verbose;
$result = GetOptions ("length=i" =&gt; \$length, # numeric
 "file=s" =&gt; \$data, # string
 "verbose" =&gt; \$verbose); # flag
</code></pre>

Alternatively, <code>@ARGV</code> is a special variable that contains all the command line arguments. <code>$ARGV[0]</code> is the first (ie. <code>"string1"</code> in your case) and <code>$ARGV[1]</code> is the second argument. You don't need a special module to access <code>@ARGV</code>.

blocks|key|1670100|text|如果参数是要从中读取的文件名，请使用菱形(<>)运算符获取其内容：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1670101|while+(my+$line+=+<>)+{
++process_line($line);
}|code-block|syntax|javascript|1670102|如果参数是选项/开关，请使用GetOpt::Std或GetOpt::Long，如slavy13.myopenid.com所示。|1670103|如果它们是其他东西，您可以通过显式地遍历@ARGV或使用shift命令来访问它们：|offset|length|style|CODE|1670104|while+(my+$arg+=+shift)+{
++print+"Found+argument+$arg\n";
}|1670105|(请注意，仅当您在所有sub之外时，才能使用shift执行此操作。在sub中，它将检索传递给sub的参数列表，而不是传递给程序的参数列表。)|1670106|entityMap^0|0|0|0|S|5|0|0|B|3|M|5|Y|3|1A|3|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|W|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|X|8|@$K|Y|L|Z|M|N]]|9|@]|A|$]]|$1|O|3|P|5|D|7|10|8|@]|9|@]|A|$E|F]]|$1|Q|3|R|5|6|7|11|8|@$K|12|L|13|M|N]|$K|14|L|15|M|N]|$K|16|L|17|M|N]|$K|18|L|19|M|N]]|9|@]|A|$]]|$1|S|3|-4|5|6|7|1A|8|@]|9|@]|A|$]]]|T|$]]

If the arguments are filenames to be read from, use the diamond (&lt;>) operator to get at their contents:

<pre><code>while (my $line = &lt;&gt;) {
 process_line($line);
}
</code></pre>

If the arguments are options/switches, use GetOpt::Std or GetOpt::Long, as already shown by slavy13.myopenid.com.

On the off chance that they're something else, you can access them either by walking through @ARGV explicitly or with the <code>shift</code> command:

<pre><code>while (my $arg = shift) {
 print "Found argument $arg\n";
}
</code></pre>

(Note that doing this with <code>shift</code> will only work if you are outside of all <code>sub</code>s. Within a <code>sub</code>, it will retrieve the list of arguments passed to the <code>sub</code> rather than those passed to the program.)

blocks|key|1455126|text|如果你只想要一些值，你可以使用@ARGV数组。但是，如果您正在寻找更强大的工具来执行某些命令行选项处理，则应该使用Getopt::Long。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1455127|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/Getopt/Long.html^0|1L|C|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

If you just want some values, you can just use the @ARGV array. But if you are looking for something more powerful in order to do some command line options processing, you should use <a href="http://perldoc.perl.org/Getopt/Long.html" rel="nofollow noreferrer">Getopt::Long</a>.

blocks|key|1455149|text|或者，一种更性感的变态方式.|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1455150|my+($src,+$dest)+=+@ARGV;|offset|length|style|CODE|1455151|“假定”传递了两个值。额外的代码可以验证这个假设是安全的。|1455152|entityMap^0|0|0|P|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|M|8|@$D|N|E|O|F|G]]|9|@]|A|$]]|$1|H|3|I|5|6|7|P|8|@]|9|@]|A|$]]|$1|J|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|K|$]]

Alternatively, a sexier perlish way.....

<code>my ($src, $dest) = @ARGV;</code>

"Assumes" two values are passed. Extra code can verify the assumption is safe.

blocks|key|1670224|text|另一种选择是使用perl+-s，例如：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1670225|#!/usr/bin/perl+-s

print+"value+of+-x:+$x\n";
print+"value+of+-name:+$name\n";|code-block|syntax|javascript|1670226|然后这样叫它：|1670227|%25+./myprog+-x+-name=Jeff
value+of+-x:+1
value+of+-name:+Jeff|1670228|或查看the+original+article了解更多详细信息：|offset|length|1670229|entityMap|0|LINK|mutability|MUTABLE|url|http://www.perlmonks.org/?node_id=33287^0|0|0|0|0|3|K|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Y|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|Z|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|10|8|@]|9|@$M|11|N|12|1|13]]|A|$]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V]]]]

Yet another options is to use perl -s, eg:

<pre><code>#!/usr/bin/perl -s

print "value of -x: $x\n";
print "value of -name: $name\n";
</code></pre>

Then call it like this :

<pre><code>% ./myprog -x -name=Jeff
value of -x: 1
value of -name: Jeff
</code></pre>

Or see <a href="http://www.perlmonks.org/?node_id=33287">the original article</a> for more details:

blocks|key|1455285|text|您可以通过将特殊变量@ARGV赋给变量列表来直接访问它们。所以，举个例子：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1455286|(+$st,+$prod,+$ar,+$file,+$chart,+$e,+$max,+$flag+,$id)+=+@ARGV;|code-block|syntax|javascript|1455287|perl+tmp.pl+%251%252%253%254+5|1455288|​|1455289|📷|atomic|1455290|1455291|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/541b6dce7b5941f21917a2729aae99be.jpeg|imageAlt^0|A|5|0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|11|8|@$9|12|A|13|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|14|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|15|8|@]|D|@]|E|$]]|$1|M|3|N|5|6|7|16|8|@]|D|@]|E|$]]|$1|O|3|P|5|Q|7|17|8|@]|D|@$9|18|A|19|1|1A]]|E|$]]|$1|R|3|N|5|6|7|1B|8|@]|D|@]|E|$]]|$1|S|3|-4|5|6|7|1C|8|@]|D|@]|E|$]]]|T|$U|$5|V|W|X|E|$Y|Z|10|-4]]]]

You can access them directly, by assigning the special variable <code>@ARGV</code> to a list of variables.
So, for example:

<pre><code>( $st, $prod, $ar, $file, $chart, $e, $max, $flag ,$id) = @ARGV;
</code></pre>

perl tmp.pl 1 2 3 4 5 

<a href="https://i.stack.imgur.com/cskEL.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/cskEL.jpg" alt="enter image description here"></a>

blocks|key|1455303|text|my+$output_file;

if((scalar+(@ARGV)+==+2)+&&+($ARGV[0]+eq+"-i"))

{

$output_file=+chomp($ARGV[1])+;


}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1455304|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>my $output_file;

if((scalar (@ARGV) == 2) &amp;&amp; ($ARGV[0] eq "-i"))

{

$output_file= chomp($ARGV[1]) ;


}
</code></pre>

I'm working on a Perl script. How can I pass command line parameters to it?

Example:

<pre><code>script.pl "string1" "string2"
</code></pre>

How can I pass command-line arguments to a Perl program?

Perl

我正在编写一个Perl脚本。如何将命令行参数传递给它？示例：script.pl "string1" "string2"

问如何将命令行参数传递给Perl程序？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何将命令行参数传递给Perl程序？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何将命令行参数传递给Perl程序？
EN