#!/usr/bin/perl -w

use warnings;
use CGI qw(:standard *table);

# Location of screen/field description file
$screenflddescpath = "descriptions.txt";

open SCREENFLDDESC, $screenflddescpath
    or die "cannot find screen description file: $!";

while (<SCREENFLDDESC>) {
    chomp;
    ($key, $desc) = split /,/;
    $screenflddesc{$key} = $desc;
}

close SCREENFLDDESC;

# Location of index file we will write results to
$indexfile = ">screenindex.html";
open INDEX, $indexfile or die "cannot open index for writing: $!";

# Location of master GUI file
# $guipath = "Master.gui";
$guipath = "Master.gui.test";

open GUIFILE, $guipath or die "cannot find Master.gui: $!";

# Start our index file
print INDEX start_html("GUI Map Index"), "\n";
print INDEX h1("GUI Map Index"), "\n";
print INDEX "Click on a screen name below to go to its description pag
+e",
    br, "\n";
print INDEX hr, "\n";

# Flag to let us know if we're inside a description block
$desc = 0;

# Current file name
$currfile = "";

while (<GUIFILE>) {
    chomp;

    # print "Line: $_\n";

    # Outside description block with no ".": Screen name
    # (or quoted name without following ".")
    # (Regex was originally /^([^.]+):$/)

    if ($desc != 0 and /^(\w+):$/) { # this is where the warning is pr
+inted
        print "Screen name: $1\n";
        # etc...
[download]

Well, first off, I'm going to tell you to use strict. I noticed one place that makes maintenance hard (your dual use of $desc). Your code is almost strict as it is. Take the final step.

Secondly, are you sure that your line actually has stuff in it? Uncomment the print and see if it complains about an undefined variable being used ...

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

Please also post all the elsif() lines to that if(). I'd think there must be one, because there is no string concatanation in the if().

BTW: Warnings in elsif() conditions are reported with the line number of the if(). Nice to know...

Dragonchild: To your 2 points, I have now changed the script so that it passes use strict - still getting warnings. I have also ensured that the lines are coming back with data in it (105 lines in my test file, and I get 105 warnings).

Beechbone: Here are all the elsifs:

if (!$desc and /^(\w+):$/) {
  # ...
} elsif (/^\{$/) {
  # ...
} elsif (/^\}$/) {
  # ...
} elsif (!$desc and /^"?$screen"?\.(.+):/) {
  # ...
} elsif ($desc and /^\s*id:\s*(\d+)$/) {
  # ...
} else {
  # ...
}
[download]

As you can see, no concatenations in the elsifs, just a bunch of regexes. If you'd like, I can post the whole script, but I'll wait till someone says they want it. Thanks.