As a third party: I was debating whether to interject, but this gave me an opening. I have seen what looks like (to me) both behaviors -- I added in some extra information (perl version, timestamp) when prints happen, and ran some one-liners similar to Re^6: Print inside SIGNALS.

In Windows, I see what I think ikegami has described: no matter what, the SIG{ALRM} isn't firing, presumably because the <> blocks it...

C:\usr\local\share\PassThru\perl>perl -wMstrict -e "sub p { local $, =
+ qq{: }; print $], scalar(localtime), @_ }; alarm 2; $SIG{ALRM}=sub{p
+ qq{Timeout reached\n} }; p qq{before I hit enter\n}; <>; p qq{after 
+I hit enter\n}"
5.026002: Fri Jul 20 12:20:40 2018: before I hit enter
never saw the timeout, so hit enter
5.026002: Fri Jul 20 12:20:57 2018: after I hit enter

C:\usr\local\share\PassThru\perl>perl -wMstrict -e "sub p { local $, =
+ qq{: }; print $], scalar(localtime), @_ }; alarm 2; $SIG{ALRM}=sub{p
+ qq{Timeout reached  } }; p qq{before I hit enter\n}; <>; p qq{after 
+I hit enter\n}"
5.026002: Fri Jul 20 12:21:05 2018: before I hit enter
never saw the timeout, so hit enter
5.026002: Fri Jul 20 12:21:21 2018: after I hit enter

[download]

But in linux, with the \n, the "timeout reached" prints after the 2 seconds, then when I hit ENTER, it prints what comes after the <>; but if I don't have \n, I can count to about 15, type, and hit ENTER, and then it will print both the "timeout reached" and the "after" messages on the same line, showing that the events themselves happened about 30sec apart.

pryrt@pryrtdebian:~$ perl -wMstrict -e 'sub p { local $, = qq{: }; pri
+nt $], scalar(localtime), @_ }; alarm 2; $SIG{ALRM}=sub{p qq{Timeout 
+reached\n} }; p qq{before I hit enter\n}; <>; p qq{after I hit enter\
+n}'
5.020003: Fri Jul 20 12:23:50 2018: before I hit enter
5.020003: Fri Jul 20 12:23:52 2018: Timeout reached
after two seconds, that popped up, then I typed this slowly, with ENTE
+R
5.020003: Fri Jul 20 12:24:12 2018: after I hit enter
pryrt@pryrtdebian:~$ perl -wMstrict -e 'sub p { local $, = qq{: }; pri
+nt $], scalar(localtime), @_ }; alarm 2; $SIG{ALRM}=sub{p qq{Timeout 
+reached  } }; p qq{before I hit enter\n}; <>; p qq{after I hit enter\
+n}'
5.020003: Fri Jul 20 12:24:22 2018: before I hit enter
counted to about 15, never saw timeout, typed this, hit ENTER
5.020003: Fri Jul 20 12:24:24 2018: Timeout reached  5.020003: Fri Jul
+ 20 12:24:57 2018: after I hit enter

[download]

To me, it really looks like under linux, the <> is not blocking the SIG{ALRM} from firing, and that the \n is showing it's buffering which is causing the delay when there's no \n. I cannot explain what I saw, otherwise.

armed with haukex's newest oneliner, I see

__WINDOWS__
C:\usr\local\share\PassThru\perl>perl -wMstrict -le "$a=time;$SIG{ALRM
+}=sub{$b=time};alarm 2;<>;print $b-$a"

Use of uninitialized value $b in subtraction (-) at -e line 1, <> line
+ 1.
-1532115378
__LINUX__
pryrt@pryrtdebian:~$ perl -wMstrict -le '$a=time;$SIG{ALRM}=sub{$b=tim
+e};alarm 2;<>;print $b-$a'

2

[download]

once again, I see that on Windows, it appears that <> has prevented the alarm from firing; but in linux, it did not. In windows, I added in a second sleep after the first print, and did the print again:

__WINDOWS__
C:\usr\local\share\PassThru\perl>perl -wMstrict -le "$a=time;$SIG{ALRM
+}=sub{$b=time};alarm 2;<>;print $b-$a;sleep 5; print $b-$a"

Use of uninitialized value $b in subtraction (-) at -e line 1, <> line
+ 1.
-1532115756
10

[download]

between the first and second print, after hitting enter for the <>, then there is enough time for the alarm to run. Doing the same in linux, it seems to me that ALARM triggered the once, during the initial time before <> was completed by my hitting enter, so I don't think <> was blocking it:

__LINUX__
peter@peterjonesdebian:~$ perl -wMstrict -le '$a=time;$SIG{ALRM}=sub{$
+b=time};alarm 2;<>;print $b-$a;sleep 5;print $b-$a'

2
2

[download]

edit: joined lines that were accidentally separated when I copied from windows cmd.exe window

In reply to Re^14: Print inside SIGNALS by pryrt
in thread Print inside SIGNALS by pedrete

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.