Re: Lost arrays

Are you sure your arrays are "missing". When I run your code on my machine, it produces output (names and values padded and seperated by ':'). BTW, if all you want to do is add some format to these lines, there are much less convoluted solutions than the one you give above:

Use formats

Use pack:

use strict;
open INPUT, "<version.txt" or die "Blerch: $!\n";
while (<INPUT>) {                     # read a line of input
  my @contents=split /\s+/;           # Split on whitespace
  print join ":",
          (pack("A10",$contents[0]), # Name, padded to 10 width
          pack("A5",$contents[1]),  # version, padded to 5 width
          "\n");
}
__END__
Nameone   :100  :
Nametwo   :110  :
Namethree :120  :
[download]

CU
Robartes-

Comment on Re: Lost arrays Download Code

Replies are listed 'Best First'.
Re: Re: Lost arrays by BrowserUk (Patriarch) on Dec 02, 2002 at 13:33 UTC
Even easier is to use printf. #! perl -slw use strict; my (@names, @numbers); while (<DATA>) { chomp; my ($name, $number) = split' '; push @names, $name; push @numbers, $number } # right justified printf "%10s : %8d\n", $names[$_], $numbers[$_] for 0 .. $#names; print ''; # left justified printf "%-10s : %-8d\n", $names[$_], $numbers[$_] for 0 .. $#names; print ''; # strings left justified, numbers right justified printf "%-10s : %8d\n", $names[$_], $numbers[$_] for 0 .. $#names; print ''; __DATA__ nameone 101 nametwo 123456 namethree 1234567 C:\test>216893 nameone : 101 nametwo : 123456 namethree : 1234567 nameone : 101 nametwo : 123456 namethree : 1234567 nameone : 101 nametwo : 123456 namethree : 1234567 [download] Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color. Pick up your cloud down the end and "Yes" if you get allocated a grey one they *are* a bit damp under foot, but someone has to get them. Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory. Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Lost arrays
by BrowserUk (Patriarch) on Dec 02, 2002 at 13:33 UTC

Even easier is to use printf.

#! perl -slw
use strict;

my (@names, @numbers);

while (<DATA>) {
    chomp;
    my ($name, $number) = split' ';
    push @names, $name;
    push @numbers, $number
}
# right justified
printf "%10s : %8d\n", $names[$_], $numbers[$_] for 0 .. $#names;
print '';

# left justified
printf "%-10s : %-8d\n", $names[$_], $numbers[$_] for 0 .. $#names;
print '';

# strings left justified, numbers right justified
printf "%-10s : %8d\n", $names[$_], $numbers[$_] for 0 .. $#names;
print '';

__DATA__
nameone 101
nametwo 123456
namethree 1234567

C:\test>216893
   nameone :      101
   nametwo :   123456
 namethree :  1234567

nameone    : 101
nametwo    : 123456
namethree  : 1234567

nameone    :      101
nametwo    :   123456
namethree  :  1234567
[download]

Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

[reply]
[d/l]