<% my $dbi = $nvar{dbi}; %>

学歴・職歴

学歴

<% my $num = defined($var{data}{academic}) ? @{ $var{data}{academic} } : 0; my $ac; foreach my $i (1 .. $num) { $ac = $var{data}{academic}[$i - 1]; %> <% } %>
年・月学歴
<% print "$ac->{year}年$ac->{month}月" %> <% print $ac->{career} %>

職歴

<% my $num = defined($var{data}{business}) ? @{ $var{data}{business} } : 0; my $bs; foreach my $i (1 .. $num) { $bs = $var{data}{business}[$i - 1]; %> <% } %>
年・月職歴
<% print "$bs->{year}年$bs->{month}月" %> <% print $bs->{career} %>

その他

備考 <% print join('
', split(/\n/, $cv->{note})); %>