Add ReTry

Author: newbcode

More-Chapter-02/27.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+print 'fred\n';
+print 'barney\n';
+print '\n';
+print 'Don\'t let an apostrophe end this string prematurely!\n';
+print 'the last character of this string is a backslash: \\\n';

More-Chapter-02/29.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+print "hello" . "world", "\n";
+print "hello" . " " . "world", "\n";
+print 'hello world', "\n";
+print "fred" x 3;
+print "barney" x (4+1);
+print 5 x 4;

More-Chapter-02/35.pl

@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $fred = 17;
+my $barney = 'hello';
+$barney = $fred + 3;
+$barney = $barney *2;
+$fred += 5;
+$barney *= 3;
+
+my $str .= " ";
+say "$str";
+$str .= " ";
+say "$str";

More-Chapter-02/36.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+print "The answer is ", 6 * 7, ".\n";

More-Chapter-02/37.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $meal = "brontosarus steak";
+say "$meal";
+print "$meal";
+my $barney = "fred ate a $meal";
+say "$barney";
+$barney = 'fead ate a ' . $meal;
+say "$barney";

More-Chapter-02/38.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+#use strict;
+use warnings;
+
+my $what = "bronostaer steal";
+my $n = 3;
+
+print "fred ate $n $whats.\n";
+print "fred ate $n ${what}s.\n";
+print "fred ate $n $what" . "s.\n";

More-Chapter-02/44.pl

@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+chomp (my $line = <STDIN>);
+
+if ($line eq "\n") {
+    print "Taht was just a blank line!\n";
+}
+else {
+    print "That line of input was: $line";
+}

More-Chapter-02/45.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $count = 0;
+while ($count < 10) {
+    $count += 2;
+    print "count is now $count\n";
+}

More-Chapter-02/47.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $madonna = <STDIN>;
+if (defined($madonna)) {
+    print "The input was $madonna";
+}
+else {
+    print "No input available!\n";
+}

More-Chapter-02/ex-1.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use 5.010;
+use utf8;
+use strict;
+use warnings;
+
+my $pai = 2 * 3.14;
+my $cicle = 12.5;
+
+my $result = $pai * $cicle;
+print "$result\n";