split() nhưng giữ dấu phân tách

Question

Tôi chưa từng sử dụng Perl trước đây và tôi có một câu hỏi cơ bản.

my $string1 = "Hi. My name is Vlad. It is snowy outside."; 

my @array = split('.' $string1); ##essentially I want this, but I want the period to be kept 

Tôi muốn chia chuỗi này thành '.' Nhưng tôi muốn giữ thời gian. Làm thế nào điều này có thể được thực hiện?

Answer 1

Bạn có thể sử dụng lookbehind để làm điều này:

split(/(?<=\.)/, $string) 

Regex khớp với một chuỗi trống sau một khoảng thời gian.

Nếu bạn muốn xóa khoảng trắng giữa câu cùng một lúc, bạn có thể thay đổi nó thành:

split(/(?<=\.)\s*/, $string) 

tích cực và tiêu cực lookbehind được giải thích here

Answer 2

Nếu bạn không nhớ các giai đoạn được chia thành các yếu tố riêng của họ trong mảng, bạn có thể sử dụng dấu ngoặc đơn để nói chia tay để giữ cho chúng:

my @array = split(/(\.)/, $string);