L'exécution d'une commande shell à partir de Common Lisp

ASDF fournit un RUN-SHELL-COMMAND qui travaille avec de nombreux Common Lisp implémentations y compris ABCL, Allegro CL, CLISP, Clozure CL, ECL, GCL, LispWorks, SBCL, CMU, XCL et SCL.

Il prend une chaîne de contrôle et une liste d'arguments comme FORMAT, et de manière synchrone, exécute le résultat à l'aide d'un Bourne-compatible coque. Sortie de Capture par la liaison facultative flux.

Vous pouvez envisager d'utiliser des Trivial-shell (url)

(trivial-shell:shell-command "echo foo")

de commande shell retourne de sortie, de sorte que vous pouvez l'affecter à une variable.

Dans asdf.lisp fichier, vous pouvez lire:

;;;; Nous devrions probablement déplacer cette fonctionnalité à son propre système et de rendre caduque

;;;; utilisation de la faa paquet. Cependant, cela ne pause indéterminée

;;;; logiciels existants, jusqu'à ce qu'une alternative claire existe, nous ne pouvons pas rendre caduque

;;;; il, et même après qu'il a été abandonné, nous allons le soutenir pour quelques

;;;; ans, donc tout le monde a le temps de migrer loin de lui. -- tarif 2009-12-01

Aujourd'hui, je voudrais utiliser uiop:run-program, où uiop signifie "universel d'entrée et de sortie" et est une couche de compatibilité fournis par asdf3, anciennement connu sous le asdf/driver. Comme il a été dit asdf:run-shell-command est obsolète et uiop hérite de nombreuses fonctionnalités d'autres bibliothèques comme trivial-shell.

UIOP readme

Ce (appupdate.cl) est un exemple de la création et de l'exécution d'un script shell en utilisant l'Acier de la Banque Common Lisp (sbcl) la mise en œuvre, ce qui suppose que vous avez sbcl installé et le son dans votre chemin.

J'ai écrit cela sur Ubuntu 14.04 comme un simple moyen de réaliser l'automatisation de la mise à jour, mise à niveau, et le noyau de la mise à niveau de l'application/logiciel système.

#!/usr/local/bin/sbcl --script
(with-open-file (str "/home/geo/update.sh"
                     :direction :output
                     :if-exists :supersede
                     :if-does-not-exist :create)
  (format str "#! /bin/bash~%~%apt-get update~%~%apt-get upgrade -y~%~%apt-get dist-upgrade -y~%~%exit~%))
(sb-ext:run-program "/bin/chmod" '("+x" "/home/geo/update.sh")
    :output *standard-output*)
(sb-ext:run-program "/bin/bash" '("/home/geo/update.sh")
    :output *standard-output*)
(sb-ext:run-program "/bin/rm" '("-rf" "/home/geo/update.sh")
    :output *standard-output*)

Alors bien sûr, il crée un script shell droit update.sh qui est dirigée vers /bin/bash via shebang (#!). Après avoir fait de sorte que le sb-ext:exécution du programme intégré dirige un shell pour exécuter /bin/chmod en passant le drapeau "+x" comme argument et le /chemin/vers/le-fichier. Cette fonction change le mode d'accès du fichier exécutable (modifie les permissions).

Prochain, un shell est ouvert et exécute /bin/bash et le bash binaire est passé à l'argument de l'exécutable shell scripts de l'emplacement du fichier.

Enfin, le fichier est supprimé à partir du répertoire de travail (dans ce cas, le appupdate.la cl est dans mon répertoire home est le répertoire de travail).

La appupdate.cl fichier peut être exécuté depuis la ligne de commande après il est changé à l'exécutable et temporaire des privilèges root sont acquises:

:~$ chmod +x appupdate.cl

:~$ sudo bash

:~# ./appupdate.cl

:~# exit

Assez facilement la commande sudo pourraient être ajoutées dans le script (par exemple, la commande sudo apt-get update) et à l'aide de la commande sudo bash séquence ne serait pas nécessaire.

REMARQUE: Dans le LispWorks ide sur la 14.04 (sys:exécution de commande shell ""), toujours en vigueur, même si elle a une sorte de devenir un "héritage" de la fonction.