I am not using the print command, I am using the
report format = tool
like this
format DetailReport1 =
@<<<<<<<<<<<<<<<<<<< @<<<<<<< @<<<<<<<<< @<<<<<< @<<<<<<< @<<<
$rpt_pick_idid, $rpt_wskuskuskuid, $rpt_from_load, $rpt_from_locname, $rpt_planned_destinationname, $rpt_qty
I...
Is it possible to omit fields when they are repeated?
e.g.
---------------------------------------------------------
name lastname debit credit
Peter Smith $12.00 $14.11
$11.11 $05.11
John Doe $07.22 $07.11
Bill Doewn $01.22...
I am not sure where to start on this one
I wrote a PM file that looks after logging of all activity taking place with the main application.
code
---------------------------------------------------------
$finalTime= (localtime(time))[2] . ":" . (localtime(time))[1] . ":" ...
I am using the split function to load an array,
some of the records will split in 2 others only once
if it splits in 2 I need to only keep the 2 record but if it splits once, I keep the 1st record. The problem that I ran into is when the second element [1] in the array is empty, I get an...
I need some help with this "string match"
( $ans_quantity !~ /^[0-9]{3}d/)
what I am trying to do is for the user to enter a min of 1 numeric digit and not more that 3 numeric digits (not allowing alpha numeric characters)
thank you...
Veteq
Sorry, I didn't post the correct line of code....
open (FILEOUT, ">> $WD_LOGDIR/progfile.log") or die "not foun...";
the $WD_LOGDIR is a shell specified location and varies from machine to machine...I need to get the linux value into perl and use that value in the open file path.....
I am kinda confused on this one...(I am new to perl)
in linux I use a variable to hold the location of the log files
$WD_LOGDIR = /var/log/WS
when I try to incorporate this variable to the open command, it creates a file in the "current location" that included the path name.
open (FILEOUT...
Sorry about that,
I am connecting to an Oracle db and retrieving the data through a Select stmt
This is how the code is looking but I am looking for a better way to do it
my $sth = $dbh->prepare('select OPID, PASSWD, EMPNUM from EMPINFO')...
while (@data = $sth->fetchrow_array())
{
$usrloadid = $data[0];
$usrwsku = $data[1];
$usrlocation = $data[2];
@keeper[$kounter]=$usrloadid;
$kounter +=1;
};
I managed to load the data to an array this way but there must be a...
I am retrieving data from a remote database....
Code:____________________________________________________
while (@data = $sth->fetchrow_array())
{
print "@data[0]\t\t@data[1]\t\t@data[2]\n";
}
_________________________________________________________
this is the code and it works...
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.