Vô hướng với các dòng để mảng

Question

Làm cách nào tôi có thể chuyển đổi một vô hướng chứa chuỗi có dòng mới trong một mảng với các dòng đó thành các phần tử?

Ví dụ, xem xét điều này:

$lines = "line 1\nline 2\nline 3\n"; 

Tôi muốn lấy này:

$lines[0] --> "line 1\n" 
$lines[1] --> "line 2\n" 
$lines[2] --> "line 3\n" 

Lý tưởng nhất, tôi muốn giữ xuống dòng trong các yếu tố aray.

Answer 1

Sử dụng split:

my @lines = split(/\n/m, $lines); 

EDIT: để giữ cho dòng mới, tách trên /^/m như đã đề cập trong các ý kiến, hoặc sử dụng một zero-width nhìn phía sau, như đã đề cập trong câu trả lời khác.

Answer 2

Một cách là sử dụng split rồi map.

use warnings; 
use strict; 

my $lines = "line 1\nline 2\nline 3\n"; 
my @lines = map { "$_\n" } split /\n/, $lines; 

Answer 3

Bạn có thể sử dụng một cái nhìn phía sau tiêu cực để bảo tồn xuống dòng trong phân chia:

@lines = split /(?<=\n)/, $lines; 

Answer 4

Một cách khác, mà không split:

use warnings; 
use strict; 

my $lines = "line 1\nline 2\nline 3\n"; 
my @lines = $lines =~ /(.*\n)/g;