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";

Usage: perl [switches] [–] [programfile] [arguments] -0[octal/hexadecimal] specify record separator (\0, if no argument) -a autosplit mode with -n or -p (splits $_ into @F) -C[number/list] enables the listed Unicode features -c check syntax only (runs BEGIN and CHECK blocks) -d[t][:MOD] run program under debugger or module Devel::MOD -D[number/letters] set debugging flags (argument is a bit mask or alphabets) -e commandline one line of program (several -e's allowed, omit programfile) -E commandline like -e, but enables all optional features -f don't do $sitelib/sitecustomize.pl at startup -F/pattern/ split() pattern for -a switch (//'s are optional) -g read all input in one go (slurp), rather than line-by-line (alias for -0777) -i[extension] edit <> files in place (makes backup if extension supplied) -Idirectory specify @INC/#include directory (several -I's allowed) -l[octnum] enable line ending processing, specifies line terminator -[mM][-]module execute "use/no module…" before executing program -n assume "while (<>) { … }" loop around program -p assume loop like -n but print line also, like sed -s enable rudimentary parsing for switches after programfile -S look for programfile using PATH environment variable -t enable tainting warnings -T enable tainting checks -u dump core after parsing program -U allow unsafe operations -v print version, patchlevel and license -V[:configvar] print configuration summary (or a single Config.pm variable) -w enable many useful warnings -W enable all warnings -x[directory] ignore text before #!perl line (optionally cd to directory) -X disable all warnings

• 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;

• File::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
• https://www.reddit.com/r/perl/