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_R
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
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()) {
On Jan 22, david said:
>> @data_ = map { (my $copy = $_) =~ s/^ //; $copy } @data;
>
>s/^ // for(@data_ = @data);
Sigh. I usually do that. I was a little slow on the idiom-uptake.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http:
Jeff 'Japhy' Pinyan wrote:
>
> If you DON'T want that, you'd have to do:
>
> for (@data) {
> (my $copy = $_) =~ s/^ //;
> push @data_, $copy;
> }
>
> Or something to that effect. Here's a one-liner:
>
> @data_ = map { (my $copy = $_) =~ s/^ //; $copy } @data;
>
a bit shorter:
Frank Wiles wrote:
> .--[ Jerry Preston wrote (2003/01/22 at 11:59:14) ]-- |
> | I am looking for a better way, a perl way for the following: |
> | foreach ( @data ) ) {
> |s/^ //;
> |
.--[ Jerry Preston wrote (2003/01/22 at 11:59:14) ]--
|
| I am looking for a better way, a perl way for the following:
|
| foreach ( @data ) ) {
|s/^ //;
|$data_[ $jp++ ] = $_;
| }
|
`-
I&#
On Jan 22, Jerry Preston said:
>I am looking for a better way, a perl way for the following:
>
>foreach ( @data ) ) {
> s/^ //;
> $data_[ $jp++ ] = $_;
>}
You do realize that you're modifying the elements in @data as well, right?
So that, unless $jp sta
I am looking for a better way, a perl way for the following:
foreach ( @data ) ) {
s/^ //;
$data_[ $jp++ ] = $_;
}
I have seen a one liner using while, but I do not remember.
Thanks,
Jerry
10 matches
Mail list logo
