system() on linux/win32

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

Replies are listed 'Best First'.
Re: system() on linux/win32 by dhable (Monk) on Apr 25, 2002 at 15:55 UTC
system returns a value of 0 when the command was successful. In your case, system returns 0 because it was successful so warn gets run. To solve the problem, check to see if the value is 0 like so: `system( $excel, $excelfilename) == 0 or warn ".....";` [download] This should produce the right results. See the perlfunc on system for more information.	[reply] [d/l]
Re: system() on linux/win32 by TheHobbit (Pilgrim) on Apr 25, 2002 at 16:33 UTC
Hi, doing `perldoc -f system` [download] you'll find that it is normal that the script blocks until the end of the execution of the command. If you want your script go on after launching the excel command, then you must do your own fork. Update: see this node about fork-ing on windows. Cheers Leo TheHobbit	[reply] [d/l]
Re: system() on linux/win32 by dree (Monsignor) on Apr 25, 2002 at 22:23 UTC
To open an excel file (.xls) on Win32, without blocking the script, try this: `use strict; use Win32::Shell; #Win32::Shell::Execute(Operation, File, Parameters, Directory, ShowCmd +) my $file="C:\\windows\\desktop\\file.xls"; Win32::Shell::Execute("open", "$file", 1, undef, "SW_SHOW");` [download] Update: added code tags, larsen	[reply] [d/l]
Re: Re: system() on linux/win32 by NaSe77 (Monk) on Apr 26, 2002 at 08:29 UTC
thanx fellow monk, rests only one little prob: i can't find win32::shell nither using ppm nor cherching the cpan nor using google .. can u give a link please? NaSe	[reply]
Re: Re: Re: system() on linux/win32 by dree (Monsignor) on Apr 26, 2002 at 12:29 UTC
Hello! With PPM I see: `PPM> search win32::shell Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserve +r.pl?urn:/ PPMServer: Win32-Shell [0.03] A simple extension for displaying Windows message b +oxes and` [download] So you can install it writing: `PPM>install Win32-Shell` [download] Another way is: to download the zip file from: http://www.activestate.com/PPMPackages/zips/6xx-builds-only/Win32-Shell.zip unpack it into a directory from a DOS shell cd into the directory, write: ppm install --location=. Win32-Shell	[reply] [d/l] [select]
Re: Re: Re: Re: system() on linux/win32 by Anonymous Monk on Apr 26, 2002 at 13:22 UTC
Re: system() on linux/win32 by Pedro Picasso (Sexton) on Apr 26, 2002 at 01:33 UTC
Ah HAH! You're trying to get Windows to spawn a child process. It'll never work!! ...But you can fake it. Long story short: `system("start " . $excel, $excelfilename);` If you want Perl to spawn your Excel process but keep on doing its jiggy Perl-thing, instead of calling Excel yourself, you should tell Windows to do it for you. This is done with the DOS "start" command. Try it out. Bring up a DOS prompt and enter "notepad". It'll come up normal. Close it and enter "start notepad". Same thing. Now here's the interesting part. Put this on the command line: `perl -e "system('notepad'); print 'NaSe77 rules!'"` This will bring up the notepad, but it won't tell you who rules until you close notepad. Finally try this: `perl -e "system('start notepad'); print 'NaSe77 rules the Kingdom of Notepad, baby!'"` The notepad is up, and the print statement functions right away. Instant fake fork. Ain't life grand? It took me a week and a half of looking for this on Perlmonks when I needed it. I can't remember where I found it, but props to mystery monk who originally posted this solution. -the Pedro Picasso (sourceCode == freeSpeech)	[reply] [d/l] [select]
Re: Re: system() on linux/win32 by blogan (Monk) on Apr 26, 2002 at 02:40 UTC
I believe when you use start you can just give it the filename and it will open it with the application that's associated with it.	[reply]
Re: Re: Re: system() on linux/win32 by robin (Chaplain) on Apr 26, 2002 at 10:12 UTC
Just for completeness in case someone comes here looking, it's worth mentioning that the equivalent command on OS X is `open`. Though of course OS X can do fork() properly.	[reply]


"be consistent"
	PerlMonks