search

moznion / IdolSongVote

For CROSS 2014
4 stars 1 forks source link

IdolSongVote::Util の file load 処理が冗長 #20

Open yappo opened 10 years ago

yappo commented 10 years ago 
sub _load_base_html {
    open my $fh, '<', "$FindBin::Bin/tmpl/base.html";
    my $html = '';
    while (my $line = <$fh>) {
        $html .= $line;
    }

とかじゃ無くて perl だと

sub _load_base_html {
    open my $fh, '<', "$FindBin::Bin/tmpl/base.html";
    do { local $/; <$fh>; }

とかでできるよ