From 80e552a9e09e819719228cd8c23ef8c92506bcb1 Mon Sep 17 00:00:00 2001
From: Daniel Mita <mienaikage@gmail.com>
Date: Tue, 8 Oct 2019 13:26:11 +0100
Subject: Add ch-2.p6 for challenge-029

---
 challenge-029/daniel-mita/perl6/ch-2.p6 | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 challenge-029/daniel-mita/perl6/ch-2.p6

diff --git a/challenge-029/daniel-mita/perl6/ch-2.p6 b/challenge-029/daniel-mita/perl6/ch-2.p6
new file mode 100755
index 0000000000..9a6365be70
--- /dev/null
+++ b/challenge-029/daniel-mita/perl6/ch-2.p6
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl6
+use v6;
+use NativeCall;
+
+sub getrandom ( Buf, size_t, uint32 --> ssize_t ) is native {*}
+
+#| http://man7.org/linux/man-pages/man2/getrandom.2.html
+sub MAIN (
+  UInt $bytes = 8, #= Number of random bytes (defaults to 8)
+  UInt $flags = 0,
+) {
+  given Buf.allocate($bytes) {
+    given .&getrandom: $bytes, $flags {
+      when -1 {
+        die sub strerror( int32 --> Str ) is native {*}(
+          cglobal( ('c', v6), 'errno', int32 ) );
+      }
+      when * < $bytes { die 'got fewer bytes than requested' }
+    }
+    .say;
+  }
+}
-- 
cgit