import a start of cookbook section 9

Author: stmuk

cookbook/09directories/09-01-get-set-filetime.pl

@@ -0,0 +1,18 @@
+use v6;
+
+=begin pod
+
+=head1 Get/Set Filetime
+
+You want to get and set a utime on a file's inode
+
+=end pod
+
+my $fn =  $?FILE;
+
+my Instant $i = $fn.IO.accessed;
+my $dt = $i.to-posix;
+
+say :$dt.perl;
+
+# vim: ft=perl6

cookbook/09directories/09-02-delete-file.pl

@@ -0,0 +1,18 @@
+use v6;
+
+=begin pod
+
+=head1 Delete File
+
+You want to delete a file
+
+=end pod
+
+# create a file
+my $f = open "foo",:w;
+$f.print(time);
+$f.close;
+
+unlink "foo";
+
+# vim: ft=perl6

cookbook/09directories/09-03-copy-move-file.pl

@@ -0,0 +1,29 @@
+use v6;
+
+=begin pod
+
+=head1 Copy/Move File
+
+You want to copy and move a file
+
+=end pod
+
+# create a file
+my $f = open "foo",:w;
+$f.print(time);
+$f.close;
+
+# copy
+my $io = IO::Path.new("foo");
+$io.copy("foo2");
+
+# clean up
+unlink ("foo2");
+
+# move
+$io.rename("foo2");
+
+# clean up
+unlink ("foo2");
+
+# vim: ft=perl6

cookbook/09directories/09-05-all-files-dir.pl

@@ -0,0 +1,16 @@
+use v6;
+
+=begin pod
+
+=head1 Process all files in a directory
+
+You want to process all files in a directory 
+
+=end pod
+
+for  dir(".") -> $f {
+    say $f.perl;
+}
+
+
+# vim: ft=perl6