Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. Newbee21369

    MQ Messages redirected to wrong queue

    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...
  2. Newbee21369

    Read only Files in a Directory

    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...
  3. Newbee21369

    How do I remove the last 20 bytes from a string?

    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?
  4. Newbee21369

    String Replacement

    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.
  5. Newbee21369

    How do I call a subroutine with in Perl Module?

    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 =...
  6. Newbee21369

    Parsing Question

    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...
  7. Newbee21369

    Formatting Dates

    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...
  8. Newbee21369

    How do you use a variable from 1 SubRoutine to be used in another?

    I was trying to use a variable that was returned in Subroutine 1 to be used in Subroutine 2? Does anyone know how this can be done? Thanks in Advance!
  9. Newbee21369

    Execute 3 external server scripts at once

    I was wanting to execute no more than 3 external scripts simultanously.. would it be best to use the fork or the system command? Thanks!
  10. Newbee21369

    How do I output TSM error information into an array?

    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");
  11. Newbee21369

    Get file's timestamp in a directory

    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...

Part and Inventory Search

Back
Top