perl - perl 中的 "while(<FH>)"和 "if(<FH>)"有什么区别？-6ren

perl - perl 中的 "while()"和 "if()"有什么区别？

转载作者：行者123 更新时间：2023-12-01 09:03:36

24

4

这行得通:-

while (<CONF>) {
  print $_;
}

但这不是:-

if (<CONF>) {
  print $_;
}

并给出有关未初始化值的错误。我在这里想念什么？

最佳答案

while (<CONF>)

被重写为

while (defined($_ = <CONF>))

所以你可能想要

if (defined($_ = <CONF>))

关于perl - perl 中的 "while(<FH>)"和 "if(<FH>)"有什么区别？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/12271744/

24

4

0

文章推荐： sharepoint - 我在 SharePoint 2010 功能区上缺少页面布局按钮

文章推荐： primefaces - 是否可以在 Primefaces 中创建垂直菜单栏？

文章推荐： Scala REPL 自动退出

文章推荐： asp.net - 如何根据内部数组使用 OData 进行过滤？

perl - 为什么在逐行读取时 ${fh} 的行为与 $fh 不同？
这个脚本: #!/usr/bin/perl use strict; use warnings; my ${fh}; open($fh, ' ) { print $line; } close $
perl - perl 中的 "while()"和 "if()"有什么区别？
这行得通:- while () { print $_; } 但这不是:- if () { print $_; } 并给出有关未初始化值的错误。我在这里想念什么？最佳答案 while () 被
linux - 确定我可以向文件句柄写入多少；将数据从一个 FH 复制到另一个
如何确定我是否可以将给定数量的字节写入文件句柄(实际上是套接字)？ (或者，如何“取消读取”我从其他文件句柄读取的数据？) 我想要这样的东西: n = how_much_can_I_write(w_h
perl - 有没有办法在 $fh 调用 'print' 时得到通知？
当我做: print $fh 'text'; 我需要一些 &sub被称为。有没有办法做到这一点？最佳答案您可以 tie a filehandle并自定义 print 的行为到该文件句柄或对该文件
perl - Perl中$ var = 和$ _之间的差异
最近，我在某个perl脚本中遇到了这样的事情: while(){ $var1 = ; $var2 = $_ } 由于内部具有文件句柄名称的菱形运算符的工作方式与readline(FH)相同；我
python - open(logPath, 'r') as fh : 语法错误
with open(logPath, 'r') as fh: for line in TailDeque(fh, 20): gamethread.delayed(0, show
linux - Emacs : -fh (full height) question
每次 Emacs 启动时，我都希望它的窗口占据我屏幕的整个高度。现在，从手册页中，我发现这可以通过 -fh 开关来完成。它有点管用，但有没有办法让我执行以下操作: 1) 在 .emacs 中指定
perl - 为什么我不能说 print $somehash{$var}{fh} "foo"？
我有一行代码: print $somehash{$var}{fh} "foo"; 哈希包含向下几级的文件句柄。错误是: String found where operator expected at
assembly - "fh"后缀对于 Intel 汇编中的 "38fh"这样的数字意味着什么
我在网上搜索过，但我找不到以下指令和eax, 38fh中的“fh”的含义。我知道“h”代表十六进制，“d”代表十进制，但我以前从未见过 fh。最佳答案如果英特尔汇编程序(即 MASM)标记以数字(
perl - 为什么 perl 警告打开我的 $fh, $file 缺少括号？
这是我接触 perl 的第一天，我发现这个警告非常令人困惑。 Parentheses missing around "my" list at ./grep.pl line 10. 它似乎 open F
assembly - "fh"后缀对于 Intel 汇编中的 "38fh"这样的数字意味着什么
我在网上搜索过，但我找不到以下指令和eax, 38fh中的“fh”的含义。我知道“h”代表十六进制，“d”代表十进制，但我以前从未见过 fh。最佳答案如果英特尔汇编程序(即 MASM)标记以数字(
perl - 当 perl 中有 < FH >、<> 或 < * > 时，内部会发生什么？
如果这个问题听起来很简单，我很抱歉，我的目的是了解深入这个(这些？)特定的操作符是如何工作的，我无法在 perldocs 中找到令人满意的描述(它可能存在于某个地方，我一生都找不到它) 特别是，我有
perl - 重定向 stderr 会影响 "open FH, ' - |', $command"的输出。为什么以及如何预防？
我想获取当前终端的大小，即运行我的 perl 脚本的终端。下面应该完成这项工作: #!/usr/bin/perl sub getTerminalSize { my @dimensions =
perl - Perl 的 IO::File 等价于 open($fh, ">:utf8",$path) 是什么？
可以将编码为 utf-8 的文件白化，如下所示: open my $fh,">:utf8","/some/path" or die $!; 如何使用 IO::File 获得相同的结果，最好是 1 行？
perl - `print $fh <<' EOF 中的 here-doc 问题'` : Perl executing the here doc
(根据 https://stackoverflow.com/a/17479551/6607497 它应该工作，但没有)我有一些这样的代码: use strict; use warnings; if (

首页

博学

6Ren·AI

商城

perl - perl 中的 "while()"和 "if()"有什么区别？