September Morn Update

Task/Execute-a-system-command/Perl-6/execute-a-system-command.pl6

@@ -1,4 +1,4 @@
-run "ls" or die $!; # output to stdout
+run "ls" orelse .die; # output to stdout
 
 my @ls = qx/ls/;    # output to variable
 

Task/Execute-a-system-command/Perl/execute-a-system-command.pl

@@ -1,13 +1,9 @@
-my @results = qx(ls);
-# runs command and returns its STDOUT as a string
-my @results = `ls`;
-# ditto, alternative syntax
+my @results = qx(ls);  # run command and return STDOUT as a string
 
-system "ls";
-# runs command and returns its exit status; its STDOUT gets output to our STDOUT
+my @results = `ls`;    # same, alternative syntax
 
-print `ls`;
-#The same, but with back quotes
+system "ls";           # run command and return exit status; STDOUT of command goes program STDOUT
 
-exec "ls";
-# replace current process with another
+print `ls`;            # same, but with back quotes
+
+exec "ls";             # replace current process with another

Task/Execute-a-system-command/Phix/execute-a-system-command.phix

@@ -1,3 +1,3 @@
-string cmd = {"dir","ls"}[platform()-1]
+string cmd = iff(platform()=WINDOWS?"dir":"ls")
 system(cmd)
 integer res = system_exec("pause",4)