File Coverage

blib/lib/Acme/Lingua/ZH/Remix.pm
Criterion Covered Total %
statement 116 118 98.3
branch 16 20 80.0
condition 24 34 70.5
subroutine 14 14 100.0
pod 3 7 42.8
total 173 193 89.6


line stmt bran cond sub pod time code
1             package Acme::Lingua::ZH::Remix;
2 4     4   268901 use v5.10;
  4         41  
3             our $VERSION = "0.98";
4              
5             =pod
6              
7             =encoding utf8
8              
9             =head1 NAME
10              
11             Acme::Lingua::ZH::Remix - The Chinese sentence generator.
12              
13             =head1 SYNOPSIS
14              
15             use Acme::Lingua::ZH::Remix;
16              
17             my $x = Acme::Lingua::ZH::Remix->new;
18              
19             # Generate a random sentance
20             say $x->random_sentence;
21              
22             =head1 DESCRIPTION
23              
24             Because lipsum is not funny enough, that is the reason to write this
25             module.
26              
27             This module is a L<Moo>-based, with C<new> method being the constructor.
28              
29             The C<random_sentence> method returns a string of one sentence
30             of Chinese like:
31              
32             真是完全失敗，孩子！怎麼不動了呢？
33              
34             By default, it uses small corpus data from Project Gutenberg. The generated
35             sentences are remixes of the corpus.
36              
37             You can feed you own corpus data to the `feed` method:
38              
39             my $x = Acme::Lingua::ZH::Remix->new;
40             $x->feed($my_corpus);
41              
42             # Say something based on $my_corpus
43             say $x->random_santence;
44              
45             The corpus should use full-width punctuation characters.
46              
47             =cut
48              
49 4     4   1288 use utf8;
  4         34  
  4         24  
50 4     4   2274 use Moo;
  4         45240  
  4         22  
51 4     4   8129 use Types::Standard qw(HashRef Int);
  4         301835  
  4         40  
52 4     4   6090 use List::MoreUtils qw(uniq);
  4         35122  
  4         31  
53 4     4   6709 use Hash::Merge qw(merge);
  4         33690  
  4         6035  
54              
55             has phrases => (is => "rw", isa => HashRef, lazy => 1, builder => "_build_phrases");
56              
57             sub _build_phrases {
58 4     4   67 my $self = shift;
59 4         30 local $/ = undef;
60 4         440 my $corpus = <DATA>;
61 4         17 my %phrase;
62 4         22 my @phrases = $self->split_corpus($corpus);
63 4         26 for (@phrases) {
64 2619         5252 my $p = substr($_, -1);
65 2619   100     3273 push @{$phrase{$p} ||=[]}, \$_;
  2619         5900  
66             }
67 4         167 return \%phrase;
68             }
69              
70             sub phrase_count {
71 305755     305755 0 461656 my $self = shift;
72 305755         401334 my %p = %{$self->phrases};
  305755         4464171  
73 305755         2267633 my $count = 0;
74 305755         700472 for(keys %p) {
75 2140261         2623779 $count += scalar @{$p{$_}};
  2140261         3241003  
76             }
77 305755         743803 return $count;
78             }
79              
80 383335     383335 0 1734220 sub random(@) { $_[ rand @_ ] }
81              
82             =head1 METHODS
83              
84             =head2 split_corpus($corpus_text)
85              
86             Takes a scalar, returns an list.
87              
88             This is an utility method that does not change the internal state of
89             the topic object.
90              
91             =cut
92              
93             sub split_corpus {
94 6     6 1 3587 my ($self, $corpus) = @_;
95 6 100       28 return () unless $corpus;
96              
97 5         309 $corpus =~ s/^\#.*$//gm;
98              
99             # Squeeze whitespaces
100 5         12010 $corpus =~ s/(\s|　)*//gs;
101              
102             # Ignore certain punctuations
103 5         516 $corpus =~ s/(——|──)//gs;
104              
105 5         4789 my @xc = split /(?:（(.+?)）|：?「(.+?)」|〔(.+?)〕|“(.+?)”)/, $corpus;
106             my @phrases = uniq sort grep /.(，|。|？|！)$/,
107             map {
108 479         4429 my @x = split /(，|。|？|！)/, $_;
109 479         797 my @r = ();
110 479         911 while (@x) {
111 2846         4297 my $s = shift @x;
112 2846 100       4970 my $p = shift @x or next;
113              
114 2735         4928 $s =~ s/^(，|。|？|！|\s)+//;
115 2735         6511 push @r, "$s$p";
116             }
117 479         6246 @r;
118             } map {
119 479         831 s/^\s+//;
120 479         994 s/\s+$//;
121 479         764 s/^(.+?) //;
122 479         738 $_;
123 5         29 } grep { $_ } @xc;
  1415         1905  
124              
125 5         677 return @phrases;
126             }
127              
128             =head2 feed($corpus_text)
129              
130             Instance method. Takes a scalar, return the topic object.
131              
132             Merge C<$corpus_text> into the internal phrases corpus of the object.
133              
134             =cut
135              
136             sub feed {
137 1     1 1 3596 my $self = shift;
138 1         4 my $corpus = shift;
139              
140 1         2 my %phrase;
141 1         6 my @phrases = $self->split_corpus($corpus);
142              
143 1         4 for (@phrases) {
144 4         14 my $p = substr($_, -1);
145 4   50     7 push @{$phrase{$p} ||=[]}, \$_;
  4         23  
146             }
147              
148 1         23 $self->phrases(merge($self->phrases, \%phrase));
149 1         479 return $self;
150             }
151              
152             sub phrase_ratio {
153 305753     305753 0 483660 my $self = shift;
154 305753         410860 my $type = shift;
155 305753   100     4858509 my $phrases = $self->phrases->{$type}||=[];
156 305753         2029406 my $count = $self->phrase_count;
157 305753 50       612354 return 0 if $count == 0;
158 305753         414405 return @{$phrases} / $count;
  305753         817644  
159             }
160              
161             sub random_phrase {
162 77197     77197 0 114374 my $self = shift;
163 77197         110621 my $type = shift;
164              
165 77197 50 50     101925 return ${ random(@{ $self->phrases->{$type}||=[] }) || \'' };
  77197         100970  
  77197         1216382  
166             }
167              
168             =head2 random_sentence( min => $min, max => $max )
169              
170             Instance method. Optionally takes "min" or "max" parameter as the constraint of
171             sentence length (number of characters).
172              
173             Both min and max values are required to be integers greater or equal to
174             zero. The value of max should be greater then the value of min. If any of these
175             values are invalidate, it is treated as if they are not passed.
176              
177             The default values of min, max are 0 and 140, respectively.
178              
179             The implementation random algorthm based, thus it needs indefinite time to
180             generate the result. If it takes more then 1000 iterations, it aborts and return
181             the results anyway, regardless the length constraint. This can happen when the
182             lengths of phrases from corpus do no adds up to a value within the given range.
183              
184             The returned scalar is the generate sentence string of wide characters. (Which
185             makes Encode::is_utf8 return true.)
186              
187             =cut
188              
189             sub random_sentence {
190 301     301 1 129693 my ($self, %options) = @_;
191              
192 301         766 for my $p (qw(min max)) {
193 602         1070 my $x = $options{$p};
194 602 50 66     2260 unless (defined($x) && int($x) eq $x && $x >= 0) {
      66        
195 402         774 delete $options{$p}
196             }
197             }
198              
199 301 50 66     1238 if (defined($options{max}) && defined($options{min}) && $options{max} < $options{min}) {
      66        
200 0         0 delete $options{max};
201 0         0 delete $options{min};
202             }
203              
204 301   100     1372 $options{min} ||= 0;
205 301   100     971 $options{max} ||= 140;
206              
207 301         507 my $str = "";
208 301         504 my @phrases;
209              
210 301   50     751 my $ending = $self->random_phrase(random(qw/。 ！ ？/)) || "…";
211              
212 301         1126 while ( length($ending) > $options{max} ) {
213 84   50     226 $ending = $self->random_phrase(random(qw/。 ！ ？/)) || "…";
214             }
215              
216 301         828 unshift @phrases, $ending;
217              
218 301         582 my $l = length($ending);
219              
220 301         546 my $iterations = 0;
221 301         439 my $max_iterations = 1000;
222 301         774 my $average = ($options{min} + $options{max}) / 2;
223 301   33     1349 my $desired = int(rand($options{max} - $options{min}) + $options{min}) || $average || $options{max};
224              
225 301         653 while ($iterations++ < $max_iterations) {
226 76812         104333 my $x;
227 76812         103245 do {
228 305753         538769 $x = random('，', '」', '）', '/')
229             } while ($self->phrase_ratio($x) == 0);
230              
231 76812         161405 my $p = $self->random_phrase($x);
232              
233 76812 100       223517 if ($l + length($p) < $options{max}) {
234 3129         6710 unshift @phrases, $p;
235 3129         4483 $l += length($p);
236             }
237              
238 76812         154586 my $r = abs(1 - $l/$desired);
239 76812 100       141272 last if $r < 0.1;
240 76599 100 100     246198 last if $r < 0.2 && $iterations >= $max_iterations/2;
241             }
242              
243 301         1459 $str = join "", @phrases;
244 301         840 $str =~ s/，$//;
245 301         744 $str =~ s/^「(.+)」$/$1/;
246              
247 301 100       886 if (rand > 0.5) {
248 145         407 $str =~ s/(，)……/$1/gs;
249             } else {
250 156         457 $str =~ s/，(……)/$1/gs;
251             }
252              
253 301         1642 return $str;
254             }
255              
256             1;
257              
258             =head1 AUTHOR
259              
260             Kang-min Liu <gugod@gugod.org>
261              
262             =head1 COPYRIGHT
263              
264             Copyright 2010- by Kang-min Liu, <gugod@gugod.org>
265              
266             This program is free software; you can redistribute it a nd/or modify
267             it under the same terms as Perl itself.
268              
269             See L<http://www.perl.com/perl/misc/Artistic.html>
270              
271             =cut
272              
273             # Data coming from Wikisource
274             # http://zh.wikisource.org/zh-hant/%E5%BF%98%E4%B8%8D%E4%BA%86%E7%9A%84%E9%81%8E%E5%B9%B4
275              
276             __DATA__
277             #c9s
278              
279             還不賴，還不賴。還不賴！還不賴？
280              
281             # 前進
282              
283             在一個晚上，是黑暗的晚上，暗黑的氣氛，濃濃密密把空間充塞著，不讓星星的光明，漏射到地上。那黑暗雖在幾百層的地底，也是經驗不到，是未曾有過駭人的黑暗。
284              
285             　　在這被黑暗所充塞的地上，有倆個被時代母親所遺棄的孩童。他倆的來歷有些不明，不曉得是追慕不返母親的慈愛，自己走出家來，也是不受後母教訓，被逐的前人之子。
286              
287             　　他倆不知立的什麼地方，也不知什麼是方向，不知立的地面是否穩固，也不知立的四周是否危險，因為一片暗黑，眼睛已失了作用。
288              
289             　　他倆已經忘卻了一切，心裡不懷抱驚恐，也不希求慰安；只有一種的直覺支配著他們，──前進！
290              
291             　　他倆感到有一種，不許他們永久立存同一位置的勢力。他倆便也攜著手，堅固地信賴、互相提攜；由本能的衝動，向面的所向，那不知去處的前途，移動自己的腳步。前進！盲目地前進！
292              
293             無目的地前進！自然忘記他們行程的遠近，只是前進，互相信賴，互相提攜，為著前進而前進。
294              
295             　　他倆沒有尋求光明之路的意識，也沒有走到自由之路的慾望，只是望面的所向而行。礙步的石頭，刺腳的荊棘，陷人的泥澤，溺人的水窪，所有一切前進的阻礙和危險，在這黑暗統治之下，一切被黑暗所同化；他倆也就不感到阻礙的艱難，不懷著危險的恐懼，相忘於黑暗之中；前進！行行前進，遂亦不受到阻礙，不遇著危險，前進！向著面前不知終極的路上，不停地前進。
296              
297             　　在他倆自始就無有要遵著「人類曾經行過之跡」的念頭。在這黑暗之中，竟也沒有行不前進的事，雖遇有些顛蹶，也不能擋止他倆的前進。前進！忘了一切危險而前進。
298              
299             　　在這樣黑暗之下，所有一切，盡攝伏在死一般的寂滅裡，只有風先生的慇懃，雨太太的好意，特別為他倆合奏著進行曲；只有這樂聲在這黑暗中歌唱著，要以慰安他倆途中的寂寞，慰勞他倆長行的疲憊。當樂聲低緩幽抑的時，宛然行於清麗的山徑，聽到泉聲和松籟的奏彈；到激昂緊張起來，又恍惚坐在卸帆的舟中，任被狂濤怒波所顛簸，是一曲極盡悲壯的進行曲，他倆雖沁漫在這樣樂聲之中，卻不能稍超興奮，併也不見陶醉，依然步伐整齊地前進，互相提攜走向前去。
300              
301             　　不知行有多少時刻，經過幾許途程，忽從風雨合奏的進行曲中，分辨出浩蕩的溪聲。澎澎湃湃如幾千萬顆殞石由空中瀉下。這澎湃聲中，不知流失多少人類所託命的田，不知喪葬幾許為人類服務的黑骨頭；但是在黑暗裡，水面的夜光菌也放射不出光明來，溪的廣闊，不知橫亙到何處。
302              
303             　　他倆只有前進的衝動催迫著，忘卻了溪和水，忘卻了一切。他們倆不是「先知」，在這時候眼睛也不能遂其效用。但是他倆竟會自己走到橋上，這在他們自己一點也沒有意識到，只當是前進中一程必經之路，他倆本無分別所行，是道路或非道路，是陸地或溪橋的意志，前進！只有前進，所以也不擔心到，橋梁是否有斷折，橋柱是否有傾斜，不股慄不內怯，泰然前進，互相提攜而前進，終也渡過彼岸。
304              
305             　　前進！前進！他倆不想到休息，但是在他們發達未完成的肉體上，自然沒有這樣力量──現在的人類，還是孱弱的可憐，生理的作用在一程度以外，這不能用意志去抵抗去克制。──他倆疲倦了，思想也漸糢糊起來，筋骨已不接受腦的命令，體軀支持不住了，便以身體的重力倒下去，雖然他倆猶未忘記了前進，依然向著夢之國的路，繼續他們的行程。這時候風雨也停止進行曲的合奏，黑暗的氣氛愈加濃厚起來，把他倆埋沒在可怕的黑暗之下。
306              
307             　　時間的進行，因為空間的黑暗，似也有稍遲緩，經過了很久，纔見有些白光，已像將到黎明之前。他倆人中的一個，不知是兄哥或小弟，身量雖然較高，筋肉比較的瘦弱，似是受到較多的勞苦的一人，想因為在夢之國的遊行，得了新的刺激，又產生有可供消費的勢力，再回到現實世界，便把眼皮睜開。──因為久慣於暗黑的眼睛，將要失去明視的效力，驟然受到光的刺激，忽起眩暈，非意識地復閉上了眼皮；一瞬之後，覺到大自然已盡改觀，已經看見圓圓的地平線，也分得出處處瀦留的水光，也看得見濃墨一樣高低的樹林，尤其使他喜極而起舞的，是為隱約地認出前進的路痕。
308              
309             　　他不自禁地踴躍地走向前去，忘記他的伴侶，走過了一段里程，想因為腳有些疲軟，也因為地面的崎嶇，忽然地顛蹶，險些兒跌倒。此刻，他纔感覺到自己是在孤獨地前進，失了以前互相扶倚的伴侶，蔥惶回顧，看見映在地上自己的影，以為是他的同伴跟在後頭，他就發出歡喜的呼喊，趕快！光明已在前頭，跟來！趕快！
310              
311             　　這幾聲呼喊，揭破死一般的重幕，音響的餘波，放射到地平線以外，掀動了靜止暗黑的氣氛，風雨又調和著節奏，奏起悲壯的進行曲。他的伴侶，猶在戀著夢之國的快樂，讓他獨自一個，行向不知終極的道上。暗黑的氣氛，被風的歌唱所鼓勵，又復濃濃密密屯集起來，眩眼一縷的光明，漸被遮蔽，空間又再恢復到前一樣的暗黑，而且有漸次濃厚的預示。
312              
313             　　失了伴侶的他，孤獨地在黑暗中繼續著前進。
314              
315             　　前進！向著那不知到著處的道上。……
316              
317             # 南國哀歌/è³´å’Œ
318              
319             所有的戰士已都死去，
320             只殘存些婦女小兒，
321             這天大的奇變，
322             誰敢說是起於一時？
323             人們最珍重莫如生命，
324             未嘗有人敢自看輕，
325             這一舉會使種族滅亡，
326             在他們當然早就看明，
327             但終於覺悟地走向滅亡，
328             這原因就不容妄測。
329             雖說他們野蠻無知？
330             看見鮮紅的血，
331             便忘卻一切歡躍狂喜，
332             但是這一番啊！
333             明明和往日出草有異。
334             在和他們同一境遇，
335             一樣呻吟於不幸的人們，
336             那些怕死偷生的一群，
337             在這次血祭壇上，
338             意外地竟得生存，
339             便說這卑怯的生命，
340             神所厭棄本無價值。
341             但誰敢信這事實裡面，
342             就尋不出別的原因？
343             「一樣是歹命人！
344             趕快走下山去！」
345             這是什麼言語？
346             這有什麼含義？
347             這是如何地悲悽！
348             這是如何的決意！
349             是怨是讎？雖則不知，
350             是妄是愚？何須非議。
351             舉一族自愿同赴滅亡，
352             到最後亦無一人降志，
353             敢因為蠻性的遺留？
354             是怎樣生竟不如其死？
355             恍惚有這呼聲，這呼聲，
356             在無限空間發生響應，
357             一絲絲涼爽秋風，
358             忽又急疾地為它傳播，
359             好久已無聲響的雷，
360             也自隆隆地替它號令。
361             兄弟們！來--來！
362             來和他們一拚！
363             憑我們有這一身，
364             我們有這雙腕，
365             休怕他毒氣、機關鎗！
366             休怕他飛機、爆裂彈！
367             來！和他們一拚！
368             兄弟們！
369             憑這一身！
370             憑這雙腕！
371             兄弟們到這樣時候，
372             還有我們生的樂趣？
373             生的糧食儘管豐富，
374             容得我們自由獵取？
375             已闢農場已築家室，
376             容得我們耕種居住？
377             刀鎗是生活上必需的器具，
378             現在我們有取得的自由無？
379             勞動總說是神聖之事，
380             就是牛也只能這樣驅使，
381             任打任踢也只自忍痛，
382             看我們現在，比狗還輸！
383             我們婦女竟是消遣品，
384             隨他們任意侮弄蹂躪！
385             那一個兒童不天真可愛，
386             凶惡的他們忍相虐待，
387             數一數我們所受痛苦，
388             誰都會感到無限悲哀！
389             兄弟們來！
390             來！捨此一身和他一拚！
391             我們處在這樣環境，
392             只是偷生有什麼路用
393             眼前的幸福雖享不到，
394             也須為著子孫鬥爭。
395              
396             # 忘不了的過年/è³´å’Œ
397              
398             小子不長進，平生慣愛咬文嚼字，「立名最小是文章」，「聲名不幸以詩傳」，這是多麼感慨的話啊！所以不願意側身所謂斯文之列──其實也不能夠──但在不知不覺的中間，也染些牢騷的皮氣（脾氣），偷得空間，便就學起病者痛苦的哀號，呻呻吟吟，自鳴得意，以樂其心志，和其哀情，不顧慮傍人，所謂風家也者，笑掉了齒牙，生性如此，雖用巨磨磨碎了此五尺之軀，使成粉末，乃和以森羅殿的還形復體水，再捏成一個未來生的我，怕也改不脫這個根性。現在只有覺悟，覺悟把臉皮張緊一些，任便人家笑罵，不教臉紅而已。
399              
400             　　「光陰如矢」，這一句千古名言，我近來纔漸漸覺得它的意義，因為番仔過年（新曆新年）看看又要到了。可恨可咒詛的世界人類，尤其是那隆鼻碧瞳的紅毛番，美惡竟不會分別，有最古的文明，禮義之邦的中國，自很古就有完美的曆法，他們偏不採用，反採用那四季不調和，日月不相望的什麼新曆法，使得我們也不能不跟他多一次麻煩。但這是所謂大勢，說是沒有法子的事，除廢掉舊曆，奉行正朔，和他們做新過年。唉！這是多麼傷心的事啊！
401              
402             　　在我未曾學過遊歷、視察、觀光的人，別地方是什麼樣子，我不明白，只在我們貴地，一到過年，不論什麼階級的人，精神上多有些緊張，行動上也有些忙碌，有的人，多半是閒著享福的人，和純真的孩童們，總在等待過年的快樂，但在手面趁吃人，不能不倍加他的工作，預備些新正年頭無工可做時的糧食，做事業的人們，也要計算他一年的成績，用以決定後來的經營方針，農民播種犁田，要趁節氣，猶不能放他們一刻空閒，就是那些文人韻士，也在腹中起草他「願與梅花共自新」一類的試筆詩，頂可憐的就是女人家了，過年種種的預備，務使春風吹來，家門有興騰的氣象，且新正閒著的時候，自己一身也不容不修飾，對男人怕失了他的玩愛，對同伴們要顯示她得到男人的憐惜。所以家裡市上，多亂惱惱地熱鬧著，新聞雜誌也各增刊而特刊，小子也乘這機會寫出這篇亂七倒八的文字。
403              
404             　　究竟為的是什麼，何以故過年就要如此呢？新年的一日，和別的其餘的一日，也不是依然一日嗎？人們怎地在心境上，就有這樣的不同？唉！春五正月，這不是和舊時代的天子，與小百姓的關係一樣？
405              
406             　　　　………………
407              
408             　　什麼就是一年？天文學者的解釋說：「地球繞著太陽，運行了一個週環。」這是經過科學的證明，沒有錯誤的確定事實。
409              
410             　　但現在的曆法，在我的知識程度裡，曉得有回、中、西三種，尚有住在山內那些我們的地主，也有他們一種曆，這說是野蠻的慣習，人們不預承認，在他們社會裡，卻自奉行唯謹。現在只就所謂有相當文化的根據，那三種曆法，略一對比，就使我發生了許多疑問，因為所規定的過年，完全不同日子，同在這顆地球上，地球也規矩地循著唯一的軌道，輾轉運行，怎地所說的一週會不同？若說因所認定的起始點，互有參差，故過年的規定遂各不同，那末地球運行最初，由何處開始？這一點不能明白，就可自由假設嗎？我要替地球提出抗議哩。
411              
412             　　且中曆我也在書本上，看見有幾次的變遷，什麼建子、建丑、建寅，一年的設定，原無有確實的根據標準，不過隨意做作而已，也不是什麼大不了的事，何故世上的人類們，對著它有這麼大的感情？試把這箇假定廢掉，使人們沒有年歲的感覺，不是一件很合理得快活的事嗎？沒有年歲，不見得人們就活不下去，何用自作麻煩。
413              
414             　　在幾千年前，當科白尼還未出世，大家猶信奉天圓地方，日月星辰是天空的附屬物的時代，日頭是自東徂西，自然不曉得地球是遵著軌道，在環繞太陽運轉，那時代的一年，以什麼為標準？天體的現象嗎，用什麼做根據？唉！這指定一箇日子為過年，和由無量數的人類中，教幾個人去做官一樣，終是不可解的疑問。
415              
416             　　　　………………
417              
418             　　一到過年，第一浮上我的思想，就是金錢。在我回憶裡，所能喚起的兒童時代，僅七、八歲時的狀況，在以前任怎地追憶，也只有朦朧一箇暗影而已。我在兒童時代，所以喜歡過年的來到，也因為能得到較多的金錢，可以借它的魔力，來增強我快樂的濃度。過年，在家裡有壓歲錢的分賜，由祖父母、爹媽、叔嬸，啊！手一插進衣袋，不用摸索，就可觸到金錢，唉！那時的快樂真有…但心還未足，有時再往親戚家去，借著拜年的名目，騙些「掛頷錢」（註一），親戚們多贊稱我，說我乖巧識禮，因為這是親戚間，一箇來往的禮節，不曉得我的目的，是在「掛頷錢」，人們又在禮讚兒童的天真聖潔。唉！禮這一字是很可利用的東西，不曉得誰創造的，我要頂禮他啊！
419              
420             　　現在的我，是社會的一成員，人類的一分子了。快樂的追求，金錢的慾念，比較兒童時代，強盛到肉體的增長，多有一百倍以上。一到過年，金錢的問題，也就分外著急，愈著急愈覺得金錢的寶貴，愈覺得金錢的寶貴，金錢愈不能到手，也就為痛苦所脅迫了。又有不可得的快樂，在一邊誘惑我，那痛苦就更難堪了。我向來以為賺錢不是難事，「春錢」（剩錢）那更不成問題，若會賺錢，怕他不「春」？有「春」錢立地就成富豪勢力家，也就可以得到百般的快樂。現在可把我以前的思想，完全打消了，愈會賺錢，愈覺用錢的事故愈多，「春」錢的可能性愈少，富豪是先天所賦與，不是寒酸相的人可以昇格充數。愈要追尋快樂，愈會碰著痛苦。唉！
421              
422             　　統我的一生──到現在，完全被過年和金錢所捉弄，大概到我生的末日也還是這樣罷。思想中只感覺年歲的川流，不斷地逝去，夢寐中也只見得金錢的寶光，在閃爍地放亮。既不能把它倆，由我的生的行程中，將腦髓裡驅逐，只有乘這履端初吉，捧出滿腔誠意，拜倒在歲星和財神寶座之下而已。
423              
424             　　　　　一寸光陰一寸金，
425              
426             　　　　　 黃金難買少年心。
427              
428             　　　　　少年已去金難得，
429              
430             　　　　　………………。
431              
432             #鬥鬧熱/è³´å’Œ
433              
434             拭過似的、萬里澄碧的天空，抹著一縷兩縷白雲，覺得分外悠遠，一顆銀亮亮的月球，由深藍色的山頭，不聲不響地，滾到了天半，把她清冷冷的光輝，包圍住這人世間，市街上罩著薄薄的寒煙，店舖簷前的天燈，和電柱上路燈，通溶化在月光裡，寒星似的一點點閃爍著。在冷靜的街尾，悠揚地幾聲洞簫，由著裊裊的晚風，傳播到廣大空間去，似報知人們，今夜是明月的良宵。這時候街上的男人們，似皆出門去了，只些婦女們，這邊門口幾人，那邊亭仔腳幾人，團團地坐著，不知談論些什麼，各個兒指手畫腳，說得很高興似的。
435              
436             　　有一陣孩子們，哈哈笑笑弄著一條香龍，由隘巷中走出來，繞著亭仔腳柱，繞來穿去。
437              
438             　　「厭人，」一婦人說，「到大街上玩去罷，那邊比較鬧熱。」
439              
440             　　孩子們得到指示，嬉嬉譁譁地跑去了。
441              
442             「等一會，」一個較大的孩子說，「我去拿一面鑼來。」
443              
444             　　「好，很好，快來，趕快。」孩子們雀躍地催促著說。
445              
446             　　快快快快（鑼的響聲，不知有什麼適當的字），銅鑼響亮地敲起來，「到城裡去啊！」有的孩子喊著，「好啊，去啊！」「來來！」一陣吶喊的聲浪，把孩子們和一條香龍，捲下中街去。
447              
448             　　過了些時，孩子們垂頭喪氣跑回來，草繩上插的香條，拔去了不少，已不成一條龍的樣子，鑼聲亦不響了，有的孩子不平地在罵著叫喊著。
449              
450             「鬧出什麼事來？」有些多事的人問。
451              
452             　　「被他們欺負了，他媽的！」孩子們回答著，接著又說，「把我們龍頭割去！」
453              
454             　　「汝們吵鬧過人家罷？」有人詰責似的問。
455              
456             「沒有！我們是在空地上，」孩子們辯說，「又受了他們一頓罵！」
457              
458             　　「那邊有些人，本來是橫逆不過的。」又一人說。
459              
460             「蹧躂人！」又有人不平地說，「不可讓他佔便宜。」
461              
462             　　「孩子們的事，管他做甚？」有人又不相關的說──一時議論沸騰起來，街上頓添一種活氣，有人說：「十五年前的熱鬧，怕大家都記不起了，再鬧一回亦好。」有人說：「要命，鬧起來怕就不容易息事。」──明月已漸漸斜向西去，籠罩著街上的煙，濛迷地濃結起來，燈火星星地，在冷風中戰慄著，街上佈滿著倦態和睡容，一綵綵霜痕，透過了衣衫，觸進人們的肌膚，在成堆的人們中，多有了袖著手、縮著頸、聳著肩、伸著腰、打呵欠的樣子。議論已失去了熱烈，因為寒冷和睡眠的催促，雖未見到結論，人們也就三三五五的散去。
463              
464             　　隔晚，那邊也有一陣孩子們的行列，鬧過別一邊去，居然宣佈了戰爭，接連鬥過兩三晚，已經因「囝仔事惹起大人代」。
465              
466             　　一晚上，一邊的行列，被另一邊阻撓著，因一邊還都屬孩子，擋不住大的拳頭，雖受過欺負，只有含恨地隱忍而已。──像這樣子鬧下去，保不定不鬧出事來，遂有人出來阻擋，鬧熱也就沒得結局了。
467              
468             　　一邊就以為得到了勝利──在優勝者的地位，本來有任意凌辱壓迫劣敗者權柄。所以他們不敢把這沒出處的威權，輕輕放棄，也就忠實地行使起來。可不知道那就是培養反抗心的源泉，導發反抗力的火戰。一邊有些氣憤不過的人，就不能再忍住下去了。約同不平者的聲援，所謂雪恥的競爭，就再開始。──一邊，是抱著滿腹的憤氣，一邊，是「儉腸捏肚也要壓倒四福戶」（諺語）的子孫，遺傳著有好勝的氣質。所以這一回，就鬧得非同小狗（瘋狗）了。但無錢本來是做不成事，就有人出來奔走勸募。雖亦有人反對，無奈群眾的心裡，熱血正在沸騰，一勺冰水，不是容易就能奏功，各要爭個體面，所有無謂的損失，已無暇計較。一夜的花費，將要千圓。又因接近街的繁榮日，一時看鬧熱的人，四方雲集，果然市況一天繁榮似一天。
469              
470             　　在一處的客廳裡，有好些個等著看鬧熱的人，坐著閒談。
471              
472             　　「唉！我記得還似昨天，」甲微喟的說，「怎麼就十五年了。」
473              
474             　　「歲月真容易過！」乙感嘆地說，「那時代的頭老醉舍（頭老，地方領導人。舍，對搢紳子弟或有錢人的尊稱。），已經財散人亡，現在想沒得再一個，天天花費三兩百圓不要緊的。」
475              
476             　　「實在是無意義的競爭，」丙喝一喝茶，放下茶杯，慢慢地說，「在這時候，救死且沒有工夫，還有閒時間，來浪費有用的金錢，實在可憐可恨，究竟爭得是什麼體面？」
477              
478             　　「樹要樹皮人要麵皮，」甲興奮地說，「誰甘白受人家的欺負，不要爭一爭氣，甘失掉了麵皮！」
479              
480             　　「什麼是麵皮？」丙論辯似的說，「還有被人家欺辱得不堪的，卻自甘心著，連哼的一聲亦不敢，說什麼爭氣，孩子般的眼光，值得說什麼爭麵皮！」
481              
482             　 「現時可說比較好些兒，」一個有年紀的人，阻斷爭論，經驗過似的鄭重說，「像日本未來的時，四城門的競爭，那纔利害啦！」
483              
484             　　「什麼樣子，那時候？」一個年輕的稀奇地問。
485              
486             　　「唉！」老人感慨地說，「那時代，地方自治的權能，不像現時剝奪得淨盡，握著有很大權威，住在福戶內的人，不問是誰，福戶內的事，誰都有義務分擔，有什麼科派捐募，是不容有異議，要是說一聲不肯，那就刻不能住這福戶內，所以窮的人，典衫當被，也要來和人家爭這不關什麼的臉皮。」
487              
488             　　「聽說有一樁可憐可笑的，」乙接著嘴說，「西門那賣點心的老人，五十塊的老本（終老喪費）和一圈豚，連生意本，全數花掉，還再受過全街的嘲笑。」
489              
490             　　「實在也就難怪，」甲吐出那飽吸過的香煙，在煙縷繚繞的中間，張開他得意的大口，「前回不是因得到勝利（他一人的批判），所以那邊的街市，就發達繁昌起來，某某和某等，不是皆發了幾十萬，真所謂狗屎埔變成狀元地。」
491              
492             　　「就說不關什麼，」一位像有學識的人說，「也是生活上一種餘興，像某人那樣出氣力的反對，本該挨罵。不曉得順這機會，正可養成競爭心，和鍛鍊團結力。」
493              
494             　　「這回在奔走的人，」乙說，「不是有學士有委員，中等學校卒業生和保正，不是皆有學問有地位的人士，他偏說這是無知的人所做的野蠻舉行，要賣弄他自己的聰明。」
495              
496             　　「他說人們是在發狂，他正在發瘋呢。」甲哈哈地笑著說。
497              
498             「聽說市長和郡長，都很讚成，」乙說，「昨晚曾賜過觀覽，在市政廳前和郡衙前，放不少鞭炮，在表示著歡迎。」
499              
500             　　「那末汝以為就是無上光榮了？」丙可憐似的說。
501              
502             　　「能夠合官廳的意思，那就....。」甲說，「他媽的，看他有多大力量能夠反對！」
503              
504             　　「聽說有人在講和，可能成功嗎？」老人懷疑地問。
505              
506             　　「他媽的，」甲憤憤地罵，「花各人自己的錢，他不和人家分擔，不趕他出去，也就便宜，要硬來阻礙別人的興頭，他媽的！」
507              
508             　　「明夜沒得再看啦！」纔進屋子來的一個人說。
509              
510             「什麼？」丙驚疑地問，「聽說因了某某的奔走，已不成功了，怎麼樣就講和？」
511              
512             　　「人們多不自量，」進來的人說，「他叩了不少下頭，說了不少好話，總值不得市長一開口，他那麼盡力，不能成功，剛纔經市長一說，兩方就各答應了。」
513              
514             　　「怎麼就這樣容易？」丙說，「實在想不到！」
515              
516             　　「因為不高興了。」那人道，「在做頭老的，他高興的時候，就一味地吶喊著，現在不高興了，就和解去。」
517              
518             　　「下半天的談判，不是誰都很強硬嗎？」丙問。
519              
520             　　「死鴨子的嘴吧，」那人說，「現在小戶已負擔不起，要用到他們頭老的錢了。還有不講和的？」
521              
522             　　「早幾點鐘解決，」乙說，「一邊就可省節六、七百塊，聽說路關鐘鼓，已經準備下，這一筆錢就白花的啦！」
523              
524             　　「我的意見，」丙說，「那些富家人，花去了幾千塊，是算不上什麼。他們在平時，要損他一文，也是不容易，再鬧下去，使勞者們，多得一回賣力的機會，亦不算壞。」
525              
526             　　「汝算不到，」老人說，「抵當賓客的使費，在貧家，也就不容易，一塊錢，現在不是糴不到半斗米？」
527              
528             　　「他媽的，老不死的混蛋！」甲總不平地罵。
529              
530             　　鬧熱到了，街上的孩子們在喊。這些談論的人，先先後後，亦都出去了，屋裡頭只留著茶杯、茶瓶、煙草、火柴在批評這一回事，街上看鬧熱的人，波湧似的，一層層堆聚起來。
531              
532             　　翌日，街上還是鬧熱，因為市街的鬧熱日，就在明后兩天。──人們的信仰，媽祖的靈應，是策略中必需的要件；神輿的繞境，旗鼓的行列，是繁榮上頂要的工具──真的到那兩天，街上實在繁榮極了。第三天那些遠來的人們，不能隨即回家，所以街上還見得鬧熱，一到夜裡，在新月微光下的街市，只見道路上映著剪伐過的疏疏樹影，還聽得到幾聲行人的咳嗽，和狺狺的狗吠，很使人戀慕著前天的鬧熱。