UBB.Developers Forums Community Development Programming PHP and Server-side Scripting Regular Expressions

opendir(UPLOADS, "$opt{dir}/$user_number");
my @uploads = readdir(UPLOADS);
closedir(UPLOADS);
my @files = <*.txt>; # all txt in current dir
my $stat;
foreach my $file (@files) {
	$stat = stat $file or die "Error: $!";

	##output it

	print qq(
	<tr valign="top">
	<td bgcolor="$vars_style{AltColumnColor2}" align="center" width="20"><input type="checkbox" name="$key" value="include" checked="checked" /></td>
	<td bgcolor="$vars_style{AltColumnColor2}"><b><font size="$vars_style{FDTextSize}">$filename</font></b></td>
	<td bgcolor="$vars_style{AltColumnColor2}" align="center" valign="middle">$size</td>
	<td bgcolor="$vars_style{AltColumnColor2}" align="center" valign="middle">$mtime</td>
	</tr>
	);
}