system call how-to

elsiddik has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: system call how-to by shmem (Chancellor) on May 01, 2007 at 10:42 UTC
In your shell script, you build a list of files and strip off the directory part of each file with `basename`, whereas in your perl snippet you simply pass the string `/urs/bin/` directly to whatis. Not quite the same, is it? For `basename` in perl, see File::Basename. `whatis` doesn't work with the full path to a binary. Since you invoke system with a list (as opposed to: with a string containing whitespace), no shell is involved, so `/usr/bin/` is not even expanded. --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l] [select]
Re: system call how-to by akho (Hermit) on May 01, 2007 at 10:42 UTC
Doesn't `whatis /usr/bin/` do the same thing your script does? Why do you need it then? Is it a part of a larger script? AFAIK, `system` does not interpolate wildcards; that means does not work. You can write an explicit glob: `$files = join ' ', glob '/usr/bin/*'; system "whatis $files";` [download]	[reply] [d/l] [select]
Re: system call how-to by elsiddik (Scribe) on May 01, 2007 at 11:56 UTC
now im i managed to use File::Basename. with this code `#!/usr/bin/perl -w use strict; use warnings; use File::Basename; my $path = "/usr/bin/*"; my $files = basename($path); my $dir = dirname($path); print "dir is $dir , files is $files\n"; system "whatis $path";` [download] the output of `$files` is listening all files in the directory - so far so good , but im still stuck with the same problem - the script is not giving me the real `whatis` command Output. any idea?	[reply] [d/l] [select]
Re^2: system call how-to by cdarke (Prior) on May 01, 2007 at 16:40 UTC
Check that whatis exists in your Bourne shell. It could be an old version that does not have it (system uses the Bourne shell on UNIX by default). Check the return value, or $?. If you want to capture the output in Perl, maybe you should be using qx (or back-ticks) instead?	[reply]
Re: system call how-to by elsiddik (Scribe) on May 01, 2007 at 11:04 UTC
well `$files = join ' ', glob '/usr/bin/'; system "whatis $files";` [download] gave me the same results so far - and `perl -e 'chdir shift \|\| "/usr/bin"; system whatis => <>` ended up with `whatis : unknown option.` ill give basename a shot - maybe it helps	[reply] [d/l] [select]
Re^2: system call how-to by naikonta (Curate) on May 01, 2007 at 12:40 UTC
Yikes! Where did my parentheses go? So sorry elsiddik, it's really supposed to be: `perl -e 'chdir (shift \|\| "/usr/bin"); system whatis => <>'` [download] as long as one-liner is concerned. The `chdir` functions takes higher precedence than the logical OR (`\|\|`) operator. The truth is, I added the `shift \|\|` part later on the textbox without retesting. My fault, my fault.... shmem privately messaged me correcting my answer, and suggested me to have some coffee. But I think I need more than that, perhaps taking a fresh bath :D Thanks, shmem :-) Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!*	[reply] [d/l] [select]
Re: system call how-to by Moron (Curate) on May 01, 2007 at 13:21 UTC
The first example seems a bit long-winded already in bash and could be improved to: `ls /usr/bin \| xargs whatis` [download] It didn't look like a worthwhile goal anyway to just use perl -e to system() back to the shell. I'd try something that can be done without the system() call, e.g. counting the number of lines in each file. __________________________________________________________________________________ ^M Free your mind!	[reply] [d/l]
Re: system call how-to by naikonta (Curate) on May 01, 2007 at 10:44 UTC
How about, ~~`perl -e 'system whatis => </usr/bin/>'`~~ Gleh, that's what could happen if you just woke up and tried to do something before your mind was completely clear :-) I mean this, `$ perl -e 'chdir shift \|\| "/usr/bin"; system whatis => <>'` [download] No wonder the first code gave me strange output :D Update: fixed the snip, and added this update note. Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!	[reply] [d/l] [select]
Re: system call how-to by Anonymous Monk on May 01, 2007 at 21:29 UTC
thx naikonta this `perl -e 'chdir (shift \|\| "/usr/bin"); system whatis => <*>'` works the way i want it :) cheers.	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks