#!/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][][]