Thay thế nhanh hơn cho eval?

Question

Tôi đang xử lý một ứng dụng web sử dụng hệ thống tạo khuôn mẫu được phát triển tại nhà cho phép mã Perl được nhúng trong HTML. Các câu lệnh này được thực hiện bởi trình phân tích mẫu tại thời gian chạy bằng cách sử dụng eval EXPR.

Điều này rất linh hoạt, nhưng các báo cáo này nằm rải rác ở khắp mọi nơi và được thực thi lô. eval EXPR (trái ngược với eval BLOCK) yêu cầu Perl kích hoạt trình thông dịch mỗi lần và tiểu sử của tôi cho thấy rằng chúng là nguồn đáng kể đáng kể chậm lại.

Nhiều câu lệnh Perl được nhúng rất đơn giản. Ví dụ, một mẫu có thể có một dòng như sau:

<p>Welcome, <!--E: $user->query('name') -->. 

Hoặc:

<p>Ticket number <!--E: $user->generate_ticket_number() --> has been generated. 

Đó là, chúng tôi chỉ gọi phương pháp đối tượng. Tuy nhiên, có những phức tạp hơn.

Tôi hy vọng tối ưu hóa điều này, và cho đến nay có hai ý tưởng, cả hai đều là khủng khiếp. Đầu tiên là viết lại tất cả các mẫu để thay thế các cuộc gọi đơn giản bằng các mã thông báo như USER:NAME và USER:GENERATETICKETNUMBER, mà trình phân tích cú pháp có thể quét và gọi phương thức đối tượng thích hợp. Nhưng sau đó thay vì xử lý các mẫu kết hợp HTML và Perl, tôi sẽ có các mẫu kết hợp HTML, Perl và các thẻ. Ý tưởng thứ hai là cố gắng phân tích cú pháp Perl được nhúng, tìm ra câu lệnh muốn làm gì và nếu đủ đơn giản, hãy gọi phương thức đối tượng thích hợp thông qua một tham chiếu tượng trưng. Điều này rõ ràng là điên rồ.

Có một số giải pháp hợp lý mà tôi đang xem không?

Answer 1

Hãy thử dùng một cách tiếp cận tương tự như một trong đó mod_perl sử dụng để biên dịch CGI:

1. Chuyển đổi mẫu vào mã Perl. Ví dụ, ví dụ đầu tiên của bạn có thể chuyển đổi sang một cái gì đó như:

   print "<p>Welcome, "; 
   print $user->query('name'); 
   print ".\n"; 
   

2. Quấn một sub { ... } xung quanh mã mà, cùng với một số mã để giải nén đối số (ví dụ, đối với những thứ như $user trong mẫu).

3. eval mã đó. Lưu ý rằng nó trả về một coderef.

4. Gọi mã đó liên tục. :)

Answer 2

Bạn có thể muốn nhìn vào ruột của Text::MicroTemplate. Thực tế, bạn có thể muốn sử dụng Văn bản :: MicroTemplate, vì nó có thể phù hợp với nhu cầu của bạn. Nó xây dựng một chương trình con nối các chuỗi khi cần, giống như duskwuff gợi ý. Dưới đây là kết quả của build_mt('hello, <?= $_[0] ?>') trong re.pl:

$CODE1 = sub { 
     package Devel::REPL::Plugin::Packages::DefaultScratchpad; 
     use warnings; 
     use strict 'refs'; 
     local $SIG{'__WARN__'} = sub { 
     print STDERR $_mt->_error(shift(), 4, $_from); 
     } 
     ; 
     Text::MicroTemplate::encoded_string(sub { 
     my $_mt = ''; 
     local $_MTREF = \$_mt; 
     my $_from = ''; 
     $_mt .= 'hello, '; 
     $_from = $_[0]; 
     $_mt .= ref $_from eq 'Text::MicroTemplate::EncodedString' ? $$_from : do { 
      $_from =~ s/([&><"'])/$Text::MicroTemplate::_escape_table{$1};/eg; 
      $_from 
     }; 
     return $_mt; 
     } 
     ->(@_)); 
    }; 

Answer 3

Bạn có thể có một cái nhìn tại Mojolicious. Nó có một templating engine cho phép một cú pháp gần với những gì bạn đang sử dụng.Bạn có thể có thể chuyển sang sử dụng nó hoặc nhìn vào nguồn của nó (nhấp vào nguồn bên trái của liên kết trước đó) để xem bạn có thể vẽ một số ý tưởng hay không.

FYI cú pháp khuôn mẫu động cơ của Mojolcious cho phép các hình thức sau trộn lẫn với HTML một cách thích hợp

<% Perl code %> 
<%= Perl expression, replaced with result %> 
<%== Perl expression, replaced with XML escaped result %> 
<%# Comment, useful for debugging %> 
<%% Replaced with "<%", useful for generating templates %> 
% Perl code line, treated as "<% line =%>" 
%= Perl expression line, treated as "<%= line %>" 
%== Perl expression line, treated as "<%== line %>" 
%# Comment line, treated as "<%# line =%>" 
%% Replaced with "%", useful for generating templates 

Answer 4

Bạn không nên sử dụng 'eval' để gọi các phương thức trong mẫu của bạn. Xin lỗi để âm thanh khắc nghiệt nhưng điểm của một cái nhìn riêng biệt là để loại bỏ các mã xử lý từ lớp xem. Các hệ thống mẫu được mô tả ở trên cùng với Bộ công cụ mẫu chỉ cần truyền vào một đối tượng/băm để bạn có thể truy cập nó.

tại sao không vượt qua $ user như một hashref như:

$user = { 
     'name' => 'John', 
     'id' => '3454' 
     }; 

này sẽ cho phép bạn truy cập vào 'tên' với:

$user->{'name'}; 

Nếu không, nó có khả năng mà bạn có mà bạn làm một cái gì đó như:

1. mẫu gọi $ user-> query();
2. phương pháp gọi DB để có được giá trị
3. phương pháp trả về giá trị

Đó là soooo đắt hơn nhiều để thực hiện một truy vấn cơ sở dữ liệu hơn để vượt qua các tài liệu tham khảo băm/đối tượng cho mẫu. Bạn có thể muốn kiểm tra một số công cụ định dạng mã như Devel :: NYTProf để xem phần nào của việc thực thi mã thực sự làm chậm bạn xuống. Tôi nghi ngờ rằng eval là bogging xuống chương trình của bạn rất nhiều mà bạn cần phải tối ưu hóa ra eval. Âm thanh như mã bên trong eval là những gì đang làm chậm bạn xuống.