FastNetMon

Saturday, 30 January 2010

Пишем простейший фильтр исходных кодов

Вот сегодня на очередном совещании по работе мне напомнили про такую суперскую вещь как "фильтры исходных кодов"; я давно хотел их попробовать, но постоянно забывал, что же! Пора =)

Исходный код вот:

package MyFilter;

use Filter::Util::Call;

sub import {
my ($type) = @_;

my ($ref) = [];
filter_add(bless $ref);
}

sub filter {
my ($self) = @_;
my ($status);


s/"([a-zA-Z]+)"/"uc $1"/eg
if ($status = filter_read()) > 0;

$status;
}

1;


Запускаем:
perl -MMyFilter -e 'print "AaAaaaA"'
AAAAAAA


Уж и стоит ли мне говорить, что посредством такого супердвижка можно легко написать на Перле свой ДЯП ?)

пысы: кого воткнуло, идём читать: http://perldoc.perl.org/perlfilter.html

No comments :

Post a Comment

Note: only a member of this blog may post a comment.