Jerry Preston wrote:
>
> Hi!
Hello,
> I am looking for way to reduce the following code, a better way, a perl
> way. Any ideas?
>
> while ( my ( $Site, $Description, $Part_Number, $Part_Serial_Number, $Qty,
> $RMA_Number, $Customer_Contac, $RMA_Date, $Part_Rec ) = $sth->fetchrow()) {
> # w
Look at the sprintf function. Please!
> # while ( $data ) = $sth->fetchrow()) {
> $l = length( $Site );
> if( $l != 5 ) {
> $s = substr( "", 0, 5 - $l );
> $Site .= $s;
> }
Does this do what you want?
$Site = sprintf '%-5s', $Site;
One liner:
C:\>perl -e"$S
Hi Jerry.
"Jerry Preston" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Hi!
>
> I am looking for way to reduce the following code, a better way, a
perl
> way. Any ideas?
I think you've been overlooked a little because your post looks
very much like a 'please do my work for me' p
Hi!
I am looking for way to reduce the following code, a better way, a perl
way. Any ideas?
while ( my ( $Site, $Description, $Part_Number, $Part_Serial_Number, $Qty,
$RMA_Number, $Customer_Contac, $RMA_Date, $Part_Rec ) = $sth->fetchrow()) {
# while ( $data ) = $sth->fetchrow()) {
$l =
