探検


新しくperlで標準で欲しい関数は?

02/04/28 22:06ID:???
switch欲しい……
サブルーチンで作ってみようと努力したが構造的に不可能だった鬱
02/04/28 22:16ID:???
>>83
Exegesesを見る限り、destructive sortがPerl6に取り込まれる可能性はなさそう。

>>84
Perl5では、外部モジュールで。
http://search.cpan.org/search?dist=Switch

Perl6では、givenという名前で組み込まれる予定です。
(switchと命名されなかったのは、C/C++/Javaのswitchとは違うということを際立たせるためだそうで)
http://www.perl.com/pub/a/2002/01/15/apo4.html?page=2#rfc%20022:%20control%20flow:%20builtin%20switch%20statement
用例 http://www.perl.com/lpt/a/2002/04/01/exegesis4.html
欲張りすぎて、ちょっとわかりににくひ。(組み合わせが23通りもあるのかよ...)
86nobodyさん
垢版 |
02/04/29 11:52ID:5LS+M/ng
うるせーバカ。
初心者は黙ってろ スレのレベルが下がる


02/04/29 12:30ID:???
>>86←典型例
88nobodyさん
垢版 |
02/04/29 12:32ID:5LS+M/ng
>>87
必死だな。誰かさん(大爆笑)
02/04/29 14:52ID:???
>(大爆笑)
ヤフーに帰れ
90nobodyさん
垢版 |
02/04/29 19:01ID:NmdFgil6
>>89
必死だな。誰かさん(大爆笑)


02/04/29 19:09ID:???
>>90
必死だな。誰かさん(大爆笑)
92nobodyさん
垢版 |
02/04/29 19:17ID:NmdFgil6
>>91
必死だな。誰かさん(大爆笑)





02/04/29 20:07ID:???
>>92
乙武必死だな(藁
94乙武
垢版 |
02/04/29 21:16ID:???
必死で生きてますが何か?
95nobodyさん
垢版 |
02/04/29 21:43ID:NmdFgil6
(゚Д゚)ハァ? しねばぁ?
NGNG
あぼーん
97not 83
垢版 |
02/04/30 11:53ID:9z6SUNiy
>>85
> Exegesesを見る限り、destructive sortがPerl6に取り込まれる可能性はなさそう。

そうなんですか。むむー。
せめてsortを多重定義できればいいんですがねぇ。tieのSORTでもいいですが。

それにしても新構文はかなり奇怪ですなあ。
↓かなり驚きましたよ。

if @array =~ $elem {...} # true if @array contains $elem

if $key =~ %hash {...} # true if %hash{$key}

if $value =~ (1..10) {...} # true if $value is in the list

if $value =~ ('a',/\s/,7) {...} # true if $value is eq to 'a'
# or if $value contains whitespace
# or if $value is == to 7
98nobodyさん
垢版 |
02/05/01 04:48ID:HoZj1fyx
標準関数よりも、標準ライブラリを充実させて欲しい
シェルもろくに使えない奴らに「複雑な設定が必要」なんて言われもない
批判を受けるのはもういやだ。
99nobodyさん
垢版 |
02/05/01 23:31ID:ZTriJMsX
女性の股を開く関数。

もしくは、チョンを殺してくれる関数。
100nobodyさん
垢版 |
02/05/01 23:34ID:???
>>98
これ以上ブクブク太らせて楽しい?
101nobodyさん
垢版 |
02/05/02 04:25ID:Opu6NMoF
>>97
しんだらぁ?
02/05/03 05:12ID:???
>>85

そうにゃんだ。残念。
でも明快なお答えをありがとう。

>>100
ぜい肉をとるために、getほにゃららっていう network 関連の関数を
モジュールに追い出すべきという意見はどうでしょう。
103nobodyさん
垢版 |
02/05/03 13:14ID:???
・ネットワーク関連の関数をモジュールに追い出し
・数学関数をモジュールに追い出し
・format writeはイラネーヨ

104nobodyさん
垢版 |
02/05/05 19:28ID:???
いっそのこと関数全部モジュールに追い出してしまえ!
105nobodyさん
垢版 |
02/05/05 20:11ID:???
>>104
C言語ライクで良い感じですな。
106nobodyさん
垢版 |
02/05/06 21:30ID:uN5rTlAV
>>100
痩せすぎているので、少しは太れよってみんなから言われるよ
107nobodyさん
垢版 |
02/05/07 20:48ID:NQEaYM+J
sage
108nobodyさん
垢版 |
02/05/08 13:20ID:???
そういうセリフ吐く奴ってoffで合うと大概口だけいかにももててますアピールの
きもい系のヤシなんだよねw
109nobodyさん
垢版 |
02/05/08 19:53ID:???
/bin/grepを呼ぶのにエスケープの手間がかかるんで
ファイルからgrepする関数が欲しい。
@res = fgrep(/hoge/, /\.log$/,"/var/log/");
みたいな。
110nobodyさん
垢版 |
02/05/08 20:18ID:???
>>109
それこライブラリの仕事だろ。
それ以前にgrepとfgrepという全く別の関数が存在することも大いに問題だし。
どうしてもというならShell.pmでも使っとけ。

#!/bin/perl
use Shell qw(fgrep);
$ENV{PATH} = '/bin';
@res = fgrep 'hoge', '/var/log';
111nobodyさん
垢版 |
02/06/24 20:29ID:???
今は Time::Local があるからまあ許すが
その昔なぜ localtime が標準で実装されてて timelocal がなかったのか不思議だ。
112nobodyさん
垢版 |
02/11/25 09:32ID:ftkefb9E
Thread.pmがActivePerlでまともに使えるようになってほしい。
Perl5.8.0ではちゃんと動くのか?
113nobodyさん
垢版 |
02/11/25 20:58ID:???
mmapを標準関数、もしくはcore moduleでおねがいぃ
114nobodyさん
垢版 |
02/11/27 00:59ID:???
god("jpeg画像を120*120にリサイズする");
god("テキトーなデザインを出力する");
god("このソースが人に読まれない");

っていうのが欲しいです。
115nobodyさん
垢版 |
02/12/11 10:58ID:00jmHk8S
CSVファイルを扱う関数。
任意の項目によるソートとかいろいろ。
116nobodyさん
垢版 |
02/12/11 22:50ID:???
>115
DBD::CSV使えば?
117nobodyさん
垢版 |
02/12/12 07:00ID:???
>>116
DBIモジュールが標準モジュールになったら使うよ。
118nobodyさん
垢版 |
02/12/15 16:09ID:???
>>49
俺様の力作使ってはくれまいか?
sub merge
{
return(@_);
}
119nobodyさん
垢版 |
02/12/16 10:19ID:YT4sQXgY
↑すごいYO!
120nobodyさん
垢版 |
02/12/16 23:14ID:???
>>118
usage:
%c = merge ( %a, %b );

こんな感じ?
確かにシンプルだ……。
>>49は、キーがかぶった場合の仕様を作らなかったから、これでもいいと言える。
勉強になります。
121nobodyさん
垢版 |
03/01/12 02:03ID:qwhpCAH/
marge関数はPerl6で追加を検討しているらしい。
http://allabout.co.jp/computer/cgiperl/closeup/CU20010731A/index_2.htm
122nobodyさん
垢版 |
03/01/12 17:53ID:???
use Benchmark;
timethis(20000, sub{ -f 'index.html'});
exit;

timethis 20000: 10 wallclock secs ( 9.77 usr + 0.00 sys = 9.77 CPU) @ 2047.08/s (n=20000)
遅すぎ、、、
もっと速くしてくれ。
123nobodyさん
垢版 |
03/01/12 19:13ID:bGDRedPP
>>49 >書いても3行なんですけどね。
%c = ( %a, %b );

どこらへんに三行要るんだろう?
124ぺるにゃん
垢版 |
03/01/12 19:22ID:3H9ULczA
>>122
これは、
OSに処理を依頼しているわけですから、
どの言語でやっても遅くなると思いますよ。
125122
垢版 |
03/01/12 19:27ID:???
>>124
そうなのですか、、、
うぅ、残念です。
126ぺるにゃん
垢版 |
03/01/12 21:03ID:3H9ULczA
>>123
元質問のひとは、一時的にメモリにギュバーっと展開しちゃうのは
嫌なのではないでしょうか
127nobodyさん
垢版 |
03/01/13 00:18ID:KvjrngEn
Perlはじめたころ println() が欲しかった。
今でも欲すぃ
128nobodyさん
垢版 |
03/01/13 01:32ID:???
php() PHPが使える関数
129nobodyさん
垢版 |
03/01/13 02:03ID:/r5THG1/
ていうか

ネットワーク関連のいらない関数ステロ!
130nobodyさん
垢版 |
03/01/13 05:39ID:9OqkABMV
Math.max()
Math.min()
03/01/14 10:29ID:???
5.8で標準モジュールに追加されたList::UtilとScalar::Utilは便利なんだけど、
Scalar::Utilは実装のほとんどをList::Utilに頼ってるんだから、
一緒にしてUtilityとでもすればよかったと思う。

>>121
mergeってC++のSTLにあるような関数だと思うけど。

>>129
そうだね、どうせuse Socketしないとまともに使えないんだから、
Socketモジュールに入れても混乱は少ない気がする。
132nobodyさん
垢版 |
03/01/14 21:29ID:???
>>130
Math.mid()はいらんのか?
133山崎渉
垢版 |
03/01/15 13:33ID:???
(^^)
134nobodyさん
垢版 |
03/01/27 21:06ID:???
Math.ave()

135山崎渉
垢版 |
03/03/13 17:49ID:???
(^^)
136山崎渉
垢版 |
03/04/17 12:14ID:???
(^^)
137山崎渉
垢版 |
03/04/20 06:19ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
138山崎渉
垢版 |
03/05/22 02:20ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
139nobodyさん
垢版 |
03/05/22 22:45ID:???
PHPのurlencode
htmlspecialchrs
nl2br
っていうか、自分でこしらえたけど
140nobodyさん
垢版 |
03/05/25 07:07ID:???
use CGI
141山崎渉
垢版 |
03/05/28 17:10ID:???
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉
142山崎 渉
垢版 |
03/07/15 11:24ID:???

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄
143山崎 渉
垢版 |
03/08/02 02:29ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
03/09/02 16:50ID:???
けっとばすぞ〜
145nobodyさん
垢版 |
04/01/09 07:38ID:???
塗る歩禁止!
146nobodyさん
垢版 |
04/12/21 18:37:46ID:Ctl+24VT
配列の要素の最大値や最小値を返す関数とか。

あったっけ。
147nobodyさん
垢版 |
04/12/22 05:24:08ID:???
今の関数使えたらなんでもいいけど
PHPの真似だけはしてほしくないね
148nobodyさん
垢版 |
04/12/24 19:51:15ID:???
>>146
List::Util
でいいじゃん。
149nobodyさん
垢版 |
04/12/28 23:22:04ID:???
どんな改行コードでもchompしてくれる関数。
・・・ってか、自作した。
150nobodyさん
垢版 |
05/01/01 22:52:21ID:???
>>149
そんな関数いらね
151nobodyさん
垢版 |
05/01/02 20:00:36ID:???
>>150
漏れの場合、なければ仕事にならん・・・。
152nobodyさん
垢版 |
05/01/02 23:43:57ID:???
>>151
いらないと言ったのは
わざわざPerl側で用意するほどの関数ではないという意味だ
153nobodyさん
垢版 |
05/01/03 13:01:46ID:???
>>152
なるほど
確かに簡単な処理で何とかなるが、速度面が心配でな・・・。
chompのリプレースって事ならあってもイイと思ったんだが、どうよ。
154nobodyさん
垢版 |
05/01/05 09:38:00ID:???
>>153
確かに今使ってるのよりも処理が速くなればそれに越したことはないな
ただPerl側であまり用意すると便利な反面、コードの理解力を落とすから
そのバランスだよね
155nobodyさん
垢版 |
05/01/05 19:07:56ID:???
select関数をどうにかしてほしい
156nobodyさん
垢版 |
2005/07/20(水) 19:33:05ID:JCdrAQ5o
>>118
sub merge {}
157nobodyさん
垢版 |
2005/07/25(月) 15:46:43ID:???
sub make_money {
  my $chobitto = shift;
  my $gossori = $chobitto ** 1000000;
  return $gossori;
}

一番の問題はどうやって関数にお金を渡すかだ。
158nobodyさん
垢版 |
2005/07/25(月) 20:28:47ID:???
おっさん
159nobodyさん
垢版 |
2005/07/25(月) 22:38:22ID:63FLM844
夜のおかずになってくれる関数。
160nobodyさん
垢版 |
2005/07/28(木) 02:53:11ID:???
新しく標準で欲しい関数は無いけど、
新しく標準で欲しいクラス、パッケージは沢山ある。

161nobodyさん
垢版 |
2005/07/28(木) 15:30:00ID:???
標準で欲しい関数は無いけど、モジュールに追い出してほしい関数なら沢山ある。

ソケット・ネットワーク関連(どうせuse Socketしないとまともに使えない)
get* set* 系(getpwentなど。Windowsじゃ意味ねー。こういうものこそモジュールの仕事だろ)
フォーマット関連(おかげでwrite()が無駄に予約語に…)
セマフォ関連(これもモジュールで対応してくれ)

このくらい削ればプロセスサイズも大分小さくなって起動が早くなりそうだ。
162nobodyさん
垢版 |
2005/10/11(火) 04:25:38ID:hXdkdtTb
Shift_JIS で書かれた文字列を

chomp($_ = <<'END');
こちょ♪こちょ♪
END

とせずに済む関数
163nobodyさん
垢版 |
2005/10/12(水) 02:12:56ID:???
>>162
それsjisじゃなくてWindowsの仕様だぞ・・・
164nobodyさん
垢版 |
2005/10/12(水) 02:47:54ID:???
>>162
できましたー。

use encoding qw(shiftjis);

# え、これと違う?
165nobodyさん
垢版 |
2005/10/12(水) 08:19:58ID:???
次期PHPってParrot採用との噂は本当なん?
166nobodyさん
垢版 |
2005/10/12(水) 17:07:16ID:???
その噂ってparrotが2002頃に出るって言われてた頃のだよね。
167nobodyさん
垢版 |
2005/12/19(月) 02:00:37ID:???
暗号化復号化
168nobodyさん
垢版 |
2008/01/23(水) 19:13:31ID:S4Tcgs5g
もはや2年前の記事か・・・
169nobodyさん
垢版 |
2008/10/14(火) 14:31:52ID:???
elsifがelseifに!
・・・なったら泣くな
170nobodyさん
垢版 |
2008/12/29(月) 02:00:29ID:???
わかりやすい変数名をつけてくれる関数が切実に欲しいです><
171nobodyさん
垢版 |
2009/02/19(木) 01:22:45ID:???
組み込み関数をオーバーライドする関数
特にprintとか普通できないやつ

モジュールuseしたら勝手にポッポアップウィンドウが開くように
ヘッダーを書き換えたい
172nobodyさん
垢版 |
2009/02/19(木) 14:25:32ID:???
printは出来なくても
STDOUTは変えれるし
出力先も変えれる
173nobodyさん
垢版 |
2009/06/13(土) 05:00:12ID:???
>>171
> 特にprintとか普通できないやつ
>
> モジュールuseしたら勝手にポッポアップウィンドウが開くように
> ヘッダーを書き換えたい

# perl -MPrintToMsgBox -e "print qq(hello)"

# PrintToMsgBox.pm
package PrintToMsgBox;

use Filter::Simple;
FILTER_ONLY code => sub { s/\b(?<!CORE::)print\b/use Win32; Win32::MsgBox/g };

1;
174nobodyさん
垢版 |
2009/12/06(日) 08:37:25ID:ev9aXePe
>>161
つuse POSIX;
つuse Moose;
つCoro;

4年も経つとうわ言も現実になるのね。
175nobodyさん
垢版 |
2009/12/23(水) 23:53:26ID:scWrjl+i
>>162

関数はないけど、Sjis.pm を使う手がある。
176nobodyさん
垢版 |
2009/12/24(木) 05:31:18ID:???
>>175
>>162はどういう意味?
177175
垢版 |
2009/12/27(日) 15:55:53ID:+zTA95HS
分解すると

$_ = <<'END';
こちょ♪こちょ♪ 【\n】
END
chomp($_);

になる。

$_ = <<'END' とすれば、シフトJISの第2バイトに \x5c が使われ
ている場合でも変数に無事代入することができるが、副作用として
余分な改行コードが入ってしまうので chomp で取り除く。

でも今は昔。Sjis.pm がそれをやってくれる。

ありがたい時代だ。


178nobodyさん
垢版 |
2009/12/27(日) 16:36:48ID:???
>>177
なるほど、そういうことか。
�d
179nobodyさん
垢版 |
2010/01/01(金) 00:56:50ID:ErV6JCho
素数判定関数
180nobodyさん
垢版 |
2010/01/26(火) 21:18:29ID:kYFNuHJ9
>>179

sub is_prime_number {
  if($_[0] =~ /^(2|3|5|7|11|13|17|19|23|29|31|37|41|43|47|53|59|61|67|71|73|79|83|89|97)$/){
    return 1;
  }
  return 0;
}

# 判定する素数を増やしたい場合は正規表現の中に追加します
181nobodyさん
垢版 |
2010/01/26(火) 21:38:03ID:???
SJISやJISのURLエンコード

SJISやJIS、UTF-8のMIMEエンコード

文字列がどのコードか自動判定する関数

eメールのBODYに添付ファイルを埋め込んで返してくれる関数
182nobodyさん
垢版 |
2010/01/27(水) 22:02:40ID:???
エンベデッドSQL
183nobodyさん
垢版 |
2010/01/29(金) 02:05:57ID:5qb50s68
# 改良しました
sub is_prime_number {
  return grep /^$_[0]$/, <DATA>;
}
1;
__DATA__
2
3
5
7
184nobodyさん
垢版 |
2010/03/04(木) 18:56:50ID:Dn/1ULzG
>>179ですが

却下
そもそも関数じゃないし
185nobodyさん
垢版 |
2010/03/04(木) 19:47:37ID:???
sub is_prim{ $_[0] == 1 ? () : (1 x $_[0]) !~ /^(11+)\1+$/ ;}
186nobodyさん
垢版 |
2010/03/18(木) 02:14:15ID:zgtpXchh
入力は @_
出力は return の値
呼び出し方法は is_prime_number($var)

どうみても関数なわけだが、今日は彼女とデートして
機嫌がいいので許さざるをえない
187nobodyさん
垢版 |
2010/03/28(日) 02:02:44ID:???
>>184

184はどういうものを関数といっているのか知りたい。
素数判定関数じゃなくて構わないから何か関数を
書いて欲しい。

そうでないとこのスレ(タイ)を全うできない。
188nobodyさん
垢版 |
2010/03/29(月) 01:54:50ID:???
例えば、

function abc (x,y,z) {
return x+y+z;
}

というものが関数。
189nobodyさん
垢版 |
2010/03/31(水) 00:06:07ID:???
>>188

節子それ Perl 違う
Javascript や
190nobody
垢版 |
2010/10/11(月) 16:35:16ID:???
# それならば...

prime_number[2] = 1;
prime_number[3] = 1;
prime_number[5] = 1;
prime_number[7] = 1;
function is_prime_number(n) {
  return prime_number[n];
}

# いずれにしても有限の個数しか判定できないけど、
# それはそうとあきらめるしかない
191nobodyさん
垢版 |
2010/12/21(火) 23:45:39ID:+uMFqmGh
>>149

ようやく意味が分かった。
おれも自作することになった。
192nobodyさん
垢版 |
2010/12/23(木) 01:42:14ID:???
関数名は chommp、できれば標準化してほしい。
193nobobyさん
垢版 |
2011/07/31(日) 15:10:17.22ID:???
perl6eval、なんてな
2013/02/02(土) 22:46:31.64ID:????PLT(12080)
  ∧_∧
  ( ・∀・)      | | ガガッ
 と    )      | |
   Y /ノ      .人
    / ) .人   <  >_∧∩
  _/し' <  >_∧∩`Д´)/
 (_フ彡 V`Д´)/   / ←>>137
            / ←>>143
195nobodyさん
垢版 |
2017/01/21(土) 19:00:04.91ID:iuL6ICc7
ぬるぽ
196nobodyさん
垢版 |
2017/12/30(土) 15:49:24.83ID:YhlYw6jg
誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

Y309HZ08T6
197nobodyさん
垢版 |
2018/06/21(木) 01:24:07.56ID:VtSVJLaY
プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。

6K8QD
198地球が一望できちゃう!宇宙ホテル
垢版 |
2021/03/02(火) 21:02:47.95ID:v9AR2LEq
宇宙建築の開発を目的に3年前に設立された「オービタル・アセンブリ(Orbital Assembly)」社はこのほど、人工重力で運用される人類初の宇宙ホテル「ボイジャー・ステーション(Voyager Station)」の建設を2025年から開始すると明らかにした。
1月29日に行われたオンライン記者会見で同社は、2025年に地球低軌道で宇宙ホテル「ボイジャー・ステーション」建設を開始し、早ければ2027年に稼働する可能性があることを明かした。

「ボイジャー・ステーション」は90分ごとに地球を一周し、リングを回転させることにより内部に月面と同程度の重力が発生させるという。

実現すれば、同ホテルは宇宙空間で最大の人工建造物となり、最大400人を収容できる設備が完備されることになる。さらに内部には客室に加え、レストランやバー、ジムに図書館、コンサート会場など様々な施設が揃う。
199nobodyさん
垢版 |
2022/02/22(火) 12:40:59.28ID:6fpbTpY6
アメリカ・ロシアに双方に冷静になってほしい
200「SWIFT」から排除決定
垢版 |
2022/02/27(日) 20:50:41.16ID:fuC6/BqF
【ブリュッセル=畠山朋子】ロシアのウクライナ侵攻を受け、米国と欧州連合(EU)、英国などは26日、共同声明を発表し、ロシアの複数の銀行を国際銀行間通信協会(SWIFT、本部・ベルギー)から排除する方針を示した。数日中に発動する。

 SWIFTは、約200か国・地域の1万社超の金融機関に国際送金のネットワークを提供しており、排除によって、ロシアは輸出している原油や天然ガスの代金の回収など、他国との決裁が難しくなる。共同声明では、「ロシアに責任を負わせ、この戦争は、プーチン露大統領にとって戦略的失敗であることを団結して証明する」と強調した。共同声明には、ドイツ、フランス、イタリア、カナダも賛同している。

 ロシアのSWIFTからの排除を巡っては、天然ガス輸入などロシアとの貿易関係の深い欧州が、慎重姿勢を示していた。
201ロシア、北方領土を「特区」指定 日露関係、さらに悪化へ
垢版 |
2022/03/10(木) 02:28:16.16ID:ZzSzzF4L
ロシアのプーチン大統領は9日、ロシアが不法占拠する北方領土を含むクリール諸島(北方領土と千島列島の露側呼称)に進出する国内外の企業を対象に、所得税などの各種税を原則的に20年間免除する法案に署名し、発効させた。ロシアは北方領土を事実上の「経済特区」として企業を誘致し、実効支配を強める思惑だ。

同法案に対し、日本は北方領土での共同経済活動を目指すとした日露合意に反するとして抗議してきた。一方、ロシアはウクライナ侵攻で日本が対露制裁を発動したことに反発。7日には、自国通貨ルーブルによる外貨建て債務の返済を認める「非友好国・地域」のリストに日本を含めた。

日露関係は極端に悪化しており、日露平和条約交渉の先行きは極めて不透明となっている。

北方領土への特区設置案は昨年7月、ミシュスチン首相が訪問先の北方領土・択捉(えとろふ)島で表明。プーチン氏も支持した。露政府が法案を作成し、今月4日までに露上下両院で可決されていた。
202nobodyさん
垢版 |
2023/12/17(日) 14:15:13.32ID:UszcY525
三角関数
203nobodyさん
垢版 |
2025/09/21(日) 05:09:30.37ID:fKfxdcse
国勢調査の初日に悲劇…80歳の調査員が訪問先マンションで倒れ死亡 家族「心臓に持病」 兵庫・姫路市
レスを投稿する


ニューススポーツなんでも実況