in reply to X10 and Windows

You might want to get and print the results of the system() command. This is relativly easy and could shed a whole lot of light on what is or is not happening.

"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!

Replies are listed 'Best First'.
Re: Re: X10 and Windows
by Anonymous Monk on Aug 06, 2002 at 01:55 UTC
    It seems to be printing the command correctly before the system call, but nothing ever appears after I call 'system($command)' I'm lost!
[reply]
      You could try calling system() like this:
      system($command) == 0 or warn "System call failed with error # $?";

      [download]
      Or try using backticks:
      print `$command`;

      [download]
      Between the two you hopefully should get something useful for diagnostics.
[reply]
[d/l]
[select]
      Try this:
      my @test = system($command) ;
print @test ;

      [download]

      This will give you the command output. Example:
      #!/usr/bin/perl -w
use strict ;
my @test = system("dir") ;
print @test ;

      [download]

      Will give you:
       Volume in drive E is E_Drive
 Volume Serial Number is XXXX-XXXX

 Directory of E:\TempCode\test

08/06/2002  11:05a      <DIR>          .
08/06/2002  11:05a      <DIR>          ..
08/06/2002  11:05a               1,336 systemCommand.pl
               1 File(s)          1,336 bytes
               2 Dir(s)   1,629,966,336 bytes free
0

      [download]
      While:
      #!/usr/bin/perl -w
use strict ;
my @test = system("dirt") ;
print @test ;

      [download]

      Will give you:
      'dirt' is not recognized as an internal or external command,
operable program or batch file.
256

      [download]
      This should be usefull in at least telling you if the command is being executed and what the results are.

      "Nothing is sure but death and taxes" I say combine the two and its death to all taxes!
[reply]
[d/l]
[select]
        Thanks, This was helpful, but unfortunatley it returned the number '256' Anyone have anyidea what that relates to? Thanks
[reply]

In Section Seekers of Perl Wisdom