I'm sure it is with the array, but damn if i can figure it out! Where do i find the system error codes such as 9 or 255?
EDIT: ok, i ran the script with perl -w and this is what i received
Odd number of elements in hash assignment at retina.pl line 21, <DATA> line 3.
Win32::OLE(0.1707) error 0x80041021
after character 0 in "winmgmts:\\c:\list\hosts.txt
\root\CIMV2" at retina.pl line 30
eval {...} called at retina.pl line 30
WMI connection failed.
so basically, what i gather from this is that it may not even be connecting to the WMI service to begin with? And for some reason it is reading what is supposed to be a hostname as the literal filename and path. Am i on the right track here?
thank you
Last edited by caddyjoe77; 07-06-2007 at 08:00 AM..
Reason: ran with perl -w to report errors....wanted to update post instead of making a reply to me; answering yourself means insanity
Hi All,
I have one strange problem in perl script. Bellow is the contents of the script i am trying to write:
#!/usr/local/bin/perl
my $module_list = '';
my @running_module;
my $count=0;
my $flag=0;
my $ccprojecthome=$ENV{CCPROJECTHOME};
@module_list = `cat... (2 Replies)
hi,,
i have perl scipt with line :
system('./try.sh $t $d $m');
in shell scipt try.sh i have the line:
echo $1
its not printing value of $t that i hav passed..y is it so..i am running it from apache web server (2 Replies)
Hi,
Here is my piece of code.
#!/usr/bin/perl
my $logFile = $ARGV;
die "usage: $0 <logFile>" unless $logFile;
die "Logfile $logFile doesn't exist" unless -f "$logFile";
my %no_of_questions;
my %timestamp;
open (FP,"<$logFile") or die "unable to open file $!" ;
@records=<FP>;... (4 Replies)
Hi All
I have to modify a existing perl script
The context of the input txt file has changed
Basically I have to remove 4 lines from the top of the file and print a number
Of fields into another file and feed the out put back into the script. Now I’m doing this part manually ... (1 Reply)
I test this perl script on hpux 11.x and everything is OK, on hpux 10.20 it doesn't work
perl -e 'local($PSTAT,$PSTAT_STATIC,$mem_info,$PSTAT_STRUCT)=(239,2,"\0"x120,"LI4L");
syscall($PSTAT,$PSTAT_STATIC,$mem_info,length($mem_info),1,0);
print... (1 Reply)
Hi Perl Gurus,
I have a very simple problem.
This command perfectly runs in Unix Shell:
dlv_mng@hpp309:/delivery/dlv/dlv/dlv_mng> echo 7.5.1.2.25 | sed -n 's^\(.\).\(.\).\(.*\).\(.*\).\(.*\)^\1.\2^p'
7.5
However, when I run this inside a perl script, it fails.
... (1 Reply)
Hi!
I'm having a problem on AIX 5.3 I cant' seem to sort out.
A Perl script that was working has stopped for some reason.
Possibly and update or something seems to have broken it.
The error is below and any help would be appreciated!
Can't load... (2 Replies)
I made a perl script that will number the lines of program scripts with an extension asked by the user and will save them into a .txt file
My problem with the code is that for some reason it skips about every second line
Im currently using ms win7 with strawberry perl
heres the code so far... (0 Replies)
Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect.
Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is
redirected to welcome page.
My... (3 Replies)
hiii alll
i wrote a prgm which would take position and strand from file 1 and tries to locate a string 250 characters ahead/before that position in anothe file (based on strand 0 or 1)
open my $fhConditions, "<", "1.txt" or die "Epic Fail: $!";
open my $fhCharacters, "<", "2.txt" or die "OMG... (1 Reply)
Discussion started by: anurupa777
1 Replies
LEARN ABOUT DEBIAN
fusioninventory::agent::tools::win32
FusionInventory::Agent::Tools::Win32(3pm) User Contributed Perl Documentation FusionInventory::Agent::Tools::Win32(3pm)NAME
FusionInventory::Agent::Tools::Win32 - Windows generic functions
DESCRIPTION
This module provides some Windows-specific generic functions.
FUNCTIONS
is64bit()
Returns true if the OS is 64bit or false.
getLocalCodepage()
Returns the local codepage.
getWmiObjects(%params)
Returns the list of objects from given WMI class, with given properties, properly encoded.
moniker a WMI moniker (default: winmgmts:{impersonationLevel=impersonate,(security)}!//./)
class a WMI class
properties a list of WMI properties
encodeFromRegistry($string)
Ensure given registry content is properly encoded to utf-8.
getRegistryValue(%params)
Returns a value from the registry.
path a string in hive/key/value format
E.g: HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/ProductName
logger
getRegistryKey(%params)
Returns a key from the registry.
path a string in hive/key format
E.g: HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion
logger
runCommand(%params)
Returns a command in a Win32 Process
command the command to run
timeout a time in second, default is 3600*2
no_stderr ignore STDERR output, default is false =back
Return an array
exitcode the error code, 293 means a timeout occurred
fd a file descriptor on the output
perl v5.14.2 2012-06-25 FusionInventory::Agent::Tools::Win32(3pm)