Add Chap 16

Author: newbcode

Chapter-16/312-1.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+system 'ls -l $HOME';

Chapter-16/312.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+system "date";

Chapter-16/314.pl

@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $tarfile = "something*wicked.tar";
+my @dirs = qw ( fred|flintstone<barney&rubble> betty );
+system "tar", "cvf", $tarfiles, @dirs;

Chapter-16/318.pl

@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $now = `date`;
+print "The time is now $now";
+
+my @functions = qw{ int rand sleep length hex eof not exit sqrt umast };
+my %about;
+foreach (@functions) {
+    $about{$_} = `perldoc -t -f $_`;
+}
+say %about;

Chapter-16/321.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $who_test = `who`;
+say "$who_test";
+
+my @who_lines = `who`;
+say @who_lines;

Chapter-16/322.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+open DATE, "date|" or die "cannot pipe from date: $!";
+#open MAIL, "|mail newbcode" or die "cannot pipe to mail: $!";
+
+my $now = <DATE>;
+say $now;

Chapter-16/324.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+
+open F, "find / -atime +90 -size +1000 -print|" or die "fork: $!";
+while (<F>) {
+    chomp;
+    printf "%s size %dK last accessd in %s\n", $_, (1023 + -s $_)/1024, -A $_;
+}

Chapter-16/325.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+defined(my $pid = fork) or die "Can not fork:$!";
+unless ($pid) {
+    exec "date";
+    die "cannot exec date: $!";
+}
+waitpid($pid, 0);
+

Chapter-16/327.pl

@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $temp_directory = "/tmp/myprog.$$";
+mkdir $temp_directory, 0700 or die "Cannot create $temp_directory: $";
+
+sub clean_up {
+    unlink glob "$temp_directory/*";
+    rmdir $temp_directory;
+}
+
+sub my_init_handler {
+    &clean_up;
+    die "interrupted, exiting....\n";
+}
+
+$SIG{'INT'} = 'my_init_handler';
+&clean_up;

Chapter-16/ex-1.pl

@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+
+chdir "/" or die "Cannot move /";
+system "ls -l";