Ooo..kay.
Purpose: generating an HTML page based on the user name.
Method:
I got this array of hashes.
Each element of the array corresponding to one HTML table row.
Based on the ( $album[$i] {'access'} -> {$user} ) a row is or is not printed.
I got 26 rows.
A sample hash element:
Code:
    { 
        url => "http://picasaweb.google.com/yitzchokGood/NatureStills", name => "Nature/Still", size => 54,
        status => "c", location => "N/A", created => "?", modified => "?",
        access => { master => true, nathan => true, every => true}, account => "ygood"
    },
The code all works except that the output is stopping in middle of nowhere.
Um. The output code:
Code:
...
for ( $i = 1; $i <= @album; $i++) {
    if ( $album[$i] {'access'} -> {$user} ) {
        print qq~
            <TR>
            <TD><a target="content" href="$album[$i]{'url'}">$album[$i]{'name'}</a></TD>
            <TD>$album[$i]{'size'}</TD>
            
        ~;
        if ( $album[$i]{'status'} eq 'o' ) {
            print "<TD><B>Open</B></TD>";
        } else {
            print "<TD>Closed</TD>";
        }
        print qq~
            <TD>$album[$i]{'location'}</TD>
            <TD>$album[$i]{'created'}</TD>
            <TD>$album[$i]{'modified'}</TD>
            <TD>$album[$i]{'account'}</TD>
        ~;
        if ( $user eq "master" ) {
#            if ( $album[$i] {'access'} -> {"public"} ) {
#                print '<td style="text-align: center;">X</td>';
#            } else {
#                print '<td style="text-align: center;">&nbsp;</td>';
#            }
            if ( $album[$i] {'access'} -> {"every"} ) {
                print '<td style="text-align: center;">X</td>';
            } else {
                print '<td style="text-align: center;">&nbsp;</td>';
            }
            if ( $album[$i] {'access'} -> {"nathan"} ) {
                print '<td style="text-align: center;">X</td>';
            } else {
                print '<td style="text-align: center;">&nbsp;</td>';
            }
        }
        print "</tr>";
    }
}
Anyhow, I'd get ~15-20 rows then it will cut off mid string literal.
Code:
...
<td style="text-align: center;">X</td><td style="text-align: center;">X</td></tr>
            <TOut of memory!
R>
            <TD><a...
(Line 205)
And it also ends the output a bit early.
What's going on?