I think part of it is that chomp is the wrong command

That's not it. You use the whole array to build the file name instead of just one element of it.
open my $fh, "<", "$wrestlerdir/@lines.total"
should be
open my $fh, "<", "$wrestlerdir/$test.total"

Unrelated,
chop(@lines); foreach my $str (@lines) { chomp(@lines); }
should be
chomp(@lines);

$ perl -wl
use strict;
my $dir = q{.};
opendir(DH, $dir) || die "can't opendir $dir: $!";
my %filesize = map { -s "$dir/$_" => $_ } readdir(DH);
closedir DH;
print "$filesize{$_} : $_" for(sort {$b <=> $a} keys %filesize);
__END__
[download]

Hi ewexperts,

Change

my @lines = <FILE>;

chop(@lines);

  foreach my $str (@lines) {
    chomp(@lines);
  }
[download]

#!/usr/local/bin/perl
use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;

my $wrestlerdir = '/home/ewexpert/public_html/rosterrank';

open(FILE, "$wrestlerdir/wrestlerlist.txt");
    my @lines = <FILE>;
    chomp (@lines = <FILE>);

close(FILE);

foreach my $test (@lines) {
open my $fh, "<", "$wrestlerdir/$test.total" or die "Can't open @lines
+.total $!";
my @total = <$fh>;
}
print header, start_html('Rankings: '), (@lines), end_html;
[download]

example: blackdeath.total and dandelion.total


The Text File: 

Black Death   #check the space
Jesse Gunn
The Crimson Shadow
Ariana London
Legion
Scorpio
Greg Manix
[download]


I doubt that in the file where you are reading the file names is having space and in the file names which you have given in example doesn't have space. So you check that.

Also In the below code, first line is not necessary.
change

    my @lines = <FILE>;
    chomp (@lines = <FILE>);
[download]

into



chomp (@lines = <FILE>);
[download]

Prasad

Given the assumption of homework...

#!/usr/local/bin/perl
use strict;
use warnings;

use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;
[download]

Strict/warnings: good habit to start with. Also, good to use "standard", tested modules (CGI, CGI::Carp) rather than re-inventing wheel.

my $wrestlerdir = '/home/ewexpert/public_html/rosterrank';

open(FILE, "$wrestlerdir/wrestlerlist.txt");
    my @lines = <FILE>;
    chomp (@lines = <FILE>);

close(FILE);
[download]

As mentioned by the previous poster, the first @lines=<FILE> line is slurping all of your data, and then being overwritten. Use the second line. Additionally, the indenting between the open and close is a little misleading. I understand why you did it, but the structure implies that @lines may not be in scope after the close(), especially since it is being declared with my.

foreach my $test (@lines) {
open my $fh, "<", "$wrestlerdir/$test.total" or die "Can't open @lines
+.total $!";
my @total = <$fh>;
}
[download]

• The variable @total will be re-initialized for each file, and will go out of scope at the end of the loop
• Good use of the "3 argument version" of open. Safer than the form open my $fh, "<$data.txt"
• @total is slurping in the entire contents of the file. From your description, it sounds as if you only need to read the first line. Search this site for the difference between scalar and list context while doing a read.
• @total is not used anywhere other than to read the data from the file. See the first comment in this section. I am guessing it may help in this area :)

print header, start_html('Rankings: '), (@lines), end_html;
[download]

This is using "Rankings: " as the page title, and nothing more. You are then printing all of the contents of the list of files, without any HTML formatting (at least in this version of your program), and then the HTML terminator. See the previous set of comments, and the last respondent. I think they may go straight to the heart of the issues in your solution.

Good luck, and ask if you have any more questions on this.

--MidLifeXis

Is this, perchance, homework? The problem sounds very manufactured.

If it is homework, that is not a problem. Just tell us. We are willing to help. You have shown what you have done already, which is good.

BTW: welcome to the monastary.

Thanks for the input, guys. It's actually not homework, I'll explain further. And in fact, I may be way out of my league here in trying to do this.

I run a fantasy-wrestling website, of about 400-500 wrestlers, and until now I've been ranking them in an excel file, then manually grabbing the top 20 ranked wrestlers and placing them in a text file, to include on the front page. You can see it at http://www.ewexperts.com on the right side.

The great idea I had was to implement a script-based system, where my staff members can monitor matches and then submit updated stats, for me to review and either confirm or reject (to prevent cheating).

From this script, I would like the wrestler ranked (not by file-size as I think some people interpreted) but by largest-to-smallest based on the number that exists in each .total file.

I have the first script created already (the one where the stats are submitted into different files, example: (Jason Blade.wins, Jason Blade.losses, Jason Blade.total)

But, I think I might be out of my realm of capability on this one, because nothing I try seems to be working and so I'll probably look to hiring out for this one.

-Jesse
ewexperts@tmo.blackberry.net