Ｎ速Ｂｅポイント実装を話し合うスレ

[0517 株価【730】 ▲ ◆cZfSunOs.U 2006/07/23(日) 22:20:18 ID:ql0Od4qS0]

#!/usr/bin/perl

# <BE:xxxxxx:L> -> BE:xxxxxx-##

sub rep {
    my $str = '';
    for (1..$_[0]) {
        $str .= '#';
    }
    $str;
}

while (<>) {
    $_ =~ s/<BE:(\d+):(\d+)><>/'BE:'.$1.'-'.rep($2).'<>'/e;
    print;
}
----------------------------------------------------------------------
dat への記録は従前の BE:xxxxxx-## のままで，JavaScript で
# の数をマイレージランクに変換するようにすれば，dat の形式も
従前のものと互換のままでできたんでしょうけど......