@ là gì. trong Perl?

Question

Biến số @. trong perl là gì?

Có vẻ là một đặc biệt, có khả năng ghi toàn cầu, và (ngạc nhiên) không suy trong dụng dấu ngoặc kép chuỗi:

use strict; 
use warnings; 

       # Under 5.8, 5.10, 5.12, 5.14, and 5.16, 
       # the following lines produce: 

@. = (3, 2, 1); # no error 
print "@.\n"; # "@." 
print @., "\n"; # "321" 

eval 'my @.; 1' # Can't use global @. in "my" at (eval 1) 
    or die $@;  # line 1, near "my @." 

Tôi không thể nhớ bao giờ gặp nó trước, và không nhìn thấy nó trong perlvar cũng không perldata.

Answer 1

perldoc perlvar trạng thái:

Perl tên biến cũng có thể là một chuỗi các chữ số hoặc một dấu chấm câu hoặc điều khiển nhân vật duy nhất. Những tên này đều được dành riêng cho các ứng dụng đặc biệt của Perl;

và

định danh Perl bắt đầu với chữ số, ký tự điều khiển, hoặc các ký tự chấm câu được miễn khỏi những tác động của việc kê khai gói và luôn buộc phải có trong package main; chúng cũng được miễn các lỗi strict 'vars'.

Bạn đang sử dụng tên riêng. Bạn không nên mong đợi để có thể dựa vào bất kỳ tính năng nào.

Answer 2

$. là số dòng hiện tại (hoặc số bản ghi) của tệp gần đây nhất.

@. không có ý nghĩa đặc biệt hoặc sử dụng

---

"@." không suy, nhưng "@{.}" làm.

@. được dành riêng để sử dụng trong tương lai và không nên được sử dụng