course PerlScript de emacs (exemple cscript // C: Perlscript)

Question

je voudrais créer une touche de raccourci pour emacs pour exécuter cette commande:

cscript example //C:Perlscript 

avec example.pl étant le script perl que je veux exécuter

J'ai déjà obtenu une touche de raccourci pour l'exécution de perl: (global-set-key (kbd "") 'perl-eval) Comment puis-je faire cela?

Answer 1

Essayez cette

(defun run-command() "Run hard coded shell command" (interactive) 
    (shell-command (concat "cscript " buffer-file-name " //C:Perlscript"))) 
(global-set-key (kbd "<f2>") 'run-command)