File: UrlGen.pl

package info (click to toggle)
mozilla-firefox 1.0.4-2sarge17
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 255,356 kB
  • ctags: 267,207
  • sloc: cpp: 1,623,961; ansic: 792,828; xml: 85,380; makefile: 41,934; perl: 27,802; asm: 14,884; sh: 14,807; cs: 4,507; python: 4,398; java: 4,004; yacc: 1,380; lex: 409; pascal: 354; php: 244; csh: 132; objc: 73; ada: 44; sql: 4
file content (20 lines) | stat: -rw-r--r-- 283 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

use Cwd;

$curr_dir=`cd`;

open(OUTFILE,">url_list.txt") || die "Can't open url.txt $!";
opendir(D,".");

@files=readdir(D);
$curr_dir=~s/\\/\//g;
chomp($curr_dir);

foreach $file(@files) {
 if($file=~m/\.htm/) {
   print OUTFILE "file:///$curr_dir/$file\n";
 }
}