blocks|key|1211622|text|您需要使用<>运算符：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1211623|while+(<>)+{
++++print+$_;+#+or+simply+"print;"
}|code-block|syntax|javascript|1211624|它可以压缩为：|1211625|print+while+(<>);|1211626|任意文件：|1211627|open+F,+"<file.txt"+or+die+$!;
while+(<F>)+{
++++print+$_;
}
close+F;|1211628|entityMap^0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|U|8|@]|9|@]|A|$]]|$1|M|3|N|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

You need to use &lt;> operator:

<pre><code>while (&lt;&gt;) {
 print $_; # or simply "print;"
}
</code></pre>

Which can be compacted to:

<pre><code>print while (&lt;&gt;);
</code></pre>

Arbitrary file:

<pre><code>open F, "&lt;file.txt" or die $!;
while (&lt;F&gt;) {
 print $_;
}
close F;
</code></pre>

blocks|key|1211659|text|while+(<>)+{
print;
}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1211660|将从命令行上指定的文件读取，如果未提供文件，则从标准输入读取|unstyled|1211661|如果需要在命令行中构建此循环，则可以使用-n选项：|offset|length|style|CODE|1211662|$+perl+-ne+'print;'|1211663|在这里，您只需将第一个示例中的{}之间的代码放入第二个示例中的''中|1211664|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/perlrun.html#*-n*^0|0|0|K|2|K|2|0|0|0|F|2|V|2|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|Z|8|@]|9|@]|A|$]]|$1|G|3|H|5|F|7|10|8|@$I|11|J|12|K|L]]|9|@$I|13|J|14|1|15]]|A|$]]|$1|M|3|N|5|6|7|16|8|@]|9|@]|A|$B|C]]|$1|O|3|P|5|F|7|17|8|@$I|18|J|19|K|L]|$I|1A|J|1B|K|L]]|9|@]|A|$]]|$1|Q|3|-4|5|F|7|1C|8|@]|9|@]|A|$]]]|R|$S|$5|T|U|V|A|$W|X]]]]

<pre><code>while (&lt;&gt;) {
print;
}
</code></pre>

will read either from a file specified on the command line or from stdin if no file is given

If you are required this loop construction in command line, then you may use <a href="http://perldoc.perl.org/perlrun.html#*-n*" rel="noreferrer"><code>-n</code></a> option:

<pre><code>$ perl -ne 'print;'
</code></pre>

Here you just put code between <code>{}</code> from first example into <code>''</code> in second

blocks|key|997387|text|if(my+$file+=+shift)+{+#+if+file+is+specified,+read+from+that
++open(my+$fh,+'<',+$file)+or+die($!);
++while(my+$line+=+<$fh>)+{
++++print+$line;
++}
}
else+{+#+otherwise,+read+from+STDIN
++print+while(<>);
}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|997388|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>if(my $file = shift) { # if file is specified, read from that
 open(my $fh, '&lt;', $file) or die($!);
 while(my $line = &lt;$fh&gt;) {
 print $line;
 }
}
else { # otherwise, read from STDIN
 print while(&lt;&gt;);
}
</code></pre>

blocks|key|997405|text|做|type|unstyled|depth|inlineStyleRanges|entityRanges|data|997406|$userinput+=++<STDIN>;+#read+stdin+and+put+it+in+$userinput
chomp+($userinput);++++#cut+the+return+/+line+feed+character|code-block|syntax|javascript|997407|如果你只想读一行|997408|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Do

<pre><code>$userinput = &lt;STDIN&gt;; #read stdin and put it in $userinput
chomp ($userinput); #cut the return / line feed character
</code></pre>

if you want to read just one line

blocks|key|997454|text|这提供了一个要使用的命名变量：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|997455|foreach+my+$line+(+<STDIN>+)+{
++++chomp(+$line+);
++++print+"$line\n";
}|code-block|syntax|javascript|997456|要读取一个文件，可以像这样通过管道将其输入：|997457|program.pl+<+inputfile|997458|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

This provides a named variable to work with:

<pre><code>foreach my $line ( &lt;STDIN&gt; ) {
 chomp( $line );
 print "$line\n";
}
</code></pre>

To read a file, pipe it in like this:

<pre><code>program.pl &lt; inputfile
</code></pre>

What is the slickest way to programatically read from stdin or an input file (if provided) in Perl?

Programmatically read from STDIN or input file in Perl

Perl

以编程方式从标准输入或Perl中的输入文件(如果提供)中读取数据的最灵活方法是什么？

问以编程方式读取STDIN或Perl中的输入文件
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问以编程方式读取STDIN或Perl中的输入文件EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问以编程方式读取STDIN或Perl中的输入文件
EN