門」 - 研究成果報

持

i f ( $ c l

) 0

subs 七ど（ $xlinel,

$ k l , $ c l )

= subs七ど（ $wk

t e x t 2 , $ , 0 c l ) ;

$ k l

＝宇 kl ＋卒 cl;

substr （卒 xlinel, $kl ，卒 kll) ＝宇n

k a n j i ;

$ k l

＝宇 kl ＋字 kll ；一

持 ^b_・^《^{－工・エ・工}

^d ^d x ^d x

^qdqdqd

x

^{寸ム司ムーム}

. , . , . ,

duy

《中

・1

・’l・’

．，

1J・

”内国”内

”

nnnnnn

￥ a

￥

k ”

KHK

”

n

一一一

’ n

’

dvedves

・e

n n n

？エ－

－－

l l l

rxrxrx

dcvdsd

宇

h h h

主一 1T

－

kEKEKE

hLhLhL CZC I c

-－vF

－dvFιqvp

－

mム巾・・巾＆

= u

= U

o o o

eee

ntn

七 nt

・工 n

・ln

・工 n

l i l i

- -l

xrxrxr

spsp

宇

P

w h i l e

（卒 clx

> ) 0

宇 cl

= i n d e x

$wk 七ex七2,

$ c h r a t m k ; i f

（卒 cl

<

^{0 ）一}

las 七；

持

i f

（宇 cl !=

) 0

subs 七 r （宇 xlinel ，卒 kl,

$ c l ) = s u b s t r

（卒 wk 七 ex 七 2,

$ , O c l ) ;

$ k l = $ k l

＋宇 cl;

subs 七 r

(

$xlinel ，宇 kl,

= ) 2

subs 七r （宇 wk 七 ex七 2,

$ c l , 2 ) ;

宇 kl ＝卒 kl

+ 2 ;

宇 cl ＝卒 cl

+ 1 2 ;

$ c l x

＝卒 clx

- $ c l ;

$wk 七 ex七 2

= s u b s t r

（宇wk 七ex七2 ，宇 cl);

神井 a

subs 七 r

( $ x l i n e l ,

$kl ，卒 clx)

=

subs 七r （宇 wk 七ex七 2, 0 ，宇 clx);

卒 kl ＝卒 kl ＋草 clx;

卒 xline

=

$七 ag

n a m e [ 2 ] . s u b s t r ( $ x l i n e l , $ , O k l ) ; p r

in七 OUTF工 LE l 宇x工 ine ，”￥n";

持井一一一一ー一一一ーーー一一一一一一一一一ー一一一一一一一一一一－－

E n d c r e i d x 1 2 ) (

持持持非井井幹井普非井非非井非井弁持持非井幹井神井非非井静非井弁持非非非非神井井静非井幹非非非持非非非非非非井一一一 subrou七 ine

c v k a n a O O

井非普井弁非非井井弁持持非非井弁井静普非非井幹非非非非持非非非普非非非持非持井井幹非持非井幹非非非非井静非非 inpu七 variable

非宇 inp

k a n a 2

非宇 inpごc工 2 持 $out

k a n a 2

持一 s u b c v k a n a O O

非

一－－

i n d e x c h a r a c t e r s - - -

leng 七h

o f i n d e x

- - -

Ou七put

i n d e x

持非

宇 OU七 kana2

= ’ ' ^{x $} ⁱ ⁿ ^p ^c ^l ² ^;

pri五tf

" S u b c v k a n a , k a n a l

＝毛 s,

k a n a 2

＝宅 S C工＝毛 d

¥n ” ,

$ i n p

kana2 ，宇 OU七 kana2,

$ i n p _ c l 2 ;

宇 OU七 kana2 ＝草lnp kana2 ；ー

w h i l e (

宇土np

c l 2 > ^{0 )}

$ i n p c l 2 = $ i n p c l 2 - 2 ;

宇 wk l乙ana

=

subs主ど（

$ i n p k a n a 2 ,

宇 inp

c l 2 , 2 ) ; f o r ( $ i = O ; $ i < = 8 7 ;

卒土十三千）

i f

（宇 wk_kana

e q

$kanal ［宇 i]

)

卒 wk

k a n a 2 = $ k a n a 2 [ $ i ] ;

持 prム七f ^" ^S ^u ^b ^c ^v ^k ^a ⁿ ^a ² ^, ^w ^k ^k ^a ⁿ ^a ^l ＝もs, ⁱ ⁿ ^p C工2 ＝もd ^w ^k ^_ ^k ^a ⁿ ^a ² ＝毛s ^¥n ~

井手wk

k a n a

，宇 inp

C l 2 , $ w k

kana2 ；ー

}

subs 七ど（宇 out_kana2, 宇土百p_c工 2,

2 ) =

宇 wk_kana2;

非ー一一 end subrou七 ine

c v k a n a O O

持非

非非非非非非井静非非普井井静持非非井非非持非非非井弁持非非井非非非井非持非非普持非井持非井井善非普井幹井一ーーー－ Slユbrou七 ine

c n v r e f O O

普非井静非持井井善井静非持非非普非持非非井井幹井静持井静井弁非非非持井持井井静井静井静非非非井弁非非非井

s u b c n v r e f O O

口O Fhu

w h i l e ( $ c l x > ) 0

宇 cl

= ⁱ ⁿ ^d ^e ^x ^$ ^w ^k

^tex七2, ^{$chra 七mk;}

i f

（卒 cl

<

^{0 ）一}

las 七；

持

i f

（宇 cl ! =

) 0

substr （卒 xlinel, $kl ，字 cl)

=

^{subs 七 r}

⁽ ^$ ^w ^k

tex七 2' 0 ，宇 c工）；

宇 kl

= ^$ ^k ^l

^{＋宇 cl;}

subs 七ど（宇 xlinel, 宇 kl,

) 2

s u b s t r

($wl王七 ex 七 2, 手 cl,

; ) 2

$ k l

＝卒 kl

+ 2 ;

宇 cl ＝手 cl

+ 1 2 ;

字 clx ＝宇 clx －宇 cl;

卒 wk 七ex七 2

=

^{subs 七 r}

⁽

$wl王七 ex七2 ，字 cl);

持非

subs 七 r （卒 xlinel ，卒 kl,

$ c l x ) =

subs 七r （卒 wk tex七 2, 0 ，卒 clx);

$ k l

＝卒 k工＋卒 clx;

手 xline

=

宇七 ag

n a m e [ 2 ] . s u b s t r

（宇 xlinel,

, 0

宇 kl);

p r

in七 OUTFILEl 卒 xline ，”￥n ”；

非

井一一一ーー一－一一一一一一一一一ー一一一一一一一一ー一ー一一一一ー

E n d c r e i d x 1 2 ( )

非

非井井静非非井井幹非井非非非非非非井静井幹井井幹普非非持井幹井善井非枠非非普普非非持非非非井非非非非非井井幹一一一 subrou七 ine

c v k a n a O O

持非持非普井幹非非非普持非非非非普非持井静井井幹井静井幹非非井幹井幹非非非井井幹非非非非非非非井幹持非井非非 inp1ユ七

v a r i a b l e

井手 inp

k a n a 2

非卒 inp:=c工 2 井手 out-kana2

井一 s u b c v k a n a O O

非

一一－

i n d e x

charac七 ers

－一－ leng七h

o f i n d e x

－一一

O u t p u t i n d e x

普普

$ou七＿kana2

= ' '

^{x 卒 inp}

^c ^l ² ^;

p r

in七 f ” Sub

c v k a n a ,

ka云al ＝毛 s,

k a n a 2

＝も S

c l

＝宅 d

¥n

”,

$ i n p k a n a 2 ,

$ou七 kana2 ，宇 inp_cl2;

$ o u t _ k a n a 2

＝草lnp_kana2 ；ー

~hile （卒 inp一心予 0

)

$ i n p c l 2

＝字 inp

c l 2 - 2 ;

$wl仁kana

=

substr($inp_kana2 ，卒 inp_cl2,

2 ) ; f o r

（宇土＝ O; 宇土く＝ 87;

$ i + + )

i f

（卒 wk_kana

e q

$kanal ［卒 i]

)

$ w k k a n a 2

＝宇 kana2 ［宇 i]

;

持 printf

" S u b c v k a n a 2 , w k k a n a l

＝宅 s,

i n p

C工 2 ＝も d

w k k a n a 2

＝宅 s·¥n ”，

井 $wk

k a n a , $ i n p

Cl2 ，宇 wk kana2 ；一

subs 七 r （宇 out_kana2 ，宇 inp_c12,

2 )

＝宇 wk_kana2;

井一一一 end subrou七 ine

c v k a n a O O

持持

非井非非非非非井静井幹井井幹井持非普井静非井幹持井持非非井幹非井幹井弁井井非非非井非持非非井非普非牲井井一一一一一 subr01ユ七 ine

c n v r e f O O

非井静井井井非非非非井弁持持非非持普持非非非持井幹持非非井持井幹井井持非井静静非井静井幹非非非非井普非非

s u b

cnvど efOO

口O Fhu

持 inpu七 argumen七

=

^宇どef

ⁿ ^o

持 outpu七 argument ＝卒 ref-nol 非

宇ど ef

n u m =

卒 ref

n o ;

宇 ref-noz ＝’’支 8;

宇 k

= - 0 ;

w h i l e

（卒 k

< = 3 )

卒 k2 ＝宇 k

* ² ^;

宇 kl

= $ k + 1 ;

宇 chど wk5

= s u b s t r ( $ r e f n u m , $ k l , 1 ) ;

fo ど

( $ i = O ;

宇 iく＝ 9; 宇土＋＋）

i f

（卒 num h ［宇 i]

e q $ c h r w k 5 )

subs 七 r （宇 ref noz ，卒 k2,

= $ ) 2 n u m

z ［卒 i

l ;

持井

p r

^{in七 f}

" k

^{＝も d,}

c h r w k 5

^{＝も s}

¥n

”, 宇 k ，宇 chr wk5 ；一

$ k + + ;

卒 ref

n o l

^{手 ref}

n o z ;

井弁

井幹非枠非井静弁非非井弁非非持持井静非持非非井非井非非非持井非井非非井弁非非枠井幹非井幹非非井幹持井静非持非持非非非持非井非非非非井一一ーー－ subrou七 ine

c r e i d x 1 3 - 3 8

持非神井静静井幹持井静持非枠非井幹非非非井井幹非持非非井善井幹非非持非非非持非持井幹非非非非非井静静非井井非非非普非非持非非持井幹非

s u b c r e i d x 1 3

普

Pど in七 f ” 813-00

R e f n o

＝も s,

c l 3

＝毛 d, tex七 3 ＝も s

¥n

”, 卒 ref

n o ,

卒モ13, 宇 wk 七ex七 3;

. , . ,

0 3

ユ一一一一 P

1ム O

oo

cl

《HV 内円Y HZH

持

L O : w h i l e

（車工 oop

< = 2 7 )

卒 col2

=

index 卒 wk tex七 3 ，宇 chrcomm,

$ c o l l + ^; ¹

宇 colw ＝卒 col2

- $ c o l l ;

持 printf ” 813-01

l o o p

＝毛 d

c o l w

＝宅 d,

c o l 2

＝告 d,

c o l l

＝も d 七ex七 3 ＝も s

¥n

”,

非 $loop ，卒 colw ，宇 col2 ，宇 coll, $wk 七 ex七 3;

i f

（卒 colw

! = 1 )

持非ー一一一ーーーーーーーーーー一一ー一一

C h e c k

Tex七

F i e l d w k

七ex七3 非

宇 cl

=

index 卒 wk 七ex七 3 ，宇 chrdblq;

卒 clpl

= $ c l + l T

平 c2

= i n d e x

$wk 七 ex七 3 ，宇 chどdblq,

$ c l p l ;

宇 ell ＝宇 c2 －宇 clpl;

卒 wk 七 ex七 l

=

subs 七ど（ $wk 七 ex 七 3, 字 clpl, 宇 ell);

非 $ell－＝卒 co工 2 一宇 coll

-

~；

井

$ w k t e x t l =

subs 七 r ($wk 七 ex七 3,

$ c o l l + , 2

宇 c工工）；

非一

早 xline2

=

字七 ag

n o [ $ l o o p ] . $ w k

七ex七 1;

p r

in七 OUTFILE2 卒 xline2 ，”￥n ”；

井幹持持非井

井一ーーーーー一一ー一一ー一ーー一一ー一一一一一

s o m e

da 七 a

i s r e m a i n e d

非非－－－

K e y w o r d <XX C h e c k

S七 ep

i s

S 七ar七 ing

h e r e

非

井静持非持非持井非非井静井静非非持非非非普非非持持非井静井静非井幹持神井普非井幹井幹非持井静井非持井幹非普井幹普非井静非井井井静井弁井

RU QU

持 staど七 check

i s < / >o r < /

・・・

/ / >

井幹非非非非非井幹非普非普非持非非非非非持非非非非井静普井井非普井静非非井弁非普持非普普非井非非非普非井幹非非持持持非非非井弁持非井幹宇 chk

k w d = $kwd[C

]];

非

1 0 0 0 ;

七 ex七＝卒 wk tex七 1 工 en

= $ c l l

宇 xline 工

一一一一

-

-A廿 A廿 A廿品廿

円U

.,

トL

斗

、．，．，《r

｝ハ

d vnuri

卒 clx

--

$ c l =

宇 kl =

L l : w h i l e

宇 cl;

$chrlpどれ，

卒 cO

=

index 宇wk 七 ex七 1,

i f

（宇 co

< ) 0

エa s七

L l ;

非

品骨HA 品HA廿

2 ;

卒 co +

pa rence >

卒 chrrprn,

c h e c k

righ七

,

1ム

x

←』

e k

和」

C｝、

nu I

x

e く

α

宅

n 円4

・LC 戸中円一一

4JL

CZ ム s

・・工

･ n ” ,

宅 s

¥n ” ,

R e f n o =

七 ex 七 1 宅s no 七 paired,

＝も d,

c l l w a s p r

in七 f ” Eどど or

N o . 1 3

卒 ref

n o ;

p r

in七 f ” Eピror

t e x t R e f n o

＝宅 s, 宇 ref no ，宇 cll ，卒 wk 七 ex七 l;

L l ;

P a r e n c e s

c l x

＝も d

¥n ” ,

＝も d,

c o

,

’

n

￥

=

包古・’

xs

-

_E_apo

ne

= rd

}

14

1ム’十回

kox

hce

CC

ドキュメント内研究成果報 (ページ 159-163)

門」

i f ( $ c l

) 0

$ k l , $ c l )

t e x t 2 , $ , 0 c l ) ;

$ k l

k a n j i ;

$ k l

d d x d x

x

. , . , . ,

nnnnnn

k ”

”

n

’ n

’ n

’

n n n

l l l

rxrxrx

dcvdsd

h h h

hLhLhL CZC I c

= u

= u

= U

o o o

l i l i

xrxrxr

spsp

P

w h i l e

> ) 0

= i n d e x

$ c h r a t m k ; i f

<

i f

) 0

$ c l ) = s u b s t r

$ , O c l ) ;

$ k l = $ k l

(

= ) 2

$ c l , 2 ) ;

+ 2 ;

+ 1 2 ;

$ c l x

- $ c l ;

= s u b s t r

( $ x l i n e l ,

=

=

n a m e [ 2 ] . s u b s t r ( $ x l i n e l , $ , O k l ) ; p r

E n d c r e i d x 1 2 ) (

c v k a n a O O

k a n a 2

k a n a 2

持一 s u b c v k a n a O O

i n d e x c h a r a c t e r s - - -

o f i n d e x

- - -

i n d e x

= ’ ' x $ i n p c l 2 ;

" S u b c v k a n a , k a n a l

k a n a 2

¥n ” ,

$ i n p

$ i n p _ c l 2 ;

w h i l e (

c l 2 > 0 )

$ i n p c l 2 = $ i n p c l 2 - 2 ;

=

$ i n p k a n a 2 ,

c l 2 , 2 ) ; f o r ( $ i = O ; $ i < = 8 7 ;

i f

e q

)

k a n a 2 = $ k a n a 2 [ $ i ] ;

持 prム七f " S u b c v k a n a 2 , w k k a n a l ＝もs, i n p C工2 ＝もd w k _ k a n a 2 ＝毛s ¥n ~

^d ^d x ^d x

= ’ ' ^{x $} ⁱ ⁿ ^p ^c ^l ² ^;

c l 2 > ^{0 )}

持 prム七f ^" ^S ^u ^b ^c ^v ^k ^a ⁿ ^a ² ^, ^w ^k ^k ^a ⁿ ^a ^l ＝もs, ⁱ ⁿ ^p C工2 ＝もd ^w ^k ^_ ^k ^a ⁿ ^a ² ＝毛s ^¥n ~

= ⁱ ⁿ ^d ^e ^x ^$ ^w ^k

⁽ ^$ ^w ^k

= ^$ ^k ^l

⁽

^c ^l ² ^;

ⁿ ^o