Архив категории: perl

Не нравится язык? Напиши его себе сам.

25.11.2013 – 01:26

Во время поиска документации по незнакомым функциям стандартной библиотеки, наткнулся на удивительную фичу Perl’а — source filters. Она позволяет выполнять препроцессинг исходного кода перед выполнением. Обработка может производится как кодом на C, так и кодом на самом Perl’е, что является наиболее переносимым вариантом.
Так чего же он нам позволяет добиться?
Многого! Например можно добавить возможность использовать прототипы функций с именованными аргументами, которые появятся только в Perl6.

#!/usr/bin/perl
use strict;
use FunctionPrototype;
sub myfunction($c, $d){
	print "c: $c, d: $d\n";
}

myfunction("arg1", "arg2");

#!/usr/bin/perl

use strict;

use FunctionPrototype;

sub myfunction($c, $d){

print "c: $c, d: $d\n";

}

myfunction("arg1", "arg2");

Или изменить синтаксис чуть сильнее:

#!/usr/bin/perl
use JavaLikePerl;
/**
 * The HelloWorldApp class implements an application that
 * simply prints "Hello World!" to standard output.
 */
class HelloWorldApp {
    public static void main(String[] args) {
        System.out.println("Hello World!"); // Display the string.
    }
}

#!/usr/bin/perl

use JavaLikePerl;

/**

* The HelloWorldApp class implements an application that

* simply prints "Hello World!" to standard output.

class HelloWorldApp {

public static void main(String[] args) {

System.out.println("Hello World!"); // Display the string.

}

Yuriy Nazarov | Постоянная ссылка | Нет комментариев

perl programming

Лексер для Perl

18.08.2013 – 15:19

Меня всегда интересовал вопрос: «В чём основная сложность разработки плагинов для IDE для динамических языков?». Посмотрев код плагина поддержки Perl для Eclipse и почитав форумы, я обнаружил что порой программа может быть правильно разобрана на лексемы только самим интерпретатором, например в случае, когда порядок разбора зависит от уже произведённых действий при разборе. Наглядный пример:

#!/usr/bin/perl

BEGIN {
	if(0.5 < rand(1)){
		require Mod1;
		Mod1->import( 'one' );
	}
	else{
		require Mod2;
		Mod2->import( 'one' );
	}
}
$_ = '';
print one  / 25 ; # / ; die "this dies!";

#!/usr/bin/perl

BEGIN {

if(0.5 < rand(1)){

require Mod1;

Mod1->import( 'one' );

}

else{

require Mod2;

Mod2->import( 'one' );

}

$_ = '';

print one / 25 ; # / ; die "this dies!";

В котором последняя строка может содержать как регэксп так и деление в зависимости от прототипа загруженной функции. Читать далее »

Yuriy Nazarov | Постоянная ссылка | Нет комментариев

perl

Исключения в Perl

25.04.2013 – 03:25

Одним из возможных вариантов мне видится:

#!/usr/bin/perl
use strict;
use warnings;
use MyExceptions;
use MyTry;

try {
	MyExceptions::SomeError2->throw();
} catch {MyExceptions::SomeError1->test || MyExceptions::SomeError2->test} by {
	print "Catched\n";
	print $_->description;
} catch {MyExceptions::SomeError0->n} by {
	print "Catched exception 0\n";
}; #<-- semicolon must be here

#!/usr/bin/perl

use strict;

use warnings;

use MyExceptions;

use MyTry;

try {

MyExceptions::SomeError2->throw();

} catch {MyExceptions::SomeError1->test || MyExceptions::SomeError2->test} by {

print "Catched\n";

print $_->description;

} catch {MyExceptions::SomeError0->n} by {

print "Catched exception 0\n";

}; #<-- semicolon must be here

Yuriy Nazarov | Постоянная ссылка | Нет комментариев

GD graphics perl

Склеиваем картинки при помощи Perl и GD

20.09.2012 – 02:23

Все наверное уже видели этот шэдевральный комикс от xkcd. А тем кто не видел — очень рекомендую посмотреть.
Ну так вот. Интересно мне было посмотреть как он выглядит целиком. И вот если бы я сначала подумал, а не сразу принялся бы код, то понял бы, что это бессмысленно. т.к. общий размер изображения 13+ ГИГАПИКСЕЛЕЙ. А моим вьювером, как выяснилось больше 0.6 ГП не открывается. Да и библиотека с изображениями, размер которых по одному из измерений больше 33 КП, работает нестабильно. Но зато я хоть немножко познакомился с GD.
Склеить получилось(нормально склеилось и нормально смотрелось) участок вот такого размера:

Полная же картинка выглядит так:

Второе изображение отсюда.
upd. На хабре узнал про скрол версию.
Для склейки изображений я набрасал простенький скрипт, код которого приведён далее.
Читать далее »

Yuriy Nazarov | Постоянная ссылка | Нет комментариев

От идеи до профита

Архив категории: perl

Не нравится язык? Напиши его себе сам.

Лексер для Perl

Исключения в Perl

Склеиваем картинки при помощи Perl и GD

Свежие записи

Мета

Рубрики

Архивы