たつをの ChangeLog : 2017-01-19

10月下旬に当ブログのAdSense広告をやめてみてから3ヶ月弱になります。調べてみたらここ最近の収益額がほぼゼロになってました。ときどき、キャッシュ経由なのか少しクリックが発生してますが。



以上、あたりまえの事実についての報告でした。

関連記事

• 日本での開始当初から当ブログに貼っていたアドセンスをやめてみた[2016-10-24-2]

長いこと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][][]