Re: Align Text

[James Edward Gray II]

On Dec 23, 2003, at 11:29 PM, Bill Jastram wrote:

Yes, this helps tremendously. Actually, your suggestions helped me 
make,
what for me is, a quantum leap in the use of Perl.
Good news.  Always happy to help.

I am stuck, however, on the loop you suggested to output the processed
@col arrays. I understand how you loaded them. And that, apparently, 
they
are ready to be output. But the closest I've come getting anything out 
of
them is the following:
Well, let's see if we can come up with something...

#!/usr/bin/perl

# use with:
# perl jamescolumnsample testing.txt
use strict;
use warnings;
#open CON, 'testing.txt' or die "File error:  $!";

#my @CON = <CON> ;

my(@col1, @col2, @col3);

my $col = 1;
while (<>) {
I forgot to remove the newlines here and we probably should:

	chomp;

        if ($col == 1) { push @col1, $_ }
        elsif ($col == 2) { push @col2, $_ }
        else {
                push @col3, $_;
                $col = 1;
                next;
        }
        $col++;
}
# that should load @col1, @col2 and @col3
# can you come up with an output loop for them that goes here?
# col1 will be the last to empty, so loop until it's gone
while (@col1) {
        my(@names, @addresses, @cities);        # make lists for the output lines
        # fill those lists
        foreach (shift(@col1), shift(@col2), shift(@col3)) {
                next unless defined $_;
                my($first, $last, $address, $city, $state, $zip) = split /\t/, $_;
                push @names, "$first $last";
                push @addresses, $address;
                push @cities, "$city, $state  $zip";
        }
        # print one row of contacts
        foreach ([EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]) {
                printf join(' ', ('%-30s') x scalar(@$_)) . "\n", @$_;
        }
        print "\n" if @col1;  # add a separator
}       # rinse, repeat...
__END__

Unfortunately, I'm not where I can test code this morning, so I'll have 
to just hope that works.  Let me know if I made a mistake though and 
I'll fix it as soon as I'm back at a compiler.

Hope that helps you along, Bill.  Keep working at it.

James

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>