I have an issue with a PERL5 script that calls MQCONN. I get this error on this Perl step when connecting to my Q manager: "Undefined Undefined subroutine &main::MQCONN called at ./quelog.pl "
I use this code:
In my .profile:
where I have my MQseries, MQCLIENT and MQSERVER. Please help !
Perl Version = perl 5, version 16, subversion 1 (v5.16.1) built for i686-linux-thread-multi
Linux OS: Red Hat 6.5
---------- Post updated at 06:05 PM ---------- Previous update was at 12:00 PM ----------
Iam new to shellscript.
1)How to strart QUERYMANAGER using shellscript.
2)How to put and get messages in MQSeries using shellscripts.
3)iam using local queues .
Thanks lot. (0 Replies)
hi
one perl issue i have xml file with 2 values and one condition b.w them
<rule>
<val1>12</val1>
<cond>and</cond>
<val2>13</val2>
</rule>
i read these values in hash in perl code
$one{val1} = 12
$one{cond} = and
$one{val2} = 13
now i want to form... (3 Replies)
Please help me with my script please. I am trying to do the following:
1. Read files for the current directory
2. Open and read from nbe files files only
3. Read only the lines with the results pattern
4. Split the line and print 3rd field
Please indicate what line I need to modify. ... (8 Replies)
Hi,
I got this script from the web, this generates an LDAP report in CSV format.
#!/usr/bin/perl
#
# Copyright (c) 2004
# Ali Onur Cinar &060;cinar&064;zdo.com&062;
#
# License:
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for... (23 Replies)
Hi,
I am trying to connect to a queue manager, but I am not able to use the MQCONN command . If anyone have sample program , please help
thanks in davance
Satya (2 Replies)
Hello. I've been writing some code in Perl to read in strings from html files and have been having issues. In the html file, each "paragraph" is a certain file on the website. I need to find every one of the files that is a certain type, in this case, having green color....therefore... (7 Replies)
Hi Team,
the Following program execute with out error but the out is not save with create2.txt. kindly help me!!!
print "Enter your Number \n";
my $name = <STDIN>;
if ($name =="*91111*")
{
@dirlist1 = `wc -l $name > create2.txt`;
}
else {print "do not match";} (3 Replies)
I am getting a out of memory issue while executing the perl program.
Per version : /opt/acc_perl/lib/site_perl/5.14.2
Read in 54973 total records
Read in 54973 table records from table.
Out of memory!
so the job get failed due to out of memory. need to get rid of the out of memory... (3 Replies)
I have a perl that is sending emails in a bad format:
"begin 644 Included.doc
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BH*4U5#0T534T953"!-1$XG<R!F;W(@07)C:&EV92!022`M
M($-A;F-E;`HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ... (1 Reply)
Discussion started by: mrn6430
1 Replies
LEARN ABOUT DEBIAN
filesys::diskspace
Filesys::DiskSpace(3pm) User Contributed Perl Documentation Filesys::DiskSpace(3pm)NAME
Filesys::DiskSpace - Perl df
SYNOPSIS
use Filesys::DiskSpace;
($fs_type, $fs_desc, $used, $avail, $fused, $favail) = df $dir;
DESCRIPTION
This routine displays information on a file system such as its type, the amount of disk space occupied, the total disk space and the number
of inodes. It tries "syscall(SYS_statfs)" and "syscall(SYS_statvfs)" in several ways. If all fails, it "croak"s.
OPTIONS
$fs_type
[number] type of the filesystem.
$fs_desc
[string] description of this fs.
$used
[number] size used (in Kb).
$avail
[number] size available (in Kb).
$ffree
[number] free inodes.
$fused
[number] inodes used.
Installation
See the INSTALL file.
COPYRIGHT
Copyright (c) 1996-1999 Fabien Tassin. All rights reserved. This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
AUTHOR
Fabien Tassin <fta+cpan@sofaraway.org>
NOTES
This module was formerly called File::Df. It has been renamed into Filesys::DiskSpace. It could have be Filesys::Df but unfortunatly
another module created in the meantime uses this name.
Tested with Perl 5.003 under these systems :
- Solaris 2.[4/5]
- SunOS 4.1.[2/3/4]
- HP-UX 9.05, 10.[1/20] (see below)
- OSF1 3.2, 4.0
- Linux 2.0.*, 2.2.*
Note for HP-UX users :
if you obtain this message :
"Undefined subroutine &main::SYS_statfs called at Filesys/DiskSpace.pm
line XXX" and if you are using a hp9000s700, then edit the syscall.ph file
(in the Perl lib tree) and copy the line containing "SYS_statfs {196;}"
outside the "if (defined &__hp9000s800)" block (around line 356).
perl v5.14.2 2012-04-12 Filesys::DiskSpace(3pm)