Re: Handling blank lines in while() construct

[James Edward Gray II]

On Mar 4, 2004, at 9:16 AM, Michael Weber wrote:

[snip background]

Here's the loop where I read in the config file:

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

while (<CONF>) {
Try adding:

	next if m/^\s*$/;

        @conf_line=split(",");

        push(@trigger_array, "$conf_line[0]");
        if ( $conf_line[1] =~ "red" ) {push(@color_array, "$red")}
        elsif ( $conf_line[1] =~ "yellow" ) {push(@color_array,
"$yellow")}
        elsif ( $conf_line[1] =~ "blue" ) {push(@color_array,
"$blue")}
        elsif ( $conf_line[1] =~ "green" ) {push(@color_array,
"$green")}
        elsif ( $conf_line[1] =~ "cyan" ) {push(@color_array,
"$cyan")}
        elsif ( $conf_line[1] =~ "purple" ) {push(@color_array,
"$purple")}
        elsif ( $conf_line[1] =~ "gray" ) {push(@color_array,
"$gray")}
        elsif ( $conf_line[1] =~ "ltred" ) {push(@color_array,
"$ltred")}
        elsif ( $conf_line[1] =~ "yellow" ) {push(@color_array,
"$yellow")}
        elsif ( $conf_line[1] =~ "ltblue" ) {push(@color_array,
"$ltblue")}
        elsif ( $conf_line[1] =~ "ltgreen" ) {push(@color_array,
"$ltgreen")}
        elsif ( $conf_line[1] =~ "ltcyan" ) {push(@color_array,
"$ltcyan")}
        elsif ( $conf_line[1] =~ "ltpurple" ) {push(@color_array,
"$ltpurple")}
        elsif ( $conf_line[1] =~ "white" ) {push(@color_array,
"$white")}
        elsif ( $conf_line[1] =~ "ltgray" ) {push(@color_array,
"$ltgray")}
        elsif ( $conf_line[1] =~ "beep" ) {push(@color_array,
"$beep")}
        else  {push(@color_array, "$white")}
}
close (CONF);
Hope that helps.

James

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