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