Why does !1 give me nothing in Perl?

by

Be careful: what you’ve written isn’t doing what you think it’s doing. Remember, perl has no real boolean datatype. It’s got scalars, hashes, lists, and references. The way it handles true/false values, then, is contextual. Everything evaluates to “true” in perl except for undefined variables, the empty list, the empty string, and the number 0.

What your code is doing, then, is taking the inverse of a value that evaluates to “false”, which can be anything which is not in the list above. By convention and for simplicity’s sake, perl returns 1 (though you should not rely on that; it could very well return a list containing a series of random numbers, because that will evaluate to “true” as well.)

A similar thing happens when you ask for the inverse of a value that evaluates to “true.” What’s actually being printed out is not “nothing,” it’s the empty string (”), which, as I mentioned, evaluates to “false” in boolean expressions. You can check this:

print "This evaluates to false\n" if( (!1) eq '');

If you’re asking for why perl spits out the empty string instead of one of the other “false” values, well, it’s probably because perl is made to handle strings and that’s a perfectly reasonable string to hand back.

More Related Contents:

  1. How do I use boolean variables in Perl?
  2. What does !! (double exclamation point) mean?
  3. How can I convert my shell script to Perl? [closed]
  4. search using perl one liner within a file [closed]
  5. How to re-direct the contents to a file instead of printing it to terminal
  6. How do I remove duplicate items from an array in Perl?
  7. What is the difference between library files and modules?
  8. How do I read in the contents of a directory in Perl?
  9. How can I pass command-line arguments to a Perl program?
  10. How do I efficiently parse a CSV file in Perl?
  11. How can I generate all permutations of an array in Perl?
  12. How can I install CPAN modules locally without root access (DynaLoader.pm line 229 error)?
  13. OpenSSL DH Key Too Small Error
  14. Manual installation of a Perl Module
  15. @ARGV is empty using ActivePerl in Windows 7
  16. ImageMagick Command-Line Option Order (and Categories of Command-Line Parameters)
  17. Perl Dereferencing Syntax
  18. How to extrace pg_backend_pid from postgresql in shell script and pass it to another process?
  19. What exactly does Perl’s “bless” do?
  20. What is the difference between `$this`, `@that`, and `%those` in Perl?
  21. Why are use warnings; use strict; not default in Perl?
  22. What is the difference between `read` and `sysread`?
  23. How to use shell variables in perl command call in a bash shell script?
  24. In Perl, what is the difference between accessing an array element using @a[$i] as opposed to using $a[$i]?
  25. How do I use symbolic references in Perl?
  26. What is the meaning of @_ in Perl?
  27. How do I list available methods on a given object or package in Perl?
  28. How can I calculate the number of days between two dates in Perl?
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment