爲什麼我的文件內容/用戶輸入不匹配？ （缺少格格規範）

Question

我從一個文件/ STDIN閱讀和查找某個特定值：

use strict; 
use warnings; 

my $find = 'def';  
while (<DATA>) { 
    if ($_ eq $find) { 
     print "Found: $_\n"; # Never reached! 
    } 
} 

__DATA__ 
abc 
def 
xyz 

爲什麼條件從不匹配？

Answer 1

Data::Dumper可用於更仔細地檢查變量：

use Data::Dumper; 
local $Data::Dumper::Useqq = 1; 

print Dumper $_, $find; 

輸出，例如

$VAR1 = "def\n"; 
$VAR2 = "def"; 

您必須刪除\n字符<DATA>讀入$_。做到這一點最簡單的方法是chomp功能

use strict; 
use warnings; 

my $find = 'def';  
while (<DATA>) { 
    chomp; 
    if ($_ eq $find) { 
     print "Found: $_\n"; # Never reached! 
    } 
} 

__DATA__ 
abc 
def 
xyz