Detecting when an else block gets executed for the second time [closed]

by

You need to keep some state, and use that to determine what to print out the second (or third, or…) time around.

my $has_printed_once = 0;

# your loop {

  if ($type eq $kind) {
    # no change
  } else {
    if ($has_printed_once == 0) {
      # print the second thing
    } else {
      $has_printed_once = 1;
      # print the first thing
    }
  }

# } close loop

More Related Contents:

  1. What is meaning of defined keyword [closed]
  2. how to check if a number is whole number or contains a decimal
  3. How can i do this in perl, shortcut truthtable [closed]
  4. Failing to install MIME::Base64 using cpan [closed]
  5. Declaring a 2D coordinate in Perl / C / C++ [closed]
  6. How can I install a CPAN module into a local directory?
  7. How can I use CPAN as a non-root user?
  8. Perl daemonize with child daemons
  9. How can I output UTF-8 from Perl?
  10. What’s the difference between a hash and hash reference in Perl?
  11. Multiline search replace with Perl
  12. How do I “use” a Perl module in a directory not in @INC?
  13. Using perl’s `system`
  14. What’s the best way to open and read a file in Perl?
  15. How do I daemonize an arbitrary script in unix?
  16. How can I dynamically include Perl modules without using eval?
  17. How can I store the result of a system command in a Perl variable?
  18. How can I check if a file exists in Perl?
  19. How can I guess the encoding of a string in Perl?
  20. Using Encode::encode with “utf8”
  21. Using output from a previous job in a new one in a GitHub Action
  22. How can I start an interactive console for Perl?
  23. What does =~ do in Perl? [closed]
  24. What does !! (double exclamation point) mean?
  25. Using my with parentheses and only one variable
  26. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  27. In Perl, is it better to use a module than to require a file?
  28. Demystifying the Perl glob (*)
  29. Why does !1 give me nothing in Perl?
  30. How do I print unique elements in Perl array?

Leave a Comment