Changeset 17701 for examples

Timestamp:

09/06/07 19:43:34 (16 months ago)

Author:

lwall

Message:

s:g/err/orelse/

Location:

examples

Files:

• advocacy/motd-i.pl (modified) (1 diff)
• advocacy/motd.pl (modified) (1 diff)
• cookbook/07file-access/07-01opening_file.pl (modified) (2 diffs)
• cookbook/07file-access/07-04making_perl_report_filenames_in_error_messages.pl (modified) (1 diff)
• games/hangman.pl (modified) (1 diff)
• games/hangman.pod (modified) (1 diff)
• golf/tsanta.pl (modified) (4 diffs)
• irclog2html.pl (modified) (2 diffs)
• matrix.pl (modified) (1 diff)
• naive_bayesian/naive_bayesian.pl (modified) (3 diffs)
• network/hangmanbot.pl (modified) (1 diff)
• p6explain/p6explain (modified) (1 diff)
• password-manager.p6 (modified) (4 diffs)
• perl5/cpan-upload.pl (modified) (1 diff)
• perldoc.pl (modified) (4 diffs)
• qotw/019r/qotw-regular-19.pl (modified) (1 diff)
• qotw/024r/qotw-regular-24.pl (modified) (2 diffs)
• rpn/p6/Rpn.pm (modified) (1 diff)
• rules/rpn_calc.pl (modified) (1 diff)
• rules/unitsdat-grammar.pm (modified) (1 diff)

examples/advocacy/motd-i.pl

@@ -14 +14 @@
 my $dict = canonpath("$progdir/pugspraise");
 
-my $fh = open($dict) err die $!;
+my $fh = open($dict) orelse die $!;
 
 for =$fh->$line {

examples/advocacy/motd.pl

@@ -12 +12 @@
 my $limit     = @*ARGS[0] // '2';
 my $dict      = canonpath("$progdir/pugspraise");
-my $fh        = open $dict err die $!;
+my $fh        = open $dict orelse die $!;
 my @list      = =$fh;
 

examples/cookbook/07file-access/07-01opening_file.pl

@@ -10 +10 @@
 
 my $input = open($path, :r)
-    err die "Could not open $path for reading $!\n";
+    orelse die "Could not open $path for reading $!\n";
 
 my $filename = "test_file";
 my $output = open($filename, :w) 
-    err die "Could not open $filename for writing $!\n";
+    orelse die "Could not open $filename for writing $!\n";
 
 
@@ -29 +29 @@
 
 # Closing the file
-# $input.close err die $!;
+# $input.close orelse die $!;
 # close($input);
 

examples/cookbook/07file-access/07-04making_perl_report_filenames_in_error_messages.pl

@@ -9 +9 @@
 
 #my $fh = open($path)
-#    err die "Could not open '$path' for reading: $!\n";
+#    orelse die "Could not open '$path' for reading: $!\n";
  

examples/games/hangman.pl

@@ -18 +18 @@
 sub get_committer_list (Str $dict_file) returns List {
     my @committers;
-    my $dict = open($dict_file) err die "Couldn't open the AUTHORS file.\nYou must run this script from within the main pugs\ndirectory or within the examples/ sub-directory.";
+    my $dict = open($dict_file) orelse die "Couldn't open the AUTHORS file.\nYou must run this script from within the main pugs\ndirectory or within the examples/ sub-directory.";
 
     # Skip the intro text

examples/games/hangman.pod

@@ -11 +11 @@
 =head1 sub get_committer_list
 
-C<err> is the low precedence form of C<//> (S03). C<//> is especially useful
+C<orelse> is the low precedence form of C<//> (S03). C<//> is especially useful
 in its assignment form:
 
     $x //= $y;
 
-To summarize, C<||> and C<or> relate to truth, while C<//> and C<err> relate
+To summarize, C<||> and C<or> relate to truth, while C<//> and C<orelse> relate
 to definedness.
 

examples/golf/tsanta.pl

@@ -24 +24 @@
 
 sub golf_score (Str $script) returns Int {
-    my $fh = open($script) err die("open '$script' failed: $!");
+    my $fh = open($script) orelse die("open '$script' failed: $!");
     my $golf = 0;
     my $dollar_dot = 0;    # Note: $. aka $fh.linenum() not implemented yet
@@ -32 +32 @@
             unless $dollar_dot==1 && $line.index("#!") == 0;
     }
-    $fh.close() err die("close '$script' failed: $!");
+    $fh.close() orelse die("close '$script' failed: $!");
     return $golf;
 }
@@ -43 +43 @@
 
 sub build_file (Str $fname, Str $data) {
-    my $fh = open($fname, :w) err die("open '$fname' failed: $!");
-    $fh.print($data) err die("print '$fname' failed: $!");
-    $fh.close() err die("close '$fname' failed: $!");
+    my $fh = open($fname, :w) orelse die("open '$fname' failed: $!");
+    $fh.print($data) orelse die("print '$fname' failed: $!");
+    $fh.close() orelse die("close '$fname' failed: $!");
 }
 
@@ -53 +53 @@
     print("$label: running: '$cmd'...");
     # my $out = `$cmd`;
-    system($cmd) err die("system '$cmd' failed: $!");
+    system($cmd) orelse die("system '$cmd' failed: $!");
     # XXX: get return code. how? $!? (I think $? is obsolete in p6).
     my $rc = 0;
-    my $out = slurp($outtmp) err die("slurp '$outtmp' failed: $!");
+    my $out = slurp($outtmp) orelse die("slurp '$outtmp' failed: $!");
     # my $rc = $? >> 8;
     say("done (rc=$rc)");

examples/irclog2html.pl

@@ -72 +72 @@
 
 # Pass I
-my $fh = open @*ARGS[0] err die "Couldn't open \"@*ARGS[0]\": $!\n";
+my $fh = open @*ARGS[0] orelse die "Couldn't open \"@*ARGS[0]\": $!\n";
 my $total = 0;
 
@@ -99 +99 @@
 
 # Pass I
-$fh = open @*ARGS[0] err die "Couldn't open \"@*ARGS[0]\": $!\n";
+$fh = open @*ARGS[0] orelse die "Couldn't open \"@*ARGS[0]\": $!\n";
 
 # This is the main coderef which processes a logline and returns HTML.

examples/matrix.pl

@@ -69 +69 @@
 
 gather {
-    for slurp '/usr/share/dict/words' :chomp err die {
+    for slurp '/usr/share/dict/words' :chomp orelse die {
         next if /<-[a-z]>/;
         /$re/ and take { word => $_, score => %scores{ .letters }.sum };

examples/naive_bayesian/naive_bayesian.pl

@@ -5 +5 @@
 sub load_db returns Void {
     return() unless "words.db.pl" ~~ :e;
-    my $db = open("words.db.pl") err die "Cannot open the words.db.pl file: $!";
+    my $db = open("words.db.pl") orelse die "Cannot open the words.db.pl file: $!";
     for (=$db) -> $_line {
         my $line = $_line;
@@ -15 +15 @@
 
 sub save_db returns Void {
-    my $db = open("words.db.pl", :w) err die "Cannot open the words.db.pl file: $!";
+    my $db = open("words.db.pl", :w) orelse die "Cannot open the words.db.pl file: $!";
     for (%words.kv) -> $key, $value {
         $db.say($key ~ "\t" ~ $value);
@@ -24 +24 @@
 sub parse_file (Str $file) returns Hash {
     my %words_in_file;    
-    my $fh = open("$file") err die "Cannot open the '$file' file: $!";
+    my $fh = open("$file") orelse die "Cannot open the '$file' file: $!";
     for (=$fh) -> $_line {
         my $line = $_line;       

examples/network/hangmanbot.pl

@@ -20 +20 @@
 sub get_committer_list(Str $dict_file) returns List {
   my @committers;
-  my $dict = open($dict_file) err
+  my $dict = open($dict_file) orelse
     die "Couldn't open \"$dict_file\": $!\n";
 

examples/p6explain/p6explain

@@ -6 +6 @@
 
 # Parsing the dat
-my $fh = open $dat err die "Couldn't open \"$dat\" for reading: $!\n";
+my $fh = open $dat orelse die "Couldn't open \"$dat\" for reading: $!\n";
 for =$fh {
   state $cur_entry;

examples/password-manager.p6

@@ -90 +90 @@
 
 sub xclip(Str $s -->) {
-        my IO $xclip = Pipe.to: 'xclip' err abort 'No xclip - use .p';
+        my IO $xclip = Pipe.to: 'xclip' orelse abort 'No xclip - use .p';
         $xclip.print: $s;
         $xclip.close;
@@ -98 +98 @@
         my Str $pw = %pw{$s}<pass> //
                 first Str, (%pw{$_}<pass> if /$s/ for %pw.keys)
-                err abort "Couldn't find account $s";
+                orelse abort "Couldn't find account $s";
         xclip $pw;
         cmt if $changed;
@@ -117 +117 @@
 
 sub cmt(-->) {
-        unlink 'pwd.gpg.old' err abort "Couldn't unlink: $!";
-        rename 'pwd.gpg', 'pwd.gpg.old' err abort "Couldn't rename: $!";
+        unlink 'pwd.gpg.old' orelse abort "Couldn't unlink: $!";
+        rename 'pwd.gpg', 'pwd.gpg.old' orelse abort "Couldn't rename: $!";
         my IO $pwd = Pipe.to: 'gpg --symmetric --force-mdc --cipher-algo AES256 --output pwd.gpg'
-                err abort "Couldn't encrypt: $!";
+                orelse abort "Couldn't encrypt: $!";
         for %pw.keys -> $k { $pwd.say: $k, "\t", %pw{$k}<pass user>.join("\t") }
         if $pwd.close {
@@ -168 +168 @@
 %*ENV<PATH> = '/bin:/usr/bin:/usr/bin/X11';
 umask 0o77;
-chdir "$+HOME/pw" err die "Couldn't cd: $!";
-my IO $pwd = Pipe.from: 'gpg --output - --decrypt pwd.gpg' err die "Couldn't decrypt: $!";
+chdir "$+HOME/pw" orelse die "Couldn't cd: $!";
+my IO $pwd = Pipe.from: 'gpg --output - --decrypt pwd.gpg' orelse die "Couldn't decrypt: $!";
 for =$pwd {
         /<pwent>/ or die 'Malformed line ', $pwd.linenum, ": $_\n";

examples/perl5/cpan-upload.pl

@@ -230 +230 @@
     #-------------------------------------------------------------------
     _debug("  creating instance of LWP::UserAgent\n");
-    $agent = LWP::UserAgent.new() err die "Failed to create UserAgent: $!\n";
+    $agent = LWP::UserAgent.new() orelse die "Failed to create UserAgent: $!\n";
     $agent.agent("$PROGRAM/$VERSION");
     $agent.from($config.mailto);

examples/perldoc.pl

@@ -46 +46 @@
 sub display_pod {
     my ($podfile) = @_;
-    my $fh = open $podfile err die "Could not open '$podfile'\n";
+    my $fh = open $podfile orelse die "Could not open '$podfile'\n";
     for =$fh -> $line {
         say $line;
@@ -62 +62 @@
     for list_files(dirname($PROGRAM_NAME)) -> $podfile {
         say "Processing '$podfile'";
-        my $fh = open $podfile err die "Could not open '$podfile'\n";
+        my $fh = open $podfile orelse die "Could not open '$podfile'\n";
         my $row = 0;
         my $section;
@@ -86 +86 @@
 sub list_files ($dir, $full) {
     #say "opening $dir";
-    my $dh = opendir $dir err die "Could not open $dir";
+    my $dh = opendir $dir orelse die "Could not open $dir";
     my @entries;
     for $dh.readdir -> $entry {
@@ -111 +111 @@
             my ($row, $file) = split /\./, $entry, 2;
             say "here: $file  $row";
-            my $fh = open $file err die "Could not open $file";
+            my $fh = open $file orelse die "Could not open $file";
             for (0..$row) {
                 =$fh;

examples/qotw/019r/qotw-regular-19.pl

@@ -9 +9 @@
 $scale //= 100;
 
-my $FH = open $file err die "Could't open \"$file\"!\n";
+my $FH = open $file orelse die "Could't open \"$file\"!\n";
 
 for =$FH -> $line {

examples/qotw/024r/qotw-regular-24.pl

@@ -2 +2 @@
 # http://perl.plover.com/qotw/r/solution/024.
 
-my $transition_file = @*ARGS[0] err
+my $transition_file = @*ARGS[0] orelse
   die "Usage: $*PROGRAM_NAME transition_file [initial_tape]\n";
 
@@ -15 +15 @@
 my $tape_loc = 0;
 
-my $trans = open $transition_file err
+my $trans = open $transition_file orelse
   die "Can't open \"$transition_file\" for reading!\n";
 

examples/rpn/p6/Rpn.pm

@@ -17 +17 @@
             next;
         }
-        my $x = @stack.pop() err die "Stack underflow\n";
-        my $y = @stack.pop() err die "Stack underflow\n";
+        my $x = @stack.pop() orelse die "Stack underflow\n";
+        my $y = @stack.pop() orelse die "Stack underflow\n";
 
         # given/when is a sexy new P6 construct that can avoid

examples/rules/rpn_calc.pl

@@ -50 +50 @@
             next;
         }
-        my $x = @stack.pop() err die "Stack underflow\n";
-        my $y = @stack.pop() err die "Stack underflow\n";
+        my $x = @stack.pop() orelse die "Stack underflow\n";
+        my $y = @stack.pop() orelse die "Stack underflow\n";
 
         # given/when is a sexy new P6 construct that can avoid

examples/rules/unitsdat-grammar.pm

@@ -732 +732 @@
         # NumUnit handles most of the traditional unit stuff via units.dat.
         my $unitsdat = open "/usr/share/misc/units.dat"
-            err die "You don't have a readable /usr/share/misc/units.dat: $!";
+            orelse die "You don't have a readable /usr/share/misc/units.dat: $!";
         cat =$unitsdat ~~ /<UnitsDat>/;
         $unitsdat.close;