PL/Perl có thể được sử dụng để viết các chức năng kèo chấp bóng đá hôm nay sự kiện. Trong chức năng kèo chấp bóng đá hôm nay sự kiện, tham chiếu băm$ _TDchứa thông tin về sự kiện kèo chấp bóng đá hôm nay hiện tại.$ _TDlà một biến toàn cầu, có giá trị cục bộ riêng cho mỗi lần gọi kèo chấp bóng đá hôm nay. Các trường của$ _TDTham chiếu băm là:

Giá trị trả về của hàm kèo chấp bóng đá hôm nay bị bỏ qua.

Đây là một ví dụ về chức năng kèo chấp bóng đá hôm nay sự kiện, minh họa một số điều trên:

Tạo hoặc thay thế hàm perlsnitch () returns event_trigger dưới dạng $$
  ELOG (Thông báo, "PerlSnitch:". $ _TD- Event. "". $ _TD- TAG. "");
$$ Ngôn ngữ plperl;

Tạo sự kèo chấp bóng đá hôm nay Trigger Perl_a_snitch
    Trên ddl_command_start
    Thực thi hàm perlsnitch ();