Announcement

**chrisvmarle** · Jun 20, 2002, 09:47 AM

I'm working on it

Here's what I got:

Code:

#!/usr/bin/perl

opendir(DIR,".");
@files = sort(grep(/\.php$/,readdir(DIR)));
closedir(DIR);

print "Content-type: text/html\n\n";

$all_data = "";
foreach $file (@files) {
	open(FILE,"$file") || die("Could not find $file. $!");
	@lines = <FILE>;
	close(FILE);
	foreach $line (@lines) {
		$line =~ s/\n/\<br\>/g; # optional
		$line =~ s/\</&lt;/g; # optional
		$all_data .= "$line";
	}
	$all_data .= "<br>";
}

print $all_data;

I hope it's useful to you.

Mzzl, Chris

**sir pannels** · Jun 20, 2002, 07:51 PM

hey thanks
gives an error tho/
the logs say file does not exsist ...this is not true or it would be 404...any ideas?

**chrisvmarle** · Jun 21, 2002, 02:15 AM

Oops, I tested it with my .php files 'cuz I didn't have any .txt files in my cgi-bin. And I found another little problem. Here is the new code, try this:

Code:

#!/usr/bin/perl

opendir(DIR,".");
@files = sort(grep(/\.[b]txt[/b]$/,readdir(DIR)));
closedir(DIR);

print "Content-type: text/html\n\n";

$all_data = "";
foreach $file (@files) {
	open(FILE,"$file") || die("Could not find $file. $!");
	@lines = <FILE>;
	close(FILE);
	foreach $line (@lines) {
		$line =~ s/\</&lt;/g; # optional
		$line =~ s/\n/\<br\>/g; # optional
		$all_data .= "$line";
	}
	$all_data .= "<br>";
}

print $all_data;

Mzzl, Chris

**sir pannels** · Jun 21, 2002, 04:04 AM

ok cool,
still does the same thing....im thinking it means the dir is missing...i cant see in there where the dir is? it looks like the dir is " . "

**chrisvmarle** · Jun 21, 2002, 08:26 AM

opendir(DIR,".");
"." is indeed the directory. It means "current dir", so this script opens the current dir, wich is where your script is running in.

You can change the dot to anything you want. Like "texts" to open a dir named "texts".

Mzzl, Chris

**sir pannels** · Jun 21, 2002, 09:55 AM

hey Chris,
ok it works with no erros but does not display the info and I have changed it abit..still no errors but if you look at the code then test it yourself look what happens

im stumped...you got any ideas?
or anyone elsE?
cheers
heres the code for this....

print "Content-type:text/html\n\n";

parse_form();

$int =$FORM{int};
$band =$FORM{band};

sub parse_form {

print "<html><head><title>TabbersTemple.com - $int tabs for $band </title></head>\n";
print "<body bgcolor=\"#000000\" text=\"#FFFFFF\">\n";
print "$int Tabs for $band \n";

opendir(DIR,"../tabberstemple/tabs/$int/$band");
@files = sort(grep(/\.txt$/,readdir(DIR)));
closedir(DIR);

$all_data = "";
foreach $file (@files) {
open(FILE,"$file") || die("Could not find $file. $!");
@lines = <FILE>;
close(FILE);
foreach $line (@lines) {
$line =~ s/\</</g; # optional
$line =~ s/\n/\<br\>/g; # optional
$all_data .= "$line";
}
$all_data .= " ";
}

print $all_data;
}

thanks
sir p

Announcement

Pulling every .txt file from a dir

Pulling every .txt file from a dir

Comment

Comment

Comment

Comment

Comment

Comment