Не смотря на то, что сейчас усиленно форсится, что перл как язык нынче безнадёжно устарел и ему пора на свалку истории, это совсем не так. Как и раньше, он легко ив непринуждённой манере умеет работать с текстом. Собственно, для того он и писался.
Итак, у меня появилась задача по написанию плагина...
Памятка по ссылкам на данные в языке perl.
Создание ссылки:
на именованные данные (допустим, для передачи их в функцию):
$scalarReference = \$scalar;
$arrayReference = \@array;
$hashReference = \%hash;на безымянные данные (допустим, для возврата их из функции):
$arrayReference = [ "ite...как ни странно но иногда такие скрипты бывают полезны
!/usr/bin/perl
#use CGI::Carp qw(fatalsToBrowser);
use strict;
use Fcntl;
use bytes;
close(STDIN);
my $page = <<DATA
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://w3.org/TR/html4/strict.dtd">
<html>
<head>...в отличие от питона, у которого py2exe распространяется под bsd-подобной лицензией, большинство превращателей перловых скриптов распространяются под коммерческими лицензиями, что не может не разочаровывать
но выход есть - (для сравнительно простеньких скриптов) можно, например, использовать модифи...
многопоточность в перле реализуется просто:
#!/usr/bin/perl -w
use threads;
my @threads = undef;
for my $i (1..3) {
push @threads, threads->create(\&get_now, $i);
}
my $thread = undef;
foreach $thread (@threads) {
$thread->join();
}
sub get_now
{
my $num = shift;
print "thre...