perl

URL addresses only accepts alphanumeric characters and some punctuation symbols, like parenthesis and underscore.

If you need to use any other symbol (like space) you have to URL encode it using a percent sign followed by the two hexadecimal digits that represents that digit in the ASCII table.

For example, the space symbol is character 32 (hexadecimal 20) in the ASCII table, so it's expressed as %20.

In Perl, the easiest way to URL encode a string is to use uri_escape() function from URI::Escape module. This function converts all the unsafe symbols of a string to its URL encode representation.

Conversely, uri_unescape() converts a URL encoded string to its normal representation.

#!/usr/bin/perl

use URI::Escape;

my $string = "Hello world!";
my $encode = uri_escape($string);

print "Original string: $string\n";
print "URL Encoded string: $encode\n";

sha1($data,…)

This function will concatenate all arguments, calculate the SHA-1 digest of this ``message'', and return it in binary form.

sha1_hex($data,…)

Same as sha1(), but will return the digest in hexadecimal form.

sha1_base64($data,…)

Same as sha1(), but will return the digest as a base64 encoded string.

#!/usr/bin/perl
use Digest::SHA qw(sha1);
my $data="string";
print unpack("H*", sha1($data)), "\n";

или

#!/usr/bin/perl
use Digest::SHA qw(sha1_hex);
my $data="string";
print sha1_hex($data), "\n";

• https://www.tutorialspoint.com/perl/perl_socket_programming.htm - перл-сокеты
• https://perldoc.perl.org/IO::Socket
• https://perldoc.perl.org/Socket

local $_ = 'abcdefghi';
/def/;
print "$`:$&:$'\n"; # prints abc:def:ghi

Соответственно, часть строки до совпадения, совпадение, часть строки после.

https://perlmaven.com/slurp

use Path::Tiny qw( path );

my $file = 'data.txt';
my $data = path($file)->slurp_utf8;

• :Slurper
• Path::Tiny

Из моего же поста на welinux — http://welinux.ru/post/5018/. Где тот Welinux, а текст остался.

#!/usr/bin/perl
use HTML::Entities; 
binmode ("STDOUT", ":utf8"); 
print decode_entities(<>);

или почти то же однострочником от freefd:

perl -MHTML::Entities -e"use open ':locale'; print decode_entities <>" 

Для превращения текста со всякими &xxx; и &#nnn; в обычный utf8. Понадобилось из-за штуки, которая в виде таких numeric character references и character entity references сохраняет всё, что не основные символы (латиница, цифры и что-то ещё по минимуму). Кириллицу, например.

• use HTML::Entities; — там сделали главную часть работы за меня :)
• binmode («STDOUT», «:utf8»); — чтобы Perl не ругался на необходимость печатать расшифрованное :)
• print decode_entities(<>); — читать справа налево. Берём нечто со stdin — <>. Превращаем в вид желаемый — decode_entities. И печатаем — print — на stdout.

Модуль HTML::Entities мне даже ставить не пришлось, в дебиане (сквизе) он в пакете libhtml-parser-perl, который был установлен по зависимостям к rss-читалке.

Советы по улучшению или замене на лучшее приму с благодарностью. :) Сделано было по принципу «лишь бы быстро справиться с задачей». Справилось.

В комментариях cblp подсказал неплохую штуку для перекодирования имён файлов — convmv.

• https://t.me/usePerlOrDie - о языке perl
• https://t.me/modernperl
  • https://t.me/modernperl_flood - болталка.
• Preface(Modern Perl 2014) - http://modernperlbooks.com/books/modern_perl_2014/00-preface.html [2016-02-23 Вт 20:49], https://github.com/timurn/modern_perl_book/tree/russian_translation
• Beginning Perl Programing with Emacs http://cpansearch.perl.org/src/YEWENBIN/Emacs-PDE-0.2.16/lisp/doc/QuickStartEn.html [2016-02-23 Вт 20:44]
• https://en.wikipedia.org/wiki/Perl_module - на удивление милое описание про модули.
• https://en.wikipedia.org/wiki/Category:Perl
• https://perlmaven.com/perl-tutorial
• https://perlmaven.com/dancer - про Dancer мне интересно отдельно.
  • https://perldancer.org/documentation
• https://stackoverflow.com/questions/13631915/execute-perl-in-emacs-most-basic
• http://obsidianrook.com/devnotes/elisp-for-perl-programmers.html
• https://perldoc.perl.org/
• https://perlmonks.org