comment on

I would like to read the names of all the files in a directory of mine into an array so that I can convert each file name into a link to that file. Currently I am doing this in the following manner. I read the "dir.dat" file with the following command, "ls > dir.dat." I should like rather to get the current directory's files from within the script rather than having to do that command everytime I want to regenerate the html. How might I do this?

#!/usr/local/bin/perl
use strict;
@filename;
$i = 0;
$total;
open(INFILE,"dir.dat");
while($filename[$i] = <INFILE>){
  chop($filename[$i]);
  $filename[$i] =~ s/\*//g;
  $i++;
  $total++;
}

$error = open(OUTFILE,"> dict.html");
if(!$error){
  print("ERROR\n");
  exit(0);
}

print(OUTFILE "<HTML>\n  <HEAD>\n  </HEAD>\n <BODY TEXT=#00ff00 LINK=#
+00ff00 VLINK=#00ff00 BGCOLOR=#000000 alink=00FF00>\n");

for($i=0;$i<=$total;$i++){
  print(OUTFILE "<A HREF=\"$filename[$i]\">$filename[$i]</A><BR>\n");
}

print(OUTFILE "</BODY>\n</HTML>\n");

close(OUTFILE);
[download]

Originally posted as a Categorized Question.

In reply to How do I read all the file names of a directory into an array? by Ri-Del

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Don't ask to ask, just ask
	PerlMonks