1#!/usr/bin/perl
2
3# from http://gist.github.com/485595
4use strict;
5use warnings;
6use Time::HiRes 'usleep';
7
8for (1..5) {
9    open my $in, '<', '/proc/sys/kernel/random/entropy_avail' or die;
10    print <$in>;
11    close $in;
12    usleep 100_000;
13}
14
15# other miscellaneous tests of numbers separated by _
16#usleep 100_000;
17100_000_000;
18my $nichts = 0.005_006;
19print "$nichts\n";
20my $nichts2 = 0.005_006_007;
21print 900_800_700.005_006_007, $/;
22
23# numbers from `man 1 perlnumber`
24my $n;
25$n = 1234;              # decimal integer
26$n = 0b1110011;         # binary integer
27$n = 01234;             # octal integer
28$n = 0x1234;            # hexadecimal integer
29$n = 12.34e-56;         # exponential notation
30$n = "-12.34e56";       # number specified as a string
31$n = "1234";            # number specified as a string
32
33# other numbers
34for (
35    -9876,
36    +8765,
37    -9876.02,
38    -9876.02e+10,
39    +765_432e30,
40    2002.,
41    .2002,
42) {
43    print $_, "\n";
44}
45
46# operators on numbers
47for (
48    $n + 300,
49    $n - 300,
50    $n / 300 + 10,
51    $n * 250 / 2.0,
52    $n == 100,
53    $n != 100,
54    $n > 100,
55    $n >= 100,
56    $n < 100,
57    $n <= 100,
58    $n % 2,
59    abs $n,
60) {
61    print $_, "\n";
62}
63