[sisyphus] perldoc cache

[sisyphus] perldoc cache

[Alexey Tourbin]

[-- Attachment #1.1: Type: text/plain, Size: 568 bytes --]

Я реализовал кеширование в perldoc (для pod2man | nroff).
Чтобы кеширование включилось, нужно создать каталог ~/.perldoc.

* Fri Apr 22 2005 Alexey Tourbin <at@altlinux> 3.14-alt2
- implemented cache for nroff formatted output (mkdir ~/.perldoc)

$ mkdir ~/.perldoc
$ time perldoc perlre >/dev/null
perldoc perlre > /dev/null  3,98s user 0,06s system 99% cpu 4,064 total
$ ls ~/.perldoc
_usr_bin_pod2man_lax_usr_lib_perl5_pod_perlre_pod_nroff_man
$ time perldoc perlre >/dev/null
perldoc perlre > /dev/null  0,72s user 0,03s system 98% cpu 0,760 total
$

[-- Attachment #1.2: perldoc-3.14-alt-man-cache.patch --]
[-- Type: text/plain, Size: 935 bytes --]

--- Pod-Perldoc-3.14/lib/Pod/Perldoc/ToMan.pm-	2004-12-01 01:20:19 +0300
+++ Pod-Perldoc-3.14/lib/Pod/Perldoc/ToMan.pm	2005-04-22 01:08:03 +0400
@@ -38,6 +38,9 @@ sub parse_from_file {
   my $self = shift;
   my($file, $outfh) = @_;
 
+  require Cwd;
+  $file = Cwd::realpath($file) || $file;
+
   my $render = $self->{'__nroffer'} || die "no nroffer set!?";
   
   # turn the switches into CLIs
@@ -88,7 +91,21 @@ sub parse_from_file {
    and print "About to run $command\n";
   ;
   
-  my $rslt = `$command`;
+  my $cache = $command;
+  $cache =~ tr/a-zA-Z0-9/_/cs;
+  $cache = "$ENV{HOME}/.perldoc/$cache";
+
+  my $rslt;
+  if (-f $cache and -M $cache < -M $file) {
+    local @ARGV = $cache; local $/ = undef;
+    $rslt = <>;
+  } else {
+    $rslt = `$command`;
+    unless ($file =~ m#/tmp/#) {
+      my $fh; open $fh, ">", $cache
+        and print $fh $rslt;
+    }
+  }
 
   my $err;
 

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]