Làm cách nào để Perl's print có thể thêm một dòng mới theo mặc định?

Trong Perl, hầu hết các printtuyên bố của tôi có dạng

print "hello." . "\n";

Có cách nào hay để tránh giữ tất cả "\ n" phiền phức nằm xung quanh không?

Tôi biết mình có thể tạo một hàm mới, chẳng hạn như hàm myprinttự động nối thêm \ n, nhưng sẽ rất tuyệt nếu tôi có thể ghi đè lên hàm hiện có print.

Perl 6 có saychức năng tự động thêm vào \n.

Bạn cũng có thể sử dụng saytrong Perl 5.10 hoặc 5.12 nếu bạn thêm

use feature qw(say);

vào đầu chương trình của bạn. Hoặc bạn có thể sử dụng Modern :: Perl để lấy tính năng này và các tính năng khác.

Xem tính năng perldoc để biết thêm chi tiết.

Bạn có thể sử dụng -ltùy chọn trong tiêu đề she-bang:

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Đầu ra:

hello
hello

Nếu Perl 5.10+ không phải là một tùy chọn, thì đây là một phép gần đúng nhanh chóng và sai lầm. Nó không hoàn toàn giống nhau, vì nói có một số phép thuật khi đối số đầu tiên của nó là một chốt, nhưng để in thành STDOUT:

sub say {print @_, "\n"}

say 'hello';

Cách bạn viết báo cáo in của mình dài dòng một cách không cần thiết. Không cần phải tách dòng mới thành chuỗi của riêng nó. Điều này là đủ.

print "hello.\n";

Nhận thức này có thể sẽ làm cho việc viết mã của bạn nói chung dễ dàng hơn.

Ngoài việc sử dụng use feature "say"hoặc use 5.10.0hoặc use Modern::Perlđể có được saytính năng tích hợp, tôi sẽ sử dụng perl5i để bật rất nhiều tính năng Perl 5 bị thiếu hợp lý theo mặc định.

Có lẽ bạn muốn thay đổi dấu phân tách bản ghi đầu ra của mình thành dòng cấp dữ liệu:

local $\ = "\n";

$ perl -e 'print q{hello};print q{goodbye}' | od -c
0000000    h   e   l   l   o   g   o   o   d   b   y   e                
0000014
$ perl -e '$\ = qq{\n}; print q{hello};print q{goodbye}' | od -c
0000000    h   e   l   l   o  \n   g   o   o   d   b   y   e  \n        
0000016

Cập nhật: câu trả lời của tôi nói lên khả năng hơn là khả năng tư vấn. Tôi không coi việc thêm "\ n" vào cuối dòng là một việc vặt "khó chịu", nhưng nếu ai đó thực sự muốn tránh chúng, thì đây là một cách. Nếu tôi phải duy trì một chút mã sử dụng kỹ thuật này, có lẽ tôi sẽ cấu trúc lại nó.

Đây là những gì tôi tìm thấy tại https://perldoc.perl.org/perlvar.html :

$ \ Dấu phân tách bản ghi đầu ra cho toán tử in. Nếu được xác định, giá trị này được in sau đối số cuối cùng của bản in. Mặc định là undef.

Bạn không thể gọi output_record_separator () trên một xử lý, chỉ như một phương thức tĩnh. Xem IO :: Xử lý.

Ghi nhớ: bạn đặt $ \ thay vì thêm "\ n" vào cuối bản in. Ngoài ra, nó giống như $ /, nhưng nó là thứ bạn nhận được "trả lại" từ Perl.

thí dụ:

$\ = "\n";
print "a newline will be appended to the end of this line automatically";

Trong Perl 6 có, sayhàm

Nếu bạn bị mắc kẹt với trước 5.10, thì các giải pháp được cung cấp ở trên sẽ không tái tạo đầy đủ saychức năng. Ví dụ

sub say { print @_, "\n"; }

Sẽ không hoạt động với các lời gọi như

say for @arr;

hoặc là

for (@arr) {
    say;
}

... bởi vì hàm trên không hoạt động trên hàm $_like toàn cục ngầm định printvà sayhàm thực .

Để sao chép chặt chẽ hơn perl 5.10+, saybạn muốn chức năng này

sub say {
    if (@_) { print @_, "\n"; }
    else { print $_, "\n"; }
}

Mà bây giờ hoạt động như thế này

my @arr = qw( alpha beta gamma );
say @arr;
# OUTPUT
# alphabetagamma
#
say for @arr;
# OUTPUT
# alpha
# beta
# gamma
#

Nội saytrang trong perl6 hoạt động hơi khác một chút. Gọi nó bằng say @arrhoặc @arr.saysẽ không chỉ nối các mục mảng mà thay vào đó in chúng được phân tách bằng dấu phân tách danh sách. Để sao chép điều này trong perl5, bạn sẽ làm điều này

sub say {
    if (@_) { print join($", @_) . "\n"; }
    else { print $_ . "\n"; }
}

$"là biến phân tách danh sách chung hoặc nếu bạn đang sử dụng English.pmthì là$LIST_SEPARATOR

Bây giờ nó sẽ hoạt động giống perl6 hơn, giống như vậy

say @arr;
# OUTPUT
# alpha beta gamma
#