「Wikipedia‐ノート:括弧付き記事名の一覧」の版間の差分
削除された内容 追加された内容
m編集の要約なし |
HOWTO |
||
1行目:
以前から気になっていましたがこのページがもとにしているダンプは相当古いです。現在の物を用いると1MB近くになってしまいますが新しい物に差し替える予定です。--[[利用者:こいつぅ|こいつぅ]] 2006年9月5日 (火) 18:14 (UTC)
== このページの作り方 ==
=== SQL ===
<pre>
select page_title, substring_index(page_title,'_(', -1) as sk
from page
where page_namespace = 0
and page_is_redirect = 0
and page_title like '%\_(%)'
order by sk
into outfile 'paren_sorted.txt';
</pre>
でテキストファイルを生成します。
=== 整形 ===
生成したファイルを以下のPerlスクリプトに食わせます。
<pre>
#!/usr/bin/perl
my $THRESHOLD = 4;
use strict;
use warnings;
my $group;
while(<>){
my ($title, $key) = split /\t/;
$key =~ s/\)$//o;
chop $key;
$group->{$key} = [] if (not exists $group->{$key});
push @{$group->{$key}}, $title;
}
foreach (sort keys %$group){
printf "; %s :[[", $_;
local $" = "]] [[";
if ($#{$group->{$_}} > $THRESHOLD){
print "@{$group->{$_}}[0..$THRESHOLD]";
print "]] 他 ", $#{$group->{$_}}-$THRESHOLD, "件\n";
}
else {
print "@{$group->{$_}}";
print "]]\n";
}
}
</pre>
| |||