Jürgen, GUNREBEN, PETER (Peter) schrieb:
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; } ============================
... es gibt wirklich schon etwas Fertiges: http://search.cpan.org/src/PEREINAR/File-Which-0.05/Which.pm Gruss, Peter. -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org