wpa2_str @ ウィキ

トップページ

2008-08-07T06:14:08+09:00

*wpa2_str@ウィキって？続わかめて用ツール[[wpa2_str.pm]]とその周辺を扱ったページです。 *wpa2_str.pmって？ wpa2とPerlを知らないと理解不能です…。 wpa2が新しい村ログをindex_village_data(以下ivd)に加えるのは時間がかかるけど、今までの村のログを見せずに新しい村ログだけからなる小さなivdを作るのは、そんなに時間はかからない。だから新しい村ログだけの小さなivdをwpa2に作ってもらい、今までのでかいivdに追記するモジュールを作ればいいんじゃないだろうか。そしてそいつにwpa2_strという名前を与えてみよう。 *index_village_data どこにアップしよう。誰かいいアップ場所教えて。 http://uproda11.2ch-library.com/　の　11108319.str　ivd-45001-45500.str 要wpa2_strモジュール、参考　http://www9.atwiki.jp/wpa2_str/ http://firestorage.jp/download/c7b93c10eb3413629d2f75b8a7bd6670a24e2595 ivd-1-45500.zip　wpa_*.txt .strは次回45001-45750　wpa_*.txtは次回1-46000　を予定 *storableモジュールってネットワーク形式で保存させれば、これでも配布可能かなあ。いっそうコンパクトになるんだよね。 *tar+bz2形式のほうが zipより小さくなる…。だんだんivdがでかくなってきてるから少しでも小さいやつ使いたい。 *誰か～これって共同執筆人募るとどうなるんだろう。でもどうやって募るんだろう。それはそうといろいろ↓助けてオイス。文句や突っ込み、要望もいいぜよ。 - さっそく後悔中。 -- 管理人 (2008-05-31 19:59:53) - wpa2_strにどんな関数つけよ。 -- 管理人 (2008-05-31 20:00:23) - そういやwpa2_pp.plなんてあったっけ。あっぷ。 -- 管理人 (2008-05-31 20:04:03) #comment

人狼BBSの君の日本語は間違ってる関係のヲチ

2008-06-10T14:50:15+09:00

一部削除 2008-06-10 (火) 10:54 - 君の日本語は間違っている //削除報告板の方で終了された国のIDを取得できるとのお話があり、ページ名に出ているIDをIDとして認知しかねます。個人ページとして相応しいかどうかの判断が出来ずに消去されてしまうようなページである事を作成者は把握なさっているのでしょうか。一部削除 2008-06-10 (火) 13:51 - 君の日本語は間違っている //wikiは誰でも編集できます。

wpa2_str.pm

2008-06-09T13:18:59+09:00

package wpa2_str; our $wpa2_dir = "."; #設定部はここまで----------------------------------------- =head1 NAME Wpa2_str - wpa2の補助 =head2 wpa2について wpa2に付属のREADME.txtより引用させていただきます。 I)用の個人勝率集計ソフトウェアです。> 作成者は☆ ◆LC7P44pfbgさんです。Lにて入手できるようです。 =head2 Perlについてプログラミング言語のひとつです。詳細は L もしくは L を参考にしてください。 =head1 概要 use Wpa2_str; #活用例 $wpa2_dir='.'; #wpa2のディレクトリを設定 input_wpa2(); #デフォルトフォルダからwpa2データをメモリに入力 change_memory(); #メモリの内容を退避メモリのものと交換 input_wpa2('./ivd-1-43342'); #指定フォルダからwpa2データをメモリに入力 merge_memory(); #退避メモリの内容をメモリのものに加える print_wpa2('./index_village_data_new'); #指定フォルダにwpa2形式でメモリの内容を出力 #コマンドラインから例えば…。 prompt% perl -Mwpa2_str -e "input_wpa2('index_village_data_new');change_memory();load_str('ivd-1-43451.str');merge_memory();print_wpa2();save_str('ivd-1-43472.str');" prompt% perl -Mwpa2_str -e "load_str('ivd-1-43451.str');pickup_handle('^初日犠牲者$');print_wpa2();" #その他 save_str('./1-43420.str'); #指定ファイルにstr形式でメモリの内容を保存 load_str('./1-43420.str'); #str形式の指定ファイルをメモリに読込 backup_memory(); #メモリの内容を退避メモリにコピー Wpa2_str::help(); #このヘルプを表示…たぶん Wpa2_str::print_time('now...'); #時刻表示 =head1 説明 wpa2の補助用Perlモジュールです。活用例では2つのwpa2データをまとめています。 =over =item $wpa2_dir wpa2があるフォルダを指定します。デフォルト値は.です。 =cut our ($start_time); BEGIN{ our ($start_time) = (times)[0]; } use strict; use warnings; use Storable qw(nstore_fd fd_retrieve); use List::Util qw(max); use Data::Dumper; use Exporter (); use Clone qw(clone); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter); @EXPORT = qw(input_wpa2 print_wpa2 load_str save_str change_memory backup_memory merge_memory pickup_handle $wpa2_dir); @EXPORT_OK = qw(help print_time version); $VERSION = '1.12'; our %fn = ( 'cfg' => 'wpa_configure.txt', 'pl' => 'wpa_players.txt', 'plr' => 'wpa_players_rev.txt', 'tt' => 'wpa_titles.txt', 'idx' => 'wpa_index.txt', 'vt' => 'wpa_votes.txt', 'cmd' => 'wpa_commands.txt', 'ivd' => 'index_village_data', 'str' => 'ivd.str' ); $fn{'ivd'} = "$wpa2_dir/$fn{'ivd'}"; our ($id_m, $plr_m, $ivd_m, $id, $plr, $ivd, %change); =pod =item input_wpa2([dir]) dirをindex_village_dataフォルダとみなして中のwpa_～.txtファイルの内容をメモリに入力します。dirのデフォルト値は$wpa2_dir/index_village_dataです。 =cut sub input_wpa2{ my($ivd_dir) = defined $_[0] ? $_[0] : $fn{ivd}; my($key); for$key('pl','plr','tt','idx','vt','cmd'){ my ($fn) = "$ivd_dir/$fn{$key}"; &print_time("input wpa2-type $fn"); open F, "<$fn" or die "cannot open $fn"; scalar ; if($key eq 'pl'){ &input_pl; }elsif($key eq 'plr'){ &input_plr; }else{ &input_ivd($key); } close F; } } sub input_pl{ until(eof F){ (scalar ) =~ /^(.+)\t(.*)$/; $id->{$2} = $1; } } sub input_plr{ my ($f); until(eof F){ $f = ; $f =~ /^([^\t]+)\t(.*)$/; $plr->[$1] = $2; } } sub input_ivd{ my($key, $f, $v, $k) = $_[0]; my %tmp; until(eof F){ $f = ; $f =~ /^([^\t]+)\t(.*)$/; push @{$tmp{$1}}, $2; } while(($k, $v) = each %tmp){ $ivd->{$k}->{$key} = $v; } } =pod =item print_wpa2([dir]) input_wpa2と逆の働きをします。 =cut sub print_wpa2{ my($ivd_dir) = defined $_[0] ? $_[0] : $fn{ivd}; my @ivd = sort {$b <=> $a} keys %{$ivd}; my($key); for$key('pl','plr','tt','idx','vt','cmd'){ my ($fn) = "$ivd_dir/$fn{$key}"; &print_time("print wpa2-type $fn"); open F, ">$fn" or die "cannot open $fn"; print F "version\t2.0\n"; if($key eq 'pl'){ &print_pl; }elsif($key eq 'plr'){ &print_plr; }else{ &print_ivd($key, \@ivd); } close F; } } sub print_pl{ my($n); foreach$n(sort {$id->{$a} <=> $id->{$b}} keys %{$id}){ print F "$id->{$n}\t$n\n"; } } sub print_plr{ my $max = $#{$plr}; my($i); for($i=0; $i<=$max; $i++){ print F "$i\t$plr->[$i]\n" if defined $plr->[$i]; } } sub print_ivd{ my($k, $a_ivd, $i, $tmp, $line) = @_; foreach$i(@{$a_ivd}){ $tmp = $ivd->{$i}->{$k}; for$line(@{$tmp}){ print F "$i\t$line\n"; } } } =pod =item load_str([file]) str形式のfileをメモリに読み込みます。str形式の利点はstorableモジュールがもたらす高速性であり、特に読み込み時にはその特色が顕著に現れることでしょう。fileのデフォルト値はivd.strです。 =cut sub load_str{ my($fn) = defined $_[0] ? $_[0] : $fn{'str'}; &print_time("load str-type $fn"); open G, "<$fn" or die "cannot open $fn"; my($version) = fd_retrieve(\*G); load_str_1() if $$version == 1; close G; } sub load_str_1{ $id = fd_retrieve(\*G); $plr = fd_retrieve(\*G); $ivd = fd_retrieve(\*G); } =pod =item save_str([file]) load_strと逆の働きをします。 =cut sub save_str{ my($fn) = defined $_[0] ? $_[0] : $fn{'str'}; my($version) = '1'; &print_time("save str-type $fn"); open G, ">$fn" or die "cannot open $fn"; nstore_fd \$version, \*G; nstore_fd $id, \*G; nstore_fd $plr, \*G; nstore_fd $ivd, \*G; close G; } =pod =item merge_memory() 退避用メモリの内容をメモリのものに加えます。先に小さいデータを読み込んでからchange_memoryを呼び出し、そして大きなデーターを読み込んだらmerge_memoryを呼んでください。退避用メモリの内容は破壊されます。 =cut sub merge_memory{ &print_time("merge..."); &merge_new_id; &merge_ivd; } sub merge_ivd{ print_time("merge: player's id in all data changing..."); my ($k, $line, @tmp); foreach$k(keys %{$ivd_m}){ next if exists $ivd->{$k}; $ivd->{$k} = $ivd_m->{$k}; foreach$line(@{$ivd->{$k}->{idx}}){ # next unless exists $change{0+$line}; @tmp = split /\t/, $line; $tmp[0] = $change{$tmp[0]}; $line = join "\t", @tmp; } } } sub merge_new_id{ &print_time("merge: new player's id computing..."); my ($new_id, $k, $v, $c, $n); $new_id = (max values %{$id}) + 1; foreach$k(keys %{$id_m}){ unless(exists $id->{$k}){ $id->{$k} = $new_id; $new_id++; } $v = $id_m->{$k}; $c = $change{$v} = $id->{$k}; if(defined $plr->[$c]){ # print "/$plr->[$c]\n+$plr_m->[$v]\n" if $c; $plr->[$c] = join "\t", $plr->[$c], (grep{ $plr->[$c] !~ /^$_(?!\d)/ and $plr->[$c] !~ /\t$_(?!\d)/ }(split /\t/, $plr_m->[$v])); # print "=$plr->[$c]\n\n" if $c; }else{ $plr->[$c] = $plr_m->[$v]; } # &print_time("$k"); } } =pod =item change_memory() メモリの内容と退避用メモリのものを交換します。主にmerge_memory関数のために呼び出されることでしょう。ちなみに退避用メモリにアクセスするのは*_memory関数だけです。 =cut sub change_memory{ ($id_m, $plr_m, $ivd_m, $id, $plr, $ivd) = ($id, $plr, $ivd, $id_m, $plr_m, $ivd_m); } =pod =item backup_memory() メモリの内容を退避用メモリにコピーします。 =cut sub backup_memory{ ($id_m, $plr_m, $ivd_m) = (clone($id), clone($plr), clone($ivd)); } =pod =item pickup_handle(handle pattern) メモリ内容をハンドルパターンに合致するプレイヤー専用のものに絞ります。パターンはPerlの正規表現です。 =cut sub pickup_handle{ my ($pattern) = (@_); my ($k, %id_list, %v, %id_del); print_time("pickup: player search..."); foreach$k(keys %{$id}){ if($k =~ /$pattern/o){ $id_list{$id->{$k}}=1; print_time("find! $k"); }else{ # $plr->[$id->{$k}] = ''; } } print_time("pickup: village number search..."); foreach$k(keys %id_list){ foreach(split/\t/,$plr->[$k]){$v{$_}++;} } foreach$k(keys %{$ivd}){ delete $ivd->{$k} unless defined $v{$k}; } foreach$k(0..$#{$plr}){ my $tmp = 0; foreach(split/\t/, $plr->[$k]){ if(defined $v{$_}){ $tmp = 1; last; } } unless($tmp){ undef $plr->[$k]; $id_del{$k} = 1; } } foreach$k(keys %{$id}){ if(defined $id_del{$id->{$k}}){ $plr->[$id->{$k}] = undef; delete $id->{$k}; }else{ # print "$k\n" if $id_list{$id->{$k}}; next if $id_list{$id->{$k}}; $plr->[$id->{$k}] = join"\t" , grep{defined $v{$_}} split /\t/, $plr->[$id->{$k}]; } } } =pod =item help() このモジュールのPODを表示する…はず。 =cut sub help{ system 'perldoc', 'wpa2_str.pm'; } =pod =item print_time() 時間や時刻を表示します。表示形式は変更する可能性があります。 =cut sub print_time{ printf STDERR "%2d:%02d:%02d#%.2fs#$_[0]\n", reverse ((times)[0], (localtime)[0..2]); } sub END{ print_time("end..."); } return 1; __END__ =pod =back =head1 お断り使用は自己責任でよろしくお願いします。 =head1 将来の展望 wpa2_ppの機能を取り入れたい良いスクリプトアップロード場所を見つけたい PODの書き方をなんとかしたいログ出力先のコントロール関数追加メモリの内容を絞り込む機能追加 wpa2.exeを呼び出せるように =head1 履歴 =over =item v1.12 2008/06/09 pickup_handleにwpa_players_rev.txtを絞る機能を加える =item v1.11 2008/06/04 merge_new_id関数の高速化、List::MoreUtilsモジュールの不要化 =item v1.10 2008/06/04 pickup_handleの新設 =item v1.00 2008/05/30 =back =head1 謝辞 wpa2の作成者☆ ◆LC7P44pfbgさん続わかめて運営者のココアさんココアさんなどを支えるサブ運営者のみなさん出会えたプレイヤーのみなさんありがとうございます。 =head1 連絡 2chの汝は人狼なりや関係スレッドにてwpa2_strの名前を出していただければ検索で気づけるかも…です。 =cut #wpa2_str---------------------------------------------end/ __END__ pod2html wpa2_str.pm --outfile wpa2_str.htm

wpa2_pp.pl

2008-05-31T20:03:29+09:00

#wpa2 Pre Processer--------------------------------------- $wpa2_dir = "."; $pp_dir = "./pp_namini"; $from_pp_to_wpa2_path = ".."; #設定部はここまで----------------------------------------- =pod =head1 wpa2_pp 1.0 wpa2の補助用Perlスクリプトです。もしかしたら作業が速く済む…かも。 =head2 wpa2について wpa2に付属のREADME.txtより引用させていただきます。 I)用の個人勝率集計ソフトウェアです。> 作成者は☆ ◆LC7P44pfbgさんです。 Lにて入手できるようです。 =head2 Perlについてプログラミング言語のひとつです。詳細は L もしくは L を参考にしてください。 =head1 使い方これ以降の解説はwpa2とPerlについての知識を前提にしています。 =over =item ０．indexファイル全てに読み取り専用属性を設定して下さい（推奨） =item １．wpa2用フォルダ内にppフォルダを作成して下さい =item ２．ppフォルダ内にwpa_configure.txtをコピーして下さい =item ３．wpa2_pp.plをwpa2用のフォルダにおいて下さい =item ４．wpa2用フォルダ内でwpa2_pp.plを実行してください =back =head2 動作 =over =item １．ppフォルダ内にindex_village_dataフォルダを作成します =item ２．ppフォルダ下のindex_village_dataフォルダ内に ppフォルダ下のwpa_configure.txt向きに特化したindexファイルを作成します =item ３．ppフォルダからwpa2.exeを呼び出します =item ４．終了します =back =head1 その他 =head2 謝辞 =over =item wpa2の作成者☆ ◆LC7P44pfbgさん =item 続わかめて運営者のココアさん =item ココアさんなどを支えるサブ運営者のみなさん =item 出会えたプレイヤーのみなさん =back ありがとうございます。 =head2 連絡 2chの汝は人狼なりや関係スレッドにてwpa2_ppの名前を出していただければ検索で気づけるかも…です。 =head2 お断り使用は自己責任でよろしくお願いします。 =head2 展望 =over =item 複数のppフォルダを逐次処理したい =item 既に作成された特化indexファイルがあれば活用したい =item バグがあれば見つけたい =item 良いスクリプトアップロード場所を見つけたい =item PODの書き方をなんとかしたい =back =head2 履歴 =over =item v1.0 2008/04/01 組んで見たら意外とあっさりいったので公開 =back =cut #説明はここまで------------------------------------------- &print_time("start and configure open"); &init(\%argv, @ARGV); &pp() if exists $argv{pp}; &marge() if exists $argv{marge}; exit; sub marge{ die @_; } sub init{ my ($argv, @argv) = @_; %fn = ( 'cfg' => 'wpa_configure', 'pl' => 'wpa_players', 'plr' => 'wpa_players_rev', 'idx' => 'wpa_index', 'tt' => 'wpa_titles', 'vt' => 'wpa_votes', 'cmd' => 'wpa_commands', 'ivd' => 'index_village_data', ); foreach(@argv){ if(/-(\w+)/i){ $key = lc $1; @{$argv->{$key}} = (); }else{ push @{$argv->{$key}}, $_; } } if($#argv == -1 or exists $argv->{h}){ system 'perldoc', $0; die; } $pp_dir = $argv->{dir}->[0] || $pp_dir; $wpa2_dir = $argv->{path}->[0] || $pp_dir; $read_dir = "$wpa2_dir/$fn{ivd}"; $write_dir = "$pp_dir/$fn{ivd}"; # print %argv; } sub pp{ die "pp ok"; mkdir $write_dir; &print_time("configure open"); open CFG, "<$pp_dir/$fn{cfg}.txt" or die; while(($_ = ) ne undef){ if(/^(\w+)[\s\t]+(.*)/){ push @{$cfg{$1}}, $2; } } $query = join '|', map{"(" . (quotemeta $_) . ")"}@{$cfg{'handle_name'}}; close CFG; &print_time("players open"); open PL, "<$read_dir/$fn{pl}.txt"; push @pl_txt, scalar ; while(($_ = ) ne undef){ ($num, $name) = /^(\d+)\t(.*)$/; $name[$num] = $name; if($name =~ /$query/){ $pl{$num} = 1; print "handle found:$num - $name\n"; } } close PL; #print "players max:$num\n"; &print_time("players_rev open"); open PLR, "<$read_dir/$fn{plr}.txt"; push @plr_txt, scalar ; while(($_ = ) ne undef){ ($num, $plr) = /^(\d+)\t(.*)$/; $plr[$num] = $plr; if(exists $pl{$num}){ map{$plr{$_} = 1;}split /\t/, $plr; } } close PLR; #print "plr max:$num\n"; &print_time("index open"); open IDX, "<$read_dir/$fn{idx}.txt" or die; open PP, ">$write_dir/$fn{idx}.txt" or die; print PP scalar ; while(($_ = ) ne undef){ ($vlg, $idx) = /^(\d+)\t(.*)$/; if(exists $plr{$vlg}){ ($pl, $rol, $die, $day) = (split /\t/, $idx); $pl2{$pl} = 1; print PP "$vlg\t$idx\n"; } } close IDX; close PP; #print "index max:$vlg\n"; foreach$filename(@fn{tt, vt, cmd}){ &vlg_serch($filename); } &print_time("players and players_rev write"); open PL, ">$write_dir/$fn{pl}.txt" or die; open PLR, ">$write_dir/$fn{plr}.txt" or die; print PL @pl_txt; print PLR @plr_txt; foreach$num(sort{$a<=>$b}keys %pl2){ print PL "$num\t$name[$num]\n"; next unless exists $pl{$num}; print PLR join("\t", $num, grep{exists $plr{$_}}(split /\t/, $plr[$num])); print PLR "\n"; } close PL; close PLR; chdir $pp_dir; &print_time("wpa2 Pre Process end and start wpa2, good luck."); system "$from_pp_to_wpa2_path/wpa2.exe"; exit; } sub vlg_serch{ my $filename = shift @_; &print_time("$filename open"); open DT, "<$read_dir/$filename.txt" or die; open PP, ">$write_dir/$filename.txt" or die; print PP scalar

; while(($_ =

) ne undef){ ($vlg, $dt) = /^(\d+)\t(.*)$/; if(exists $plr{$vlg}){ print PP "$vlg\t$dt\n"; } } close DT; close PP; # print "$filename max:$vlg\n"; } sub print_time{ printf "%2d/%2d %2d:%02d:%02d :$_[0] time\n", (reverse localtime)[4..9]; } #wpa2 Pre Processer------------------------------------end/ __END__ おまけ perl -e"open G,') {@g=split/\t/;$p{$g[0]}=$g[1]}open F,'){@f=split/ \t/;$n{$f[0]}=$#f}print map{qq/$n{$_}\t$p{$_}/}sort{$n{$b}<=>$n{$a}}keys%n">test .txt

メニュー

2008-05-31T19:58:43+09:00

**メニュー -[[トップページ]] -[[メニュー]] -[[wpa2_str.pm]] **更新履歴 #recent(20) ---- **リンク -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] **他のサービス -[[無料ホームページ作成>>http://atpages.jp]] -[[無料ブログ作成>>http://atword.jp]] -[[無料掲示板レンタル>>http://atbbs.jp]] -[[2ch型掲示板レンタル>>http://atchs.jp]] -[[お絵かきレンタル>>http://atpaint.jp/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります &link_editmenu(text=ここを編集)

右メニュー

2008-05-31T19:21:09+09:00

**更新履歴 #recent(20) &link_editmenu2(text=ここを編集)

プラグイン/ニュース

2008-05-31T19:21:09+09:00

* ニュース @wikiのwikiモードでは #news(興味のある単語) と入力することで、あるキーワードに関連するニュース一覧を表示することができます詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/17_174_ja.html ----- たとえば、#news(wiki)と入力すると以下のように表示されます。 #news(wiki)

プラグイン/編集履歴

2008-05-31T19:21:09+09:00

* 更新履歴 @wikiのwikiモードでは #recent(数字) と入力することで、wikiのページ更新履歴を表示することができます。詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/17_117_ja.html ----- たとえば、#recent(20)と入力すると以下のように表示されます。 #recent(20)

プラグイン/アーカイブ

2008-05-31T19:21:09+09:00

* アーカイブ @wikiのwikiモードでは #archive_log() と入力することで、特定のウェブページを保存しておくことができます。詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/25_171_ja.html ----- たとえば、#archive_log()と入力すると以下のように表示されます。保存したいURLとサイト名を入力して"アーカイブログ"をクリックしてみよう #archive_log()

プラグイン/動画(Youtube)

2008-05-31T19:21:09+09:00

* 動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/17_209_ja.html また動画のURLはYoutubeのURLをご利用ください。＝＞http://www.youtube.com/ ----- たとえば、#video(http://youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。 #video(http://youtube.com/watch?v=kTV1CcS53JQ)