，引 - 研究成果報

品骨HA

汁A 廿

持

substr （卒 xlinel, $kl ，宇 cl)

$ k l =

$k工＋宇 cl;

subs 七 r ($wk 七 ex七 lf Q ，卒 cl);

$ c 2 = i n d e x

$wk 七ex七 1,

$ c h r i g e t a , $ c l + 2 ;

p r

in七 f ” 813-3 －芝七ex七 1 ＝も s,

c l

＝も d,

c 2

＝宅 d

･ n "

宇wk 七ex七 l ，宇 cl ，宇 c2;

$ k l l

＝卒 c2 －：：：.卒 cl

- 2 ;

$ k l 2 = $ c l + 2 ;

宇 c3

= ⁰ ^;

$ n u m x = ' ’ ;

w h i l e ( $ k l 2

＜卒 c2)

手 num

w =

subs 七r （卒 wk 七 ex七 l ，宇 kl2^f

; 2 )

字 c3 ；；－宇 c3

+

1 ；一 fo ど（卒 j=O ；卒 j く＝ 9;

$ j + + )

i f

^{（宇 num_w}

e q $ n u m

^{z ［卒 j}

] )

$ c 4

＝旬；

subs 七 r

( $ n u m x , $ c 3 , ) 1

＝宇 num

h [ $ c 4 ] ;

持

p r

in七 f ” Slヲー 3-3

n u m w

＝も s,

n u m x

＝毛 s,

c 3

＝も d,

c 4

＝毛 d

¥n ” ,

非卒 num

w , $ n u m ; - x

$c3 ，宇 c4 ；一宇 k工 2 ＝宇 kl芝＋ 2 ；ー

普

持

$chど wkl

=

subs 七 r （卒 num x ，工，宇 c3);

宇 xli百e21 ＝’￥Rsj ｛’. $吉hr

w k l

.’}^{I ;} 卒 kllx ＝手 c3

+

6 ；一

subs 七 r （宇 xlinel, $kl ，平 kllx)

=

subs 七r （宇 xline21, 0 ，宇 kllx);

$ k l

＝字 kl ＋宇 kl 工 x;

卒 cl

= $ c 2 + 2 ;

$ c l x

^{＝宇 clx}

- $ c l ; i f

^{（卒 clx}

< = 0 )

las 七 L31;

$wk 七 ex七 1

=

subs 七r （宇 wk

t e x t l

，宇 cl)

;

p r i n t f ” S 1 3 - 3 - 5 T a g

＝も s ，七ex七 l ＝も s,

c l

^{＝も d,}

c 2

^{＝毛 d,}

c l x

^{＝宅 d}

･ n " ,

宇どef

n o ,

宇 wk 七 ex七 1,

$ c l ,

卒 c2,

$ c l x ;

卒 cl = 0 ；一一

品汁品品 HA 汁必骨

A廿

substr （宇 xlinel ，宇 kl，宇 clx)

=

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

$ k l

＝卒 kl ＋宇 clx;

井弁非非非非非非非非非非非非井非井非持非非井井普普非非井井普普井静非非非非非井非持非持井幹井静井静牲井幹非井非井非非持非 4 七h

c h e c k i s

S ママ S

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

$wk 七 extl

=

subs 七ど（ $xlinel,

$ , 0 k l ) ;

卒 cl玄＝卒 kl;

非 printf ” 813-4-1 tex七 1 ＝宅 s,

c l x

＝も d

¥n ” ,

井手 wk 七 ex七 l

, $ c l x ;

字 xlinel ＝’「 x

1 0 0 0 ;

井

弁 $chrdllr ＝宇 kwd[4];

井

x

c

可ム

．，．，《片

nunuft

==

e

14 11

叫

’k

-手 cl

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

^{tex七 l}

^{, $} ^c ^h ^r ^d ^l ^l ^r ² ^;

i f

（卒 cl

<

^{0 ）ー}

las 七 L41;

持

i f

（卒 cl != 0)

s u b s t r ( $ x l i n e l , $ k l , $ c l )

$ k l

＝卒 kl

+ $ c l ;

subs 七 r ($wk 七 ex七 1,

, $ 0 c l ) ;

持

$ c 2

= index 宇 wk 七 extl, $chrdllr ，卒 cl

+ 2 ;

$ k l l

＝宇 c2

-

$c士ー 2;

卒 xline21 = subs 七ど（ $wk 七 ex七 1,

$ c l + ⁴ ² ^, ^; ⁾

卒 xline20 = subs 七 r($wk 七ex七 1,

$ c l

－字 kll,

$ k l l ) ;

手 xline22 ＝’￥ rubyiii{T .卒 xline20 .’}{’.

$ x l i n e 2 1

.’}’; 宇 kllx =

1 2 + 4 + $ k l l ;

subs 七ど（宇 xlinel, 卒 kl

-

卒 kll,

$ k l l x )

= subs 七 r

( $ x l i n e 2 2 , , 0

卒 kllx);

$ k l

$ k l + $ k l l x - $ k l l ;

宇 cl =

$ c 2 + 2 ;

手 clx ＝宇 clx －卒 cl;

i f

（卒 clx く＝

) 0

las 七 L41;

品廿品廿品廿

A廿

A骨

宇 wk 七ex七 l = subs 七 r （卒wk 七 ex七l ，卒 cl);

p r i n t f ” ⁸¹³ ^-4 ^-5 ^T ^a ^g

＝も s, tex七 1 ＝宅 s,

c l

＝も d,

c 2

＝も d,

c l x

＝も d

¥n ” ,

卒 ref

n o , $ w k

tex七 l ，宇 cl,

$ c 2 , $ c l x ;

卒 cl = 0 ；一一

substr($xlinel ，宇 kl,

$ c l x )

s u b s t r

（宇 wk tex七 1,

$ , 0 c l x ) ;

卒 kl 君卒 kl

+ ^$ ^c ^l ^x ^;

持非持井静井非井静井非持普普非井静井静静非非井普井井静普持非非非持非非非非井幹井静非非井持井静非非非持 5 七h

c h e c k i s

= =

= = = > ^$

^¥cdo七s

^$

井静普非非井非井井非非井静非井静非井静普非井静非非井静静非非非非非非普非普持井持非非井静非非井普非卒wk 七ex七 1 = subs 七 r （宇 xlinel,

, $ 0 k l ) ;

$cl玉＝

$ k l ;

非 printf ” 813-5-1 七 ex七 1 ＝も s,

c l x

＝も d

¥n ” ,

井手wk 七ex七 1,

$ c l x ;

$ x l i n e l

＝’「 x

1 0 0 0 ;

井

静 $chreqeq ＝宇 kwd

[ 5 ] . $ k w d [ 5 ] ;

井

> nu

x c

可ム

. , . ,<

nunu

,

==

e

-ckd 1lu

SE 拘中川・，

EJ 句ム

手 cl =

i n d e x $ w k

textl ，宇 chreqeq;

i f

（宇 cl

<

⁰⁾

工 as 七 L51;

非

i f

（宇 cl !=

) 0

s u b s t r

（宇 xlinel,

$ k l , $ c l )

$ k l

$ k l + $ c l ;

substr($wk 七 ex七 1, 0 ，卒 cl);

持

$ _$ x _k l _l i _l n e 2 1

₌

₁ ₀ _;

=’$¥cdo七s

s

^’

^F

au Fhu

持

品廿品廿品汁

A廿

subs 七ど（ $xline21,

, 0

卒 kll);

subs 七ど（宇 xlinel,

$ k l ,

宇 kllx) 字 kl ＝卒 kl

+ $ k l l ;

$c ユ＝

$ c l + 4 ;

手 clx ＝卒 clx 一宇 cl;

i f

（卒 clx

< = ) 0

las 七 151;

宇 wk 七 ex七 l = substr （卒wk 七 ex七 l ，宇 cl)

;

p r i n t f ” ⁸¹³ ^-5 ^-5 ^T ^a ^g

＝も s, tex七 l ＝も s,

c l

z も d,

c 2

＝も d,

c l x

＝も d

¥n ” ,

卒どef

n o ,

宇 wk

t e x t l ,

宇 cl,

$ c 2 ,

$c工x; 宇 c ユ＝ 0 ；一一

subs 七ど（宇 xlinel, 宇 kl, 卒 clx) =

s u b s t r

（宇wk 七 ex七工，

$ 0 , c l x ) ;

$ k l

＝宇 kl 十字 clx;

持井静非非非非井弁非非非井非非井静持持非井幹井弁井井井井井井静非非非非持井非非井井非 6七h

c h e c k i s

’－’＝＝＝＞’一’

持井非非井井持非井井持井静井弁井静井持非非非持非非非非非非井弁非持井静井幹持井幹卒 wl王七 ex七 1 = subs 七r ($xline ユ， O ，宇 kl);

卒 clx =

$ k l ;

持 printf ” 813-6-1 七 extl ＝も s, c工X ＝も d

¥n ” ,

持卒wk

t e x t l

，宇 clx;

宇 xlinel ＝’「 X

1 0 0 0 ;

井

幹卒 chrhyph ＝；：：宇 kwd

[ 6 ] ;

持

> 円U

x c

可ム

. , . ,<

nU 門Ur

－

－一一一

『t4

1 1 u .

・

kd

卒卒

UJL

1ム

r o

TLU

宇 cl = index 卒 wk_tex七 l ，卒 chどhyph;

i f ( $ c l < ) 0

las 七 L61;

持

i f

（宇 cl != 0)

substr （宇 xlinel ，卒 kl ，宇 cl)

$ k l

＝卒 kl ＋宇 cl; subs 七 r （宇 wk 七 extl, 0 ，宇 cl);

持 substr($xlinel ，宇 kl,

2 )

$ k l

$ k l + 2 ;

^’ーー’

,

持

品廿 A廿廿A

A廿

卒 cl ＝宇 cl

+ 2 ;

宇 clx ＝卒 clx 一宇 cl;

i f

（宇 clx

< = 0 )

las 七 L61;

宇 wk

t e x t l

= substr （卒 wk 七 extl ，卒 cl);

p r i n t f " S 1 3 - 6 - 5 T a g

＝も s, 七ex七ユ＝宅 s,

c l

＝も d,

c 2

＝毛 d,

c l x

＝毛 d

･ n " ,

宇 ref

n o ,

$wk 七 extl ，卒 cl, $c2 ，宇 clx;

宇 cl = 0 ；一一

subs 七ど（宇 xlinel, 手 kl,

$ c l x )

宇 kl ＝宇 kl ＋卒 clx; subs 七ど（字 wk tex七 1,

' 0

宇 clx);

持非

円。

にU

x

←」

e

x

←」

e

巾

l－

a

Tぃ“

u

十回

p

u 七

o

品廿品廿

.,

1ム

’k

,

hhT

,

e

寸ム

n

14 －工

x

ど仲平

s

十回

u b

. , s n

1」￥

pu o

14e。，

卒 n

rLEl

e1 ム

mx ad

}

一－

n 92

a 守ム

←」

SF

=

巾－

o

e

n 十回

・工 n

14El

xr

・

p

非非非井非井非非井

手 wk 七 ext3 = substr （卒wk 七ex七3 ，宇 col2);

宇 clJ"

=

工 ength （宇wk 七 ex 七宝）；

卒 coll

=

^O^;

非 pr in 七 f ” 813-07 Tag ＝宅 s ，七 ex 七 3

=

^{（も s),} ^c^l³ ^{＝毛 d,} ^c^o^l^l ^{＝毛 d,} ^c^o^l² ^{＝毛 d} ^¥n^”^,

持 $ref no, substr （宇 wk 七 ex七 3, 0, 40), $cl3 ，卒 coll ，宇 col2;

井

幹 end while loop

卒 loop++;

非

非ーー－ Loop 28 processing

非

卒 cl = 0;

卒 c2 = index 卒 wk text3 ，宇 chrdblq, $cl + 2;

$ell = $c2 - 2;

卒 wl屯七 ex七 l

=

^{subs 七r}⁽^$^w^k ^{tex 七 3,} ²^,^$^e^l^l⁾ ^;

非 pr主n七 f ”S13-28 七 ex七 1 ~宅 s, ell ＝宅d ¥n”, 非 $wk tex七 l ，宇 ell;

非非非非非非非非非井幹非井幹事井幹井弁井幹非井静非非持非井静普非非持井持持井弁非井 6七h check is ^{v ー’} ===> P 一一’

持持非井非非井幹非非持井静井幹非非牲井静非非持非非井弁非非井非井静非非井幹非非井宇 clx ＝宇 kl;

持 printf "813-28-1 七 extl ＝毛 s, clx ＝毛 d ¥n”,

非 $wk 七ex七 l, $clx;

卒 xlinel ＝’「 x 1000;

持井 $chrhyph ＝卒 kwd[ 6] ; 非

> nu

14

X C

F・

．，ハ片 v

nunurt

==

e

・1

114h

C 守KW qvq

} : ,

時_l

円。占

L 門ノム

卒 cl = index $wk一七ex七ユ， $chrhyph; if （卒 cl

<

las 七 L281;

持 if （卒 cl != )0

subs 七 r （宇 xlinel ，手 kl, $cl)

$kl

=

^$^k^l ^{＋卒 cl;} subs 七 r （卒 wk 七 ex七ユ， ,0 宇 cl);

非

持

subs 七ど（宇 xlinel, 卒 kl, )2

卒 kl ＝宇 kl + 2;

字 cl ＝宇 c ユ＋ 2;

$clx ＝宇 clx - $cl;

宇wk tex七 l = subs 七 r ($wk 七ex七 l ，宇 cl);

’---- ’ ,

非

持 pr in七 f "813-28-5 Tag ＝も s, tex 七 1 ＝毛 s, cl ＝毛 d, c2 ＝も d, clx ＝も d ¥n”, 井手ど ef no ，宇wk tex七 l ，宇 cl ，宇 c2, $clx;

$cl ⁼0;

非非

substr （宇 xlinel, $kl, $clx) subs 七ど（宇 wk 七ex七 1, ,0 $c工x);

- 1 6 7

-卒 kl

= $ k l

＋宇 clx;

卒 wk tex七 l

=

subs 七ど（ $xlinel,

$ 0 , k l ) ; x

←」

e

x

←」

e a

T L

u

←」

p u

十』

o

廿 A廿 A廿

宇 xline2

=

^宇七ag

ⁿ ^o ^[ ² ⁸ ^] ^.

subs 七 r （宇 wk

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

p r

in七 OUTF工 LE2 宇 xline2 ，”￥n ”；

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

，引

$ k l =

$ c 2 = i n d e x

$ c h r i g e t a , $ c l + 2 ;

p r

c l

c 2

･ n "

$ k l l

- 2 ;

$ k l 2 = $ c l + 2 ;

= 0 ;

$ n u m x = ' ’ ;

w h i l e ( $ k l 2

w =

; 2 )

+

$ j + + )

i f

e q $ n u m

] )

$ c 4

( $ n u m x , $ c 3 , ) 1

h [ $ c 4 ] ;

p r

n u m w

n u m x

c 3

c 4

¥n ” ,

w , $ n u m ; - x

=

w k l

+

=

$ k l

= $ c 2 + 2 ;

$ c l x

- $ c l ; i f

< = 0 )

=

t e x t l

;

p r i n t f ” S 1 3 - 3 - 5 T a g

c l

c 2

c l x

･ n " ,

n o ,

$ c l ,

$ c l x ;

=

$ k l

c h e c k i s

=

$ , 0 k l ) ;

c l x

¥n ” ,

, $ c l x ;

1 0 0 0 ;

x

c

==

e

14 11

= i n d e x $ w k

, $ c h r d l l r 2 ;

i f

<

i f

s u b s t r ( $ x l i n e l , $ k l , $ c l )

$ k l

+ $ c l ;

, $ 0 c l ) ;

$ c 2

+ 2 ;

$ k l l

-

$ c l + 4 2 , ; )

$ c l

= ⁰ ^;

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

^{, $} ^c ^h ^r ^d ^l ^l ^r ² ^;

$ c l + ⁴ ² ^, ^; ⁾

p r i n t f ” ⁸¹³ ^-4 ^-5 ^T ^a ^g

+ ^$ ^c ^l ^x ^;

= = = > ^$

^$

$ _$ x _k l _l i _l n e 2 1

₁ ₀ _;

^F

p r i n t f ” ⁸¹³ ^-5 ^-5 ^T ^a ^g