古い記事
ランダムジャンプ
新しい記事
長いことPerlを使っているけど、いまさらながらちょっとはまったのでメモ。
いままで気にせずにやってたけど、必要なときもある。

サンプルスクリプト:
#!/usr/bin/env perl
use strict;
use warnings;

my $text = "this
is
a
pen


"; # 末尾に空行が2行

# 普通に split
print join("", map {"[$_]"} split(/\n/, $text))."\n";

# split の第二引数に -1
print join("", map {"[$_]"} split(/\n/, $text, -1))."\n";

# ファイル末尾が改行だと1行余分になるので削る
chomp $text;
print join("", map {"[$_]"} split(/\n/, $text, -1))."\n";

実行結果:
[this][is][a][pen]
[this][is][a][pen][][][]
[this][is][a][pen][][]
Amazonタイムセール祭り