← Back to branch summary

~ubuntu-branches/ubuntu/precise/kompozer/precise

« back to all changes in this revision

Viewing changes to mozilla/htmlparser/tests/html/ListGen.pl

  • Committer: Bazaar Package Importer
  • Author(s): Anthony Yarusso
  • Date: 2007-08-27 01:11:03 UTC
  • Revision ID: james.westby@ubuntu.com-20070827011103-2jgf4s6532gqu2ka
Tags: upstream-0.7.10
Import upstream version 0.7.10

Show diffs side-by-side

added added

removed removed

Lines of Context:
mozilla/htmlparser/tests/html/ListGen.pl
 
1
#!/usr/bin/perl
 
2
 
 
3
use Cwd;
 
4
 
 
5
$curr_dir=`cd`;
 
6
 
 
7
open(OUTFILE,">file_list.txt") || die "Can't open file_list.txt $!";
 
8
opendir(D,".");
 
9
 
 
10
@files=readdir(D);
 
11
$curr_dir=~s/\\/\//g;
 
12
chomp($curr_dir);
 
13
 
 
14
foreach $file(@files) {
 
15
 if($file=~m/\.*m/) {
 
16
   print OUTFILE "$file\n";
 
17
 }
 
18
}
 
19
 
 
20