Search Results

If you want to list all files matching the pattern under /etl/PDAC/CBA/Supplier/, use the following script:
#!/usr/bin/perl
use strict;
use warnings;
opendir(DIR, "/etl/PDAC/CBA/Supplier/") or...

It seems a common misconception that there's a Specific Way®©™ to do things in a computer language and you can find all the answers by googling "how do I do X in perl". It really doesn't work that...

Try:#!/usr/bin/perl
chomp($d=`date +%Y%m%d%H:%M_%p`);
open F,">XYZ_$d.txt";
print F "A,B,C,D,E\n";

Once you successfully load the file make tar of that file and move to your archive directory and if this is successful then remove original file(if required) as below.
tar -cvzf fileA.tar.gz fileA...

Try this,

$filepattern = '^\d{1,4}.*\.A0NW9693\.NDM.\HBIDT\.*\.AD34XADJ\.txt';

opendir ( IDIR, $inputdirectories) || die "Error in opening dir\n";
while( ($file = readdir(IDIR))){
if...

I should think so.

Just add

zx01211.PDAC_UPDATE_ALLOW_DENY_SERV;

before the closing /, or

execute zx01211.PDAC_UPDATE_ALLOW_DENY_SERV;

after it.

If you just want to execute without...

Yes, and logically, if you get not 0 or 2, something is amiss, so you might want to structure error handling like this:

case $rc in
(0)
Success processing . . . .
;;
(2)
Warning...

I don't remember you posting what Shell you are using but it seems to be one which supports "==".

Without trying to understand more random code in depth, you may need to look at the "man" page for...

Hi.

Your first for loop is completely unnecessary. Remove it.

And you could change:

"${logfile}" | uuencode "${attachment}"

to

uuencode "$logfile "$attachment"

(the point of this...

RULES OF THE UNIX AND LINUX FORUMS

For the latest version of the community rules (the official community rules page), please visit here. (https://www.unix.com/misc.php?do=cfrules)


No flames,...