File: UrlGen.pl

package info (click to toggle)
iceweasel 2.0.0.19-0etch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 298,784 kB
  • ctags: 317,912
  • sloc: cpp: 1,796,902; ansic: 987,677; xml: 109,036; makefile: 47,777; asm: 35,201; perl: 26,983; sh: 20,879; cs: 6,232; java: 5,513; python: 3,249; pascal: 459; lex: 306; php: 244; csh: 132; objc: 97; yacc: 79; ada: 49; awk: 14; sql: 4; sed: 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";
 }
}