Re: [Moscow.pm] Fwd: perl -MCPAN -e 'install POD2::RU'

Mon, 23 Mar 2015 12:18:19 -0700

#!/bin/sh
pod2man --utf8 $(perldoc -l $1) | iconv -t iso8859-5 | nroff -Tlatin1 -c -man - | iconv -f iso8859-5 | less
Поместил в "perldoc-ruic" только для документаций Perl *::*::*

cp /usr/share/bash-completion/completions/perldoc /usr/share/bash-completion/completions/perldoc-ruic

В файле /usr/share/bash-completion/completions/perldoc-ruic заменил текст perldoc на
perldoc-ruic

Вот пример: %perldoc-ruic POD2::RU[Tab]

--
Специалист IT, GNU, FLOSS, Open Source
Моб: +7 (951) 131 33 90
С уважением,
Кузьменко Константин Викторович


23.03.2015, 17:50, "Кузьменко Константин" <[email protected]>:

 Спасибо, замысел понятен,
 Плюс к этому http://habrahabr.ru/post/71525/

 буду доделывать, результат отпишу!

 --
 Специалист IT, GNU, FLOSS, Open Source
 Моб: +7 (951) 131 33 90
 С уважением,
 Кузьменко Константин Викторович

 23.03.2015, 15:24, "Ilya Chesnokov" <[email protected]>:
  23 марта 2015 г., 15:03 пользователь Кузьменко Константин
  <[email protected]> написал:
   Добрый день,

   Только так?
   ./gistfile1.sh /usr/local/share/perl/5.18.2/POD2/RU/perlretut.pod

   ???
  Файл можно искать при помощи perldoc -l

  Попробуй:
  pod2man --utf8 $(perldoc -l $1) | iconv -t iso8859-5 | nroff -Tlatin1
  -c -man - | iconv -f iso8859-5 | less
   --
   Специалист IT, GNU, FLOSS, Open Source
   Моб: +7 (951) 131 33 90
   С уважением,
   Кузьменко Константин Викторович

   23.03.2015, 11:37, "Иван Бессарабов" <[email protected]>:
   Это проблема perldoc. Я для просмотра POD с unicode использую вот
   такой скрипт perldoc1, который лежит у меня в $PATH —
   https://gist.github.com/bessarabov/af46b4174b241a4f20ae

   On Mon, Mar 23, 2015 at 1:29 AM, Кузьменко Константин <[email protected]> wrote:
    Добрый день,
    Везде Иксы вместо кирилических символов

    Установил так
    perl -MCPAN -e 'install POD2::RU'

    проверил так
    perldoc POD2::RU::perlretut

    Получил вот такой результат
    PERLRETUT(1)          User Contributed Perl Documentation
    PERLRETUT(1)

    XXXXXXXXXXXX
           perlretut - XXXXXXX XXXXXXXXXX XXXXXXXXX Perl
    ...
    # XXXXXXXXX XXXX, XXXXXX, XXXXXXX
               if ($time =~ /(\d\d):(\d\d):(\d\d)/) {    # XXXXX hh:mm:ss XXXXXX
                   $hours = $1;
                   $minutes = $2;
                   $seconds = $3;
               }
    ...

    XXXXXXXXXXXXX
           XXXXXXXXXXXXX XXXXXXXX stop codon DNA  XXXXXXXXX XX ZIP XXXXXXXX XXXX
    X
           XXXXX 7 XXXXX Mastering Regular Expressions.

           XXXXX XXXXX XX XXXXXXXXXXXXX Jeff Pinyan, Andrew Johnson, Peter
           Haworth, Ronald J Kimball, X Joe Smith XX XXX XX XXXXXXXX
    XXXXXXXXXXX.

    XXXXXXXXXXX
           ·   XXXXXXX XXXXX "<[email protected]>"

    perl v5.18.2                      2015-03-22
    PERLRETUT(1)

    --
    С уважением,
    Кузьменко Константин Викторович

    --
    Moscow.pm mailing list
    [email protected] | http://moscow.pm.org
   --
   Moscow.pm mailing list
   [email protected] | http://moscow.pm.org
   --
   Moscow.pm mailing list
   [email protected] | http://moscow.pm.org
  --
  Best regards,
  Ilya Chesnokov
  --
  Moscow.pm mailing list
  [email protected] | http://moscow.pm.org
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить