Làm cách nào để xuất danh sách dưới dạng giá trị được phân tách bằng dấu phẩy trong Perl?

Question

Hãy nói rằng tôi có một danh sách các yếu tố

@list=(1,2,3); 
#desired output 
1,2,3 

và tôi muốn in chúng như các giá trị dấu phẩy tách ra. Quan trọng nhất, tôi không muốn phần tử cuối cùng có dấu phẩy sau nó.

Cách sạch nhất để làm điều này trong Perl là gì?

Answer 1

print join(',', @list), "\n"; 

Answer 2

join(',', @list); 

Answer 3

Tham gia danh sách bằng dấu phẩy.

@list=(1,2,3); 
$output = join(",",@list); 

Answer 4

Bạn có một số tùy chọn. Các chung nhất là tham gia cùng họ với join chức năng:

print join(',', @list), "\n"; 

Một cách khác là để sửa đổi special variables, mà ảnh hưởng đến print tuyên bố. Ví dụ, tác động của một trên có thể đạt được với

$, = ","; 
$\ = "\n"; 
print @list; 

Bạn cũng có thể tự động gia nhập danh sách nếu nó trải dụng dấu ngoặc kép mở rộng:

$" = ","; 
print "@list","\n"; 

Lưu ý rằng nếu bạn sửa đổi các biến đặc biệt như $, , $\ hoặc $", bạn đặt chúng trên toàn cầu. Để tránh điều đó, hãy sử dụng từ khóa local và bao gồm toán hạng trong một khối.

Answer 5

Đối với trường hợp đơn giản, join là hoàn hảo.

Nhưng nếu bạn muốn tạo hoặc phân tích cú pháp tệp CSV, bạn nên sử dụng Text::CSV. Nó sẽ xử lý trích dẫn và thoát khỏi dấu phẩy và tất cả các loại vấn đề độc hại khác cho bạn. Nó cũng rất nhanh.