Prüfen ob Ghostscript installiert ist (gelöst) - #164828 (Allgemeines zu Perl)

murphy

2013-01-09 18:12

User since
2004-07-19
1776 Artikel
HausmeisterIn

Vielleicht schreibt eine Installation von Ghostscript unter Windows irgendeinen Schlüssel in die Registry, dessen Existenz man überprüfen könnte.

Ansonsten könnte man zumindest manuell im Pfad nach der ausführbaren Datei suchen:

Code (perl): (dl )

use 5.012;
use warnings;

use File::Spec;

my ($sep, $exe) = do {
  if ($^O =~ /^MSWin/) {
    (';', '.exe')
  }
  else {
    (':', '')
  }
};

sub findgs {
  for my $dir (split $sep, $ENV{PATH}) {
    my $_ = File::Spec->catfile($dir, "gs$exe");
    return $_ if -x;
  }
}

if (my $gs = findgs) {
  say "ghostscript found: $gs";
}
else {
  warn "ghostscript not found";
}

When C++ is your hammer, every problem looks like your thumb.