日経平均をドルコスト平均法で運用した場合の損益試算をPerlで行った

こちらのデータを使いました。
www.macrotrends.net

データは日々の日経平均株価なので毎月月初日だけに絞り込むプログラムを作った。

day2month.pl

use warnings;

my $month = 13;
while (my $line = <>) {
	if ($line =~ /^\d\d\d\d-(\d\d)-\d\d/ and $month != $1){
		$month = $1;
		print $line;
	}
}

月初日データから運用開始年を引数に渡して、試算するプログラムがこちら。

dollcost.pl

use strict;
use warnings;

my $start_year = shift;
my $contribution = 0;
my $unit = 0;
my $valuation = 0;
while (my $line = <>) {
	if ($line =~ /^(\d\d\d\d)-(\d\d)-(\d\d),(\d+\.\d+)/ and $1 >= $start_year){
		$contribution += 10000;
		$unit += 10000 / $4 ;
		my $valuation = $unit * $4;
		print "$1-$2-$3,$4,$contribution,$valuation\n";
	}
}

結果がこちらになります。

2000年から、毎月1万円を2021年４月まで買い続けた場合の損益はいかになりました。
ドルコスト侮れない・・

拠出額　２５６万円
評価額　５６３万円
利益 ＋３０７万円