Các toán tử/chức năng dựng sẵn của Perl là gì?

Question

Tôi đang đọc Beginning Perl bởi Simon Cozens và trong Chương 8 - Subroutines ông nói rằng "thủ tục con" là chức năng người dùng, trong khi print, open, split, vv được xây dựng trong các nhà khai thác hoặc các chức năng.

Chúng là gì? Chúng có thực sự được xây dựng trong, các tính năng nội tại-ngôn ngữ (giống như toán tử sizeof của C) hay thực tế là các chương trình con/chức năng của mô-đun main?

Nếu chúng là các chương trình con, là while, for, unless, v.v ... cũng là chương trình con? Còn các nhà khai thác như +, -, eq, v.v ... thì sao?

Answer 1

print, open, split không phải là chương trình con. Chúng không dẫn đến các cuộc gọi phụ. Họ thậm chí không có mặt trong bảng biểu tượng (trong main:: hoặc cách khác, mặc dù bạn có thể tham chiếu chúng là CORE::split, v.v.) và không thể tham chiếu đến mã của chúng (mặc dù công việc đang được thực hiện để tạo proxy cho chúng trong CORE:: khi bạn muốn đối xử với họ như là chương trình con). Chúng là các toán tử giống như +.

$ perl -MO=Concise,-exec -e'sub f {} f()' 
1 <0> enter 
2 <;> nextstate(main 2 -e:1) v:{ 
3 <0> pushmark s 
4 <#> gv[*f] s 
5 <1> entersub[t3] vKS/TARG,1  <--- sub call 
6 <@> leave[1 ref] vKP/REFC 
-e syntax OK 

$ perl -MO=Concise,-exec -e'split /;/' 
1 <0> enter 
2 <;> nextstate(main 1 -e:1) v:{ 
3 </> pushre(/";"/) s/64 
4 <#> gvsv[*_] s 
5 <$> const[IV 0] s 
6 <@> split[t2] vK     <--- not a sub call 
7 <@> leave[1 ref] vKP/REFC 
-e syntax OK 

$ perl -MO=Concise,-exec -e'$x + $y' 
1 <0> enter 
2 <;> nextstate(main 1 -e:1) v:{ 
3 <#> gvsv[*x] s 
4 <#> gvsv[*y] s 
5 <2> add[t3] vK/2     <--- Just like this 
6 <@> leave[1 ref] vKP/REFC 
-e syntax OK 

Họ được gọi bằng nhiều tên khác nhau:

• chức năng được xây dựng trong
• chức năng
• builtins
• tên nhà khai thác

Và hầu hết được coi là một của những điều sau đây:

• hành danh sách
• tên nhà điều hành unary

Subroutines thường được gọi là chức năng (như họ đang có trong C và C++), do đó "chức năng" là một từ mơ hồ. Sự mơ hồ này dường như là nền tảng cho câu hỏi của bạn.

---

Đối với while, for, unless, vv, họ là các từ khóa được sử dụng bởi "báo cáo kiểm soát dòng chảy"

while (f()) { g() } 

và "bổ tuyên bố"

g() while f(); 

Answer 2

Từ khóa Perl là những từ khóa được xác định trong tệp regen/keywords.pl trong phân phối nguồn Perl. Đó là:

__FILE__, __LINE__, __PACKAGE__, __DATA__, __END__, Autoload, BEGIN, UNITCHECK, CORE, DESTROY, END, INIT, KIỂM TRA, abs, chấp nhận, báo thức, và atan2, ràng buộc, binmode , chúc lành, nghỉ ngơi, người gọi, chdir, chmod, chomp, cắt, chown, chr, chroot, đóng, đóng, cmp, kết nối, tiếp tục, cos, crypt, dbmclose, dbmopen, mặc định, được xác định, xóa, chết, làm, đổ, mỗi, khác, elsif, endgrent, endhostent, endnetent, endprotoent, endpwent, endervent, eof, eq, eval, exec, tồn tại, thoát, exp, fcntl, fileno, bầy, cho, foreach, fork, định dạng, formline, ge, getc, getgrent, getgr gid, getgrnam, gethostbyaddr, GetHostByName, gethostent, getlogin, getnetbyaddr, getnetbyname, getnetent, getpeername, getpgrp, getppid, getpriority, getprotobyname, getprotobynumber, getprotoent, getpwent, getpwnam, getpwuid, getservbyname, getservbyport, getservent, getsockname, getockopt, được cung cấp, glob, gmtime, goto, grep, gt, hex, if, index, int, ioctl, kết nối, khóa, diệt, cuối cùng, lc, lcfirst, le, length, link, nghe, giờ địa phương , khóa, đăng nhập, lstat, lt, m, bản đồ, mkdir, msgctl, msgget, msgrcv, msgsnd, my, ne, next, no, not, oct, open, opendir, hoặc, ord, gói, gói của chúng tôi , ống, pop, pos, print, printf, nguyên mẫu, đẩy, q, qq, qr, quotemeta, qw, qx, rand, read, readdir, readline, readlink, readpipe, recv, redo, ref, đổi tên, yêu cầu, đặt lại, quay lại, đảo ngược, rewinddir, rindex, rmdir, s, nói, vô hướng, tìm kiếm, tìm kiếm, chọn, semctl, semget, semop, send , setgrent, sethostent, setnetent, setpgrp, setpriority, setprotoent, setpwent, setservent, setsockopt, shift, shmctl, shmget, shmread, shmwrite, shutdown, sin, sleep, socket, socketpair, sort, splice, split, sprintf, sqrt, srand, stat, state, study, sub, substr, symlink, syscall, sysopen, sysread, sysseek, system, syswrite, tell, telldir, tie, tied, time, times, tr, truncate, uc, ucfirst , umask, undef, trừ khi, hủy liên kết, giải nén, unshift, untie, cho đến khi, sử dụng, utime, values, vec, wait, waitpid, wantarray, cảnh báo, khi nào, trong khi, viết, x, xor, y.

Các perlsyn, perlop, và perlsub manpages được yêu cầu đọc, sau đó có lẽ bởi perlfunc manpage. Để tìm hiểu cách ghi đè toán tử nội trang được sử dụng với đối tượng, hãy xem trang web quá tải.

Answer 3

Việc xây dựng trong các toán tử không phải là các chương trình con Perl. Ví dụ:

#!/usr/bin/perl 

use strict; 
use warnings; 

sub Foo { print "In foo\n"; } 

my $ref; 

$ref = \&Foo; 
$ref->(); 

$ref = \&print; 
$ref->(); 

Đầu tiên $ref->(); là cuộc gọi gián tiếp; nó in "Trong foo".

thứ hai tạo ra một cảnh báo:

Undefined subroutine &main::print called at ./tmp.pl line 14 

vì print không phải là tên của một chương trình con.

Answer 4

Đơn giản chỉ cần nghĩ về "chức năng tích hợp" làm chức năng mà bạn không tạo. Dễ dàng phải không? :-)