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