Re: Handling blank lines in while() construct

[WC -Sx- Jones]

Michael Weber wrote:

open (CONF, $ARGV[0]) || die "Can't open config file $ARGV[0], $!\n";

while (<CONF>) {
while(<CONF>) {
    chomp;
    s/^\s+//;
    s/\s+$//;
    next unless length;
...

        @conf_line=split(",");


As far as this:

"$yellow")}
        elsif ( $conf_line[1] =~ "blue" ) {push(@color_array,
Why not just:

sub push_Colors() {
        my $color = shift;
        push(@color_array,$color)
}
Called like:

push_Colors($conf_line[1]);

Unless of course your data input just has a color embedded:
sometextcolorredorbluebutwhoknows...
HTH;
-Bill-
__Sx__________________________________________
http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>