Another update from ingydotnet^djgoku

Task/Execute-a-system-command/AWK/execute-a-system-command-2.awk

@@ -0,0 +1,15 @@
+BEGIN {
+         ls = sys2var("ls")
+         print ls
+}
+function sys2var(command        ,fish, scale, ship) {
+         command = command " 2>/dev/null"
+         while ( (command | getline fish) > 0 ) {
+             if ( ++scale == 1 )
+                 ship = fish
+             else
+                 ship = ship "\n" fish
+         }
+         close(command)
+         return ship
+}

Task/Execute-a-system-command/AutoIt/execute-a-system-command.autoit

@@ -0,0 +1 @@
+Run(@ComSpec & " /c " & 'pause', "", @SW_HIDE)

Task/Execute-a-system-command/D/execute-a-system-command.d

@@ -1 +1,9 @@
-std.process.system("ls");
+import std.process, std.stdio;
+//these two alternatives wait for the process to return, and capture the output
+//each process function returns a Tuple of (int)"status" and (string)"output
+auto ls_string = executeShell("ls -l"); //takes single string
+writeln((ls_string.status == 0) ? ls_string.output : "command failed");
+
+auto ls_array = execute(["ls", "-l"]); //takes array of strings
+writeln((ls_array.status == 0) ? ls_array.output : "command failed");
+//other alternatives exist to spawn processes in parallel and capture output via pipes

Task/Execute-a-system-command/Julia/execute-a-system-command.julia

@@ -0,0 +1 @@
+run(`ls`)

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

@@ -3,4 +3,4 @@ run "ls" or die $!; # output to stdout
 my @ls = qx/ls/;    # output to variable
 
 my $cmd = 'ls';
-my @ls = qqx/$ls/;  # same thing with interpolation
+@ls = qqx/$cmd/;  # same thing with interpolation

Task/Execute-a-system-command/Rust/execute-a-system-command.rust

@@ -0,0 +1,7 @@
+use std::process::Command;
+fn main() {
+    let output = Command::new("ls").output().unwrap_or_else(|e| {
+        panic!("failed to execute process: {}", e)
+    });
+    println!("{}", String::from_utf8_lossy(&output.stdout));
+}

Task/Execute-a-system-command/SETL/execute-a-system-command.setl

@@ -0,0 +1 @@
+system("ls");

Task/Execute-a-system-command/VBScript/execute-a-system-command.vb

@@ -0,0 +1,2 @@
+Set objShell = CreateObject("WScript.Shell")
+objShell.Run "%comspec% /K dir",3,True