[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

548(7): 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)20:58 ID:Pb++lLAf(1/2) AAS
お題: マイドキュメントにある全てのファイルの更新日時を取得し、曜日ごとに平均時刻を集計せよ。

---

557: 2019/09/22(日)22:23 ID:W3ewN8v1(3/4) AAS
>>548
\ls -l --time-style=+%a:%T ~/ | perl -lane 'print $F[5]' | sed "/^$/d" | perl -F: -lane '{++$i{$F[0]}; $acc{$F[0]} += $F[1]*3600 + $F[2] *60 + $F[3] }END{ print "$_ ". $acc{$_}/$i{$_} . " seconds" for keys %acc}'
日 49262.7 seconds
金 52984.3125 seconds
火 56316.8461538462 seconds
木 47056.3333333333 seconds
月 53660.7894736842 seconds
土 49998.1538461538 seconds
水 48117.5 seconds

---

560(1): 2019/09/22(日)22:48 ID:Yf8464Y3(1/3) AAS
>>548 Perl5、なお>>550は(utimeを使えばできますが)回答は作成いたしません

use File::Find 'find';
sub hier {
　my $mtime = (lstat)[9];
　push @epochs, $mtime if -f _;
}
find({wanted => \&hier}, "$ENV{USERPROFILE}/My Documents");
@w = ([],[],[],[],[],[],[]);
for (@epochs) {
　($sec, $min, $hour, $wday) = (localtime $_)[0..2,6];
省20

---

561: 2019/09/22(日)22:50 ID:JOdgUuSI(1/2) AAS
>>548
馬鹿っぽ

---

568(3): 蟻人間 ◆T6xkBnTXz7B0 2019/09/23(月)00:23 ID:JAc5gnVl(1) AAS
>>548
出題の狙い。犯罪捜査において被疑者または関係者の生活パターンを知りたいときに、パソコンのファイルの日時の統計のデジタル鑑識により、パソコンの使用実態が類推可能であることを示すものである。

---

574: 蟻人間 ◆T6xkBnTXz7B0 2019/09/23(月)12:05 ID:Pxp3zDR1(1) AAS
>>548
C++/Win32 模範解答。
外部ﾘﾝｸ:gist.github.com

---

580(1): 2019/09/27(金)19:49 ID:jf7tgLq0(1/2) AAS
>>548
Powershell

ls ([Environment]::GetFolderPath(5)) -Recurse -Force |? {!$_.PSIsContainer} `
|% {$_.LastWriteTime} | sort {[int]$_.DayOfWeek} | group {"{0:ddd}" -f $_} `
|% {"{0}{1,10:T}" -f $_.Name, [DateTime][Int64]($_.Group |% {$_.TimeOfDay.Ticks} | measure -Average).Average}

---

601: 2019/09/28(土)16:35 ID:E6lKnilk(4/4) AAS
>>548
外部ﾘﾝｸ:ideone.com
C++。マイドキュメントの列挙だけで力尽きた。ぐはぁ・・・。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.035s