[mirrors/Programs.git] / perl / index / index.pl

#!/usr/bin/env perl
use strict;
use warnings;
use File::Find;
use URI::Escape;

my $index_dir = './index';
my $docus_dir = './docs';

unlink <$index_dir/*>;
find({ wanted => \&index_file, no_chdir=>1 }, $docus_dir);

sub index_file() {
	print $File::Find::name."\n";
	open(my $fh, '<', $File::Find::name) or die $!;
	while(<$fh>) {
		$_ =~ s/\<[^\<]+\>//g; #strip tags
		$_ = lc($_);

		foreach(split(/[\s]/,$_)) {
			$_ =~ /^\s+|\s+$/g; #trim
				if($_ eq '') { next; }
	
			print "$_\n";
			$_ = uri_escape($_);
			$_ = $index_dir.'/'.$_;
	
				open(my $ifh, '>>', $_) or die $!;
			print $ifh "$File::Find::name\n";
			close($ifh);
		}
	}
	close($fh);
}
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use File::Find;
	5	use URI::Escape;
	6
	7	my $index_dir = './index';
	8	my $docus_dir = './docs';
	9
	10	unlink <$index_dir/*>;
	11	find({ wanted => \&index_file, no_chdir=>1 }, $docus_dir);
	12
	13	sub index_file() {
	14	print $File::Find::name."\n";
	15	open(my $fh, '<', $File::Find::name) or die $!;
	16	while(<$fh>) {
	17	$_ =~ s/\<[^\<]+\>//g; #strip tags
	18	$_ = lc($_);
	19
	20	foreach(split(/[\s]/,$_)) {
	21	$_ =~ /^\s+\|\s+$/g; #trim
	22	if($_ eq '') { next; }
	23
	24	print "$_\n";
	25	$_ = uri_escape($_);
	26	$_ = $index_dir.'/'.$_;
	27
	28	open(my $ifh, '>>', $_) or die $!;
	29	print $ifh "$File::Find::name\n";
	30	close($ifh);
	31	}
	32	}
	33	close($fh);
	34	}