Dizgiler içeren bir dizgeyi, dizilerdeki elemanlarla yeni satırlarla yeni satırlarla nasıl dönüştürebilirim? Bu dikkate ÖrneğinDizgilerle satırlarla Skaler
:
$lines = "line 1\nline 2\nline 3\n";
Bunu almak istiyorum:
$lines[0] --> "line 1\n"
$lines[1] --> "line 2\n"
$lines[2] --> "line 3\n"
İdeal olarak, ben aray elemanları, newline tutmak istiyorum.
Kullanım split:
my @lines = split(/\n/m, $lines);
DÜZENLEME: Açıklamalarda belirtildiği gibi /^/m üzerine, bölünmüş yeni satır tutmak, ya da başka bir cevapta belirtildiği gibi, sıfır genişlikli olan ileriye dönük kullanmak.
Tek yol split sonra map kullanmaktır.
use warnings;
use strict;
my $lines = "line 1\nline 2\nline 3\n";
my @lines = map { "$_\n" } split /\n/, $lines;
Teşekkürler, bana biraz ilerlemiş (Perl acemi) gibi görünüyor, ama kesinlikle araştırmak için bir şey, asla harita kullandım. –
Rica ederim. Başımı 'map' etrafında sarmak biraz zamanımı aldı, ama şimdi sahip olduğum, sık sık kullandım. Bir dizinin (veya listenin) her elemanı üzerinde bir işlem yapmak olarak düşünün. Bu durumda, sadece her satıra '\ n' ekliyorum. – toolic
@new 'map' oldukça kullanışlı ve göründüğü kadar zor değil. Kullanmayı öğrenmenizi tavsiye edebilirim. – TLP
Sen bölünmüş, newline korumak için arkada bir görünüm negatif kullanabilirsiniz:
@lines = split /(?<=\n)/, $lines;
+1 Harika cevap. –
başka yolu da, split olmadan:
use warnings;
use strict;
my $lines = "line 1\nline 2\nline 3\n";
my @lines = $lines =~ /(.*\n)/g;
teşekkür ederiz. Sadece durumda: yeni hattı tutmak mümkün mü? Ve üzgünüm, cevabın daha açık olduğunu beyan etmeliydim. –
Bunun yerine/^/m 'üzerinde bölmeyi deneyin. –
Teşekkürler @Jim Davis, iyi çalışıyor. Sıfır genişlikli maç, zeki fikir. –