竹Blog

#! /usr/bin/perl
use strict;
use utf8;

while (<>) {
  chomp;
  my $str = $_;
  utf8::decode($str);
  $str =~ /(Bulk Order Deed Blessed) (重量: \d) (小口|大口) (\w+(?: ingot(?:s)?| leather)?) (高品質|標準) (個数: \d+)/igc;
  my $a = $1;
  my $b = $2;
  my $c = $3;
  my $d = $4;
  my $e = $5;
  my $f = $6;
  utf8::encode($a);
  utf8::encode($b);
  utf8::encode($c);
  utf8::encode($d);
  utf8::encode($e);
  utf8::encode($f);
  print "\$1: [$a] \$2: [$b] \$3: [$c] \$4: [$d] \$5: [$e] \$6: [$f]";
  while ($str =~ /\G \w((?:\w|\s)+: \d+)/gc) {
    my $a = $1;
    utf8::encode($a);
    print " [$a]";
  }
  print "\n";
}

続きを読む

• BOD管理CGIについて
• ショップ Music Gear [Seagull] について

• [+][-]ボタンを押すごと、セル一つを編集するごとにページ遷移するのではなく、まとめて編集してから[input]ボタンを押した時にページ遷移するように変更
• 種類を絞り込んで表示できるようにした
  • 全部一括で表示することはできなくなった
• 内部処理を共通化、汎用化した
• プレーンテキストに保存されていた認証パスワードを DB に格納するようにした
  • 生で保存されていたパスワードをハッシュで保存するようにした
• ユーザー作成等の操作をウェブインタフェースからできるようにした
  • 管理者の目にしか触れないのですっごい適当

• JavaScript がない場合はテキストボックスに直接入力しないとダメ。[+][-] のボタンは使えません
• CSS がない場合は、レイアウトを大部分 CSS に頼っているのでどうなるかわかりません
• Cookie がないとログインできないはず

• DB のフォーマットは SDBM のままにした