If two Queues have the exact same Channel Name,Host Name,Port Number,Queue Manager except for the Queue Name,
and an incoming message comes in and there is an issue with Queue Name1, because everything is the same including
the port number is it possible that the message will write to Queue...
I'm trying to read only files in a directory. I have tried the code below but still having issues. Any suggestions?
#### Need to keep this code unchanged
opendir DIR, "Whatever/path";
@files=grep { !/^\.+$/ } readdir(DIR);
closedir DIR;
####Need to return only files in code shown below. I have...
I'm trying to:
1. Get the total bytes of a string.
2. Remove the last 20 bytes of that string
3. Set what is left over to a string.
So far I have only # 1? does anyone know how to do this?
I'm trying to look for files that contain and ".". If so replace "." with * (wilcard) and remove all text after it.
for example if I have:
INPUT:
FileName1.Doc
FileName2.xls
FileName3.txt
OUTPUT:
FileName1*
FileName2*
FileName3*
Any Ideas on how I can do this?
Thanks in Advance.
This is what I have.
Perl Module:
#!/usr/bin/perl
use lib "/usr/tmhp/data/bin/scripts";
package Test;
use TMH;
use strict;
use DBI;
sub connect_dev_app ()
{
my $dbname = 'DBI:Oracle:TMHT2';
my $user = 'xxx';
my $password = 'xxx';
my $dbh;
$dbh =...
I'm trying to parse each path that is found between: /usr/ AND /tape/
while ignoring the case.
1. /usr/tmhp/data/mark/Erco/from_Erco/archive/tape/501046515504800.x12
2. /usr/ltmhprod/data/GIS/MorganS/From_MorganS/Archive/tape/5010465155048.x12
3...
Hi,
How do I format $FILE_TS (01-JAN-05) to look like: 01/01/2005 13:36:27
Currently I tried: $FILE_TS = sprintf("%02d/%02d/%04d %02d:%02d:%02d",($tm->mon)+1,$tm->mday,($tm->year)+1900,$tm->hour,$tm->min,$tm->sec);
Printing: 05/17/2005 13:36:27
Format is what I want but it's giving today's...
I'm trying to write the output of the TSM stdout and TSM stderr into an array. I've only been able to write my output to a file. Any suggestions?
This is how I wrote it to a file.
system("$TSM_COMMAND 1>TSM_Output.stdout 2>TSM_Output.stderr");
I'm trying to get the timestamp of a file in a directory.
When I run the code shown below I get the following result.
Last change: Time::tm=ARRAY(0x200b6064)
How can I get the this format as my Result?
Last change: 2004111622
#!/usr/bin/perl
use Time::localtime;
$tm = localtime...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.