Am Montag, 20. November 2006 14:07 schrieb GUNREBEN, PETER (Peter):
Jürgen,
Dr. Jürgen Vollmer schrieb:
Dr. Jürgen Vollmer schrieb:
ich stehe gerade vor der Frage, wie ich in einem perl-Script feststellen kann, ob ein anderes Programm, welches ich aufrufen möchte auch exisitiert.
if( -x $MYPROG ) { print "$MYPROG is executable\n"; }
muß man da aber nicht bereits den vollständigen Pfad kennen? (und den kenn' ich ja gerade nicht),
Sorry, da hatte ich Deine Frage nicht vollstaendig verstanden. Ich koennte mir das so vorstellen:
============================ use File::Spec;
my $search = "ls";
if(findProg($search)) { print "$search found\n"; }
sub findProg { my $myprog = shift; foreach (File::Spec->path()) { my $p = File::Spec->catfile($_, $myprog); return($p) if (-x $p); } return; } ============================
Danke, das hab' ich gesucht. Bye Jürgen -- Dr.rer.nat. Juergen Vollmer, Viktoriastrasse 15, D-76133 Karlsruhe Tel: +49(721) 92 04 87 1 Fax: +49(721) 92 04 87 2 Juergen.Vollmer@informatik-vollmer.de www.informatik-vollmer.de Internet-Telefonie: www.skype.com Benutzer: juergen.vollmer