in reply to Re: Re: Script generated site index db
in thread Script generated site index db
#!/usr/bin/perl use File::Find; my $filedir = '/usr/local/apache/htdocs'; my $baseurl = "http://someplace.com/shrum"; my @docs = (); sub process_file { return if -d; # Skip directories. push @docs, [$File::Find::dir, $_]; } find(\&process_file, ($filedir) ); foreach $doc (@docs){ $doc->[0]=~s/$filedir/$baseurl/o; #[0] is dir [1] is filename. print "URL is ".$doc->[0].'/'.$doc->[1],"\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: Re: Script generated site index db
by rob_au (Abbot) on Mar 19, 2002 at 09:33 UTC | |
by shotgunefx (Parson) on Mar 19, 2002 at 09:59 UTC | |
|
Re: Re: Re: Re: Script generated site index db
by S_Shrum (Pilgrim) on Mar 19, 2002 at 09:38 UTC |