view release on metacpan or  search on metacpan

lib/App/Greple/aozora.pm  view on Meta::CPAN

（多数ヒットしすぎてチェックしづらいときは、次項の正規表現で、誤って入った平仮名へぺべをチェックしてください。）

    [へぺべ]

=item --check-he

平仮名とカタカナの「へべぺ」「ヘベペ」を両方チェックする。
それぞれ異なる色で表示される。

=item --suspicious-he

片仮名文字列に接する平仮名へぺべをみて、読み取り誤りをチェックする。

    [ァ-ヶー][へぺべ]
    [へぺべ][ァ-ヶー]

=item --lonely-katakana

片仮名文字列でない中に、一字混じった片仮名をチェックする。

    [^ァ-ヶー][ロエセカニタトリハオ][^ァ-ヶー]

=item --lonely-non-katakana

片仮名文字列の中に、一字混じった片仮名ではない文字をチェックする。

    [ァ-ヶー]+[口工七力二夕卜り一八才][ァ-ヶー]

=item --kyuji

新字ファイルに混じる旧字をチェックする。　

[亞惡壓圍爲醫壹稻飮隱營榮衞驛圓艷鹽奧應歐毆穩假價畫會壞懷繪擴殼覺學嶽樂勸卷歡罐觀關陷巖顏歸氣龜僞戲犧舊據擧峽挾狹堯曉區驅勳徑惠溪經繼莖螢輕鷄藝缺儉劍圈檢權獻縣險顯驗嚴...

=item --shinji

旧字ファイルに混じる新字をチェックする。

[亜悪圧囲為医壱稲飲隠営栄衛駅円艶塩奥応欧殴穏仮価画会壊懐絵拡殻覚学岳楽勧巻歓缶観関陥巌顔帰気亀偽戯犠旧拠挙峡挟狭尭暁区駆勲径恵渓経継茎蛍軽鶏芸欠倹剣圏検権献県険顕験厳...

=item --kogaki

仮名を小書きしないファイルに紛れ込んだ、小書きをチェックする。

（物を数える際や地名などに用いる「ヶ」は、外してあります。）

    [ぁぃぅぇぉっゃゅょゎァィゥェォッャュョヮヵ]

=item --lonely-alpha

全角とするべき可能性の高い、一文字の半角アルファベットをチェックする。

    [^a-zA-Z][a-zA-Z][^a-zA-Z]

=item --dot-in-middle

半角の「.」の後に、半角のアキ（「 」）なしで文字が続くものをチェックする。

    \.([^ （）p」])

=item --space-at-eol

文末に、不要な空白（全角、半角）が入っていないかをチェックする。

    [ 　]+$

=item --suspicious-nl

空白もしくは括弧以外が文頭にきているものをみて、誤って入れられた改行をチェックする。

（底本の行あきをなぞるために入れた改行も、チェックされます。）

    ^[^　「［（『]

=item --suspicious-space

行頭の括弧の前に、青空文庫では入れないことにしている空白がないかをチェックする。

    ^　[（「『]

=item --ruby-1

ルビの中に、仮名以外がないかをチェックする。

    《[^《》]*?[^あ-んァ-ヶーゞゝヽヾ・／″＼][^《》]*?》

=item --ruby-2

ルビの文字数に対して、ルビの付く側の文字数が長めのものをみて、「｜」の入れ忘れをチェックする。

    [\x{3400}-\x{9fff}\x{f900}-\x{fa2d}々]{3,}《

=item --ruby-3

ルビの付く文字が連続するものをみて、過分割をチェックする。

    《[^》]+》[^ァ-ヶーあ-ん、。？！―,『』｜「」々]+《[^》]+》

=item --ruby-4

ルビ中の拗促音が小書きされていないものをチェックする。（正しく並みで使われているものもチェックされます。）

    《[^《》]*?[つやゆよヤヨツユ][^《》]*?》

=item --ruby

B<--ruby-[1-4]> を全部チェックする。

=item --suspicious-brace

誤入力の可能性の高い、半角の丸括弧「()」と角括弧「[]」をチェックする。

    [^U][\?\!\#-\&\(-\+\<-\>\[-\]|]

=item --rare-chars

使われることのまれな文字をチェックする。

    [′．･，‥－｢♯□｣､]

=item --susupicious-ocr

lib/App/Greple/aozora.pm  view on Meta::CPAN

define (#katakana) \p{InKatakana}
define (#hiragana) \p{InHiragana}
define (#kanji)    \p{Han}
define (#alpha)	   [a-zA-Z]
define (#alnum)    [a-zA-Z0-9]
define (#_alnum)   [a-zA-Z0-9_]

define (#katakana::he) [ヘペベ]
define (#hiragana::he) [へぺべ]

define (#katakana-hiragana::he) (?<=(#katakana))(#hiragana::he)
define (#hiragana::he-katakana) (#hiragana::he)(?=(#katakana))
define (#he_with_katakana) (#katakana-hiragana::he)|(#hiragana::he-katakana)

option --hiragana-he --re (#hiragana::he)
option --katakana-he --re (#katakana::he)
option --check-he --hiragana-he --katakana-he --need 1
option --suspicious-he --re (#he_with_katakana)

# 人ロ増加
option --lonely-katakana --re \
	'(?<=[(#hiragana)(#kanji)])[ロエセカニタトリハオ](?=[(#hiragana)(#kanji)])'

# カタ力ナ
option --lonely-non-katakana \
	--re '(?<=(#katakana))[口工七力二夕卜り一八才](?=(#katakana))'

define (#kyuji) \
亞惡壓圍爲醫壹稻飮隱營榮衞驛圓艷鹽奧應歐毆穩假價畫會壞懷繪擴殼覺學嶽樂勸卷歡罐觀關陷巖顏歸氣龜僞戲犧舊據擧峽挾狹堯曉區驅勳徑惠溪經繼莖螢輕鷄藝缺儉劍圈檢權獻縣險顯驗嚴æ...

define (#shinji) \
亜悪圧囲為医壱稲飲隠営栄衛駅円艶塩奥応欧殴穏仮価画会壊懐絵拡殻覚学岳楽勧巻歓缶観関陥巌顔帰気亀偽戯犠旧拠挙峡挟狭尭暁区駆勲径恵渓経継茎蛍軽鶏芸欠倹剣圏検権献県険顕験厳å...

option --kyuji --re '[(#kyuji)]'	// 旧字を検索
option --shinji --re '[(#shinji)]'	// 新字を検索

define (#kogaki) ぁぃぅぇぉっゃゅょゎァィゥェォッャュョヮヵ
option --kogaki --re '[(#kogaki)]'

# 変数xとy
option --lonely-alpha \
	--re '(?<=(#zenkaku))(#alpha)(?=$|(#zenkaku))|^(#alpha)(?=(#zenkaku))' \
// 全角文字の中にある、一文字の半角アルファベット

option  --lonelies \
	--need 1 \
	--lonely-alpha \
	--lonely-katakana \
	--lonely-non-katakana \
	// --lonely-alpha --lonely-katakana --lonely-non-katakana

# www.example.jp
# ｗｗｗ.ｅｘａｍｐｌｅ.ｊｐ
define (#dot-in-middle) \.(?![ （）p」])
option --dot-in-middle --re '(#dot-in-middle)'

# 行末の空白 
# 行末の全角の空白　
# 行末のタブ	
option --space-at-eol --re '[ \t　]+$'

define (#char-at-bol) \　「［（『
define (#suspicious-nl) ^[^(#char-at-bol)]
option --suspicious-nl --re '(#suspicious-nl)'

option --suspicious-space --re '^　(?=[（「『])'

option --ruby-1 --re '《[^《》]*?[^あ-んァ-ヶーゞゝヽヾ・／″＼][^《》\n]*?》'
option --ruby-2 --re '[\x{3400}-\x{9fff}\x{f900}-\x{fa2d}々]{3,}《'
option --ruby-3 --re '《[^》]+》[^ァ-ヶーあ-ん、。？！―,『』｜「」々]+《[^》]+》'
option --ruby-4 --re '《[^《》]*?[つやゆよヤヨツユ][^《》]*?》'
option --ruby --ruby-1 --ruby-2 --ruby-3 --ruby-4 --need 1

define (#suspicious-brace) [^U][\?\!\#-\&\(-\+\<-\>\[-\]|]
option --suspicious-brace --re '(#suspicious-brace)'

define (#rare-chars) [′．･，‥－｢♯□｣､]
option --rare-chars --re '(#rare-chars)'

define (#suspicious-ocr) \
米殻|奴隸|釆女|喝釆|壷|壼|会杜|溌刺|撒去|撤布|慰籍|狼籍|酒落|曖味|瞹昧|瞹味|å’‹æ—¥|[気天]侯|王候|鍛治屋|掃って|帰く|因難|粛条|芸著|建薬物|表規|絵仕|猟人形|緒口|野緒|熊々|煮趣|粗の|å...

option --suspicious-ocr --re '(#suspicious-ocr)' // OCRのミスが生じやすい文字