Perl/CGI problemo

@files = <data/blogs/*>;
$i=$#files;
while ($i > $#files - 5 and $i >= 0) {
    $file = @files[$i];
    open F, "$file/blogdata" or die $!;

The folders are numbered 0, 1, 2 etc... however, it can only open the first 2 and otherwise breaks without output of any kind.

The file permissions are also exactly the same for each file/folder

It doesn't work because you didn't use code tags.

>>3
@files = <data/blogs/*>;
$i=$#files;
while ($i > $#files - 5 and $i >= 0) {
    $file = @files[$i];
    open F, "$file/blogdata" or die $!;

The folders are numbered 0, 1, 2 etc... however, it can only open the first 2 and otherwise breaks without output of any kind.

Now you've got text in your code. Terrible!

CGI? CGI?

Welcome to the 21st century! Please join us, the water is fine!

http://perldancer.org/
http://mojolicio.us/
Or at least use plack: http://plackperl.org/

Also:
Don't use global filehandles, use lexical vars. Don't use 2 arg open.

open my $anus, '<', '/enormous/penis'

Consider using autodie, so you won't need to check the return value of open

Also, wtf is while ($i > $#files - 5 and $i >= 0)? What is that supposed to do? Why wouldn't you just iterate for(@files)?

>>6
having to download and install extra bullshite just to write some data through an HTTP socket
Yeah, the 21st century sure is great.

>>6

#!/usr/bin/env perl
use Dancer;

get '/' => sub {
    "Hello World!"
};

dance;
lol is this some Sinatra on Perls I'd hit it