and getting there contents which are numbers and ranking them in order highest first, here is the code... thx!/hits/[all the id files].txt
Thanks you!!!!#!/usr/bin/perl print "Content-type:text/html\n\n"; open(USERS,"members.txt"); while(<USERS>){ chomp; my($user,$email) = split(/\|/); open(USR,"$user.txt") or next; $USR = <USR>; close(USR); ($username,$sitename,$url,$email,$button,$desc,$hits) = split(/\|/, + $USR); $rank{$username} = { 'url' => $url, 'email' => $email, 'button' => $button, 'desc' => $desc, 'hits' => $hits, 'sitename' => $sitename, 'user' => $username, }; } print <<EOF; <font face="verdana" color="black"> <table COLS=5 WIDTH=\"75%\" border=\"1\" bordercolor=\"black\" cellSpa +cing=\"0\" cellPadding=\"0\" align=\"center\"> <tr bgcolor="#000080"> <td><b><font face=\"verdana\" color=\"white\"><center>Site</center></f +ont></b></td> <td><b><font face=\"verdana\" color=\"white\"><center>button</center>< +/font></b></td> <td><b><font face=\"verdana\" color=\"white\"><center> Hits </center>< +/font></b></td> </tr> EOF for(sort {$rank{$b}{hits} <=> $rank{$a}{hits}} keys %rank){ print "<tr><td><a href=\"".$rank{$_}{url}."\"><center><b>". $rank{$_}{sitename}."</b></a><br><font face=\"verdana\" size=\"1\"> +<b>$rank{$_}{desc}</b></font><td width=\"88\"><img height=\"31\" widt +h=\"88\" src=\"".$rank{$_}{button}. "\" width=\"88\" height\"31\"></td><td><center>".$rank{$_}{hits}."< +/center></td></tr>\n"; }
In reply to erm... I need help! by perlcoder
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |