#!/usr/local/bin/jperl ######################################################## # SSM E‹Æ•ª—ÞƒR[ƒh 1995 ”N”Å ######################################################## $, = $" = "\t" ; $\ = "\n" ; ######################################################## # •ÏŠ·ƒe[ƒuƒ‹‰Šú‰» ######################################################## # 8•ª—Þ %eight = ( '‚»‚Ì‘¼' , '.' , 'ê–å' , '1' , 'ŠÇ—' , '2' , 'Ž––±' , '3' , '”Ì”„' , '4' , 'n—û' , '5' , '”¼n—û' , '6' , '”ñn—û' , '7' , '”_—Ñ' , '8' , ) ; # E‹ÆˆÐM (75) while(){ next unless /^\(/ ; while( /\((\d\d\d)=(\d\d\.\d)\)/g ) { $score75{$1} = $2 ; } while( /\((\d\d\d),(\d\d\d)=(\d\d\.\d)\)/g ) { $score75{$1} = $score75{$2} = $3 ; } while( /\((\d\d\d),(\d\d\d) thru (\d\d\d)=(\d\d\.\d)\)/ig ) { $score75{$1} = $4 ; foreach( $2..$3) { $score75{$_} = $4 ; } } while( /\((\d\d\d) thru (\d\d\d)=(\d\d\.\d)\)/ig ) { foreach( $1..$2) { $score75{$_} = $3 ; } } } ######################################################## # ƒR[ƒh•\‚ðˆ—‚µ‚Äo—Í ######################################################## @F = ( 'ƒR[ƒh', '8•ª—Þ' , 'ˆÐM' , '–¼Ì' , '‹ŒƒR[ƒh' ) ; while(<>){ chop; tr/‚O-‚X/0-9/; s/@/ /g ; if( /^([0-9][0-9][0-9])\s+(\S+)\s*m(.+)n\s*$/ ) { print @F; @F = ( $1, $eight{$3}, $score75{$1}, $2 ) ; } if( /y‹Œz/ ) { ( $F[$[+4] = $' ) ; } } print @F; __END__ #ˆÈ‰º‚͈ÐMƒR[ƒh•ÏŠ·—pSPSSƒvƒƒOƒ‰ƒ€ (‘º£Ž‚É‚æ‚é) RECODE GEN,SYO,JOBF,JOBM (501,502=62.7)(503=61.0)(504,505=62.7)(506,507=54.6) (508,509=82.7)(510=65.4)(511 thru 515=52.8)(516=61.3) (517=87.3)(518=70.3)(519=73.0)(520=50.5)(521 thru 523=62.9) (524=83.5)(525,526=62.9)(527=58.7)(528=70.1)(529=64.6) (530=65.8)(531,532=56.3)(533=65.8)(534,535=58.2)(536=61.3) (537=50.5)(538=62.9)(539 thru 544=50.5). RECODE GEN,SYO,JOBF,JOBM (545=70.5)(546=81.1)(547=70.5)(548=73.3)(549=70.5)(550=60.9) (551,552=60.4)(553=60.9)(554 thru 558=51.6)(559=49.4)(560=44.6) (561,562=32.7)(563=44.6)(564,565=47.4) (566=48.9)(567=52.5)(568=48.9)(569=35.5)(570,571=28.1) (572,573=42.3)(574=35.4)(575=42.3)(576=40.2)(577=35.5) (578=31.4)(579=45.0)(580=32.6)(581=40.7)(582=32.0)(583=31.7) (584=60.5)(585=31.7)(586=31.4)(587,588=31.7)(589,590=35.2) (591,592=31.7). RECODE GEN,SYO,JOBF,JOBM (593 thru 595=54.2)(596,597=32.4)(598=54.2) (599=39.9)(600=42.6)(601=37.3)(602,603=29.6)(604=35.9)(605=57.3) (606=51.8)(607=40.6)(608,609=74.8)(610=74.9)(611,612=40.7) (613=44.4)(614=40.7)(615,616=57.3)(617=42.2)(618=39.8) (619=57.3)(620 thru 622=28.1) (623=37.3)(624=39.5)(625,626=32.6)(627,628=37.3)(629=46.8) (630 thru 632=37.3)(633,634=40.2)(635 thru 642=42.6). RECODE GEN,SYO,JOBF,JOBM (643,645 thru 647=34.2)(644=36.7)(648 thru 650=32.6)(651=42.9) (652,653=32.6)(654=42.6)(655=45.3)(656=39.5)(657=32.6) (658=37.6)(659,660=32.6)(661 thru 666=42.6)(667 thru 669=37.3) (670,671=50.9)(672=32.6)(673 thru 675=40.6)(676,677=41.3) (678,679=45.3)(680,681=39.8)(682,683=26.7)(684=39.8) (685 thru 688=27.2)(689 thru 999=999). #END