Why does my file content/user input not match? (missing chomp canonical) [duplicate]

by

Data::Dumper can be used to more closely examine the variables:

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

print Dumper $_, $find;

Outputs, e.g.

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

You have to remove the \n character that <DATA> reads into $_. The simplest way to do it is the chomp function

use strict;
use warnings;

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

__DATA__
abc
def
xyz

More Related Contents:

  1. Failing to install MIME::Base64 using cpan [closed]
  2. Declaring a 2D coordinate in Perl / C / C++ [closed]
  3. Why can’t Perl find my file that is in ClearCase?
  4. Difference of Two Arrays Using Perl
  5. How can I output UTF-8 from Perl?
  6. When should I use the & to call a Perl subroutine?
  7. What’s the difference between my ($variableName) and my $variableName in Perl?
  8. What is the difference between library files and modules?
  9. How do I read in the contents of a directory in Perl?
  10. How can I pass command-line arguments to a Perl program?
  11. How can I hook into Perl’s print?
  12. How can I combine hashes in Perl?
  13. Why do my Perl tests fail with use encoding ‘utf8’?
  14. OpenSSL DH Key Too Small Error
  15. What is the difference between my and local in Perl?
  16. Why does my Perl script exit with 137?
  17. Manual installation of a Perl Module
  18. How to extrace pg_backend_pid from postgresql in shell script and pass it to another process?
  19. Perl read line by line
  20. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  21. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  22. How can I install a specific version of a set of Perl modules?
  23. Obtain a switch/case behaviour in Perl 5
  24. How to use shell variables in perl command call in a bash shell script?
  25. How do I extract the domain out of an URL?
  26. Why does $foo->{bar} autovivify but %$foo doesn’t?
  27. Which framework should I use to write modules? [closed]
  28. How do I capture Perl’s STDOUT in a variable?
  29. Is object oriented exception handling in Perl worth it?
  30. How can I check whether my Perl installation is 32 or 64 bit?

Leave a Comment