[ruby-list:4267] Sample Program ( mbox to INBOX )

長野＠新日鉄情報通信システム と申します。

多分、お初にお目にかかる方が多いと思います。
よろしくお願いします。 (_o_)

ruby ML には、随分前から参加させていただいていたのですが、
どうにも、きっかけがつかめずに、やっと最初のプログラムを
書いてみた次第です。

付属のプログラムは、UNIX の mbox 形式のファイルを、cmail 
という mailer が利用するファイルの形式に変換するという
ものです。
＃ここで、cmail をご存知の方って、どのくらいいらっしゃる
＃のでしょう？

ruby でのプログラミングの感覚が、今一つ掴めずにいますが、
一応動いているようですので、皆様に見ていただこうと思い、
恥ずかしながら、公開します。

ここの所は、こうした方が{良い|ruby らしい}等のご意見を
いただけたら嬉しいなぁと思っています。

＃最終的には、ruby で書いた yet another cmail を目標に、
＃ruby を勉強していきたいと思ってます。

では。
---
[e-mail]

The following is an attached File item from cc:Mail.  It contains
information that had to be encoded to ensure successful transmission
through various mail systems.  To decode the file use the UUDECODE
program.
--------------------------------- Cut Here ---------------------------------
begin 644 mbox.rb
M(R$O=7-R+VQO8V%L+V)I;B]R=6)Y"@IC;&%S<R!-8F]X7W1O7VEN8F]X"B`@
M9&5F(&EN:71I86QI>F4*("`@($!M87A?8VYT(#T@,`H@("`@0&AE861E<B`]
M('M]"B`@("!`;6]N=&@@/2![(DIA;B(@/3X@(C`Q(BP@(D9E8B(@/3X@(C`R
M(BP@(DUA<B(@/3X@(C`S(BP@(D%P:2(@/3X@(C`T(BP@7`H@("`@("`@("`@
M("`@(")-87DB(#T^("(P-2(L(")*=6XB(#T^("(P-B(L(")*=6PB(#T^("(P
M-R(L(")!=6<B(#T^("(P."(L(%P*("`@("`@("`@("`@("`B4V5P(B`]/B`B
M,#DB+"`B3V-T(B`]/B`B,3`B+"`B3F]V(B`]/B`B,3$B+"`B1&5C(B`]/B`B
M,3(B('T*("!E;F0*"B`@9&5F(&5X8VAA;F=E7V1A=&$H(&9N86UE("D*("`@
M(&9I;&4@/2!O<&5N*"!F;F%M92`I"B`@("!I(#T@,`H@("`@0&AE861E<EMI
M72`]('M]"0H@("`@;6]D92`](#`*("`@(&]S='(@/2`B(@H@("`@8F5G:6X*
M("`@("`@=VAI;&4H('-T<B`](&9I;&4N9V5T<R`I"B`@("`@("`@:68@;6]D
M92`]/2`Q"B`@("`@("`@("!`:&5A9&5R6VE=6R)-04E,(ET@/2!`:&5A9&5R
M6VE=6R)-04E,(ET@*R!S='(*("`@("`@("`@(&EF('-T<B`]?B`O7EQN)"\*
M("`@("`@("`@("`@;6]D92`](#`*("`@("`@("`@(&5N9`H@("`@("`@("`@
M:68@<W1R(#U^("]>7'0O"@D@("`@<W1R(#T@;W-T<BYC:&]P(2`K('-T<BYG
M<W5B(2@B7'0B+"(@(BD*("`@("`@("`@(&5N9`H@("`@("`@("`@:68@<W1R
M(#U^("]>4W5B:F5C=#I<<RA;7'=<5UQD7$1=*RDD+PH@("`@("`@("`@("!`
M:&5A9&5R6VE=6R)354)*(ET@/2`D,2YC:&]P(0H@("`@("`@("`@96YD"B`@
M("`@("`@("!I9B!S='(@/7X@+UY&<F]M.EQS+R`@"B`@("`@("`@("`@(&EF
M("`@('-T<B`]?B`O7D9R;VTZ7',H6UQW7%=<9$`N+5TK*5QS7"@H6UQW7%=<
M9$`N+5TK*5PI)"\*("`@("`@("`@("`@("!`:&5A9&5R6VE=6R).04U%(ET@
M/2`D,@H@("`@("`@("`@("`@($!H96%D97);:5U;(D%$1%(B72`]("(\(B`K
M("0Q("L@(CXB"B`@("`@("`@("`@(&5L<VEF('-T<B`]?B`O7D9R;VTZ7'-<
M(BA;7'-<*%PI7'=<5UQD+BU=*RE<(EQS*%P\6UQW7%=<9$`N+5TK7#XI)"\*
M("`@("`@("`@("`@("!`:&5A9&5R6VE=6R).04U%(ET@/2`D,0H@("`@("`@
M("`@("`@($!H96%D97);:5U;(D%$1%(B72`]("0R"B`@("`@("`@("`@(&5L
M<VEF('-T<B`]?B`O7D9R;VTZ7',H6UQW7%=<9$`N+5TK*5QS*%P\6UQW7%=<
M9$`N+5TK7#XI)"\*("`@("`@("`@("`@("!`:&5A9&5R6VE=6R).04U%(ET@
M/2`D,0H@("`@("`@("`@("`@($!H96%D97);:5U;(D%$1%(B72`]("0R"B`@
M("`@("`@("`@(&5L<VEF('-T<B`]?B`O7D9R;VTZ7'-</"A;7'=<5UQD0"XM
M72LI7#Y<;B0O"B`@("`@("`@("`@("`@0&AE861E<EMI75LB3D%-12)=(#T@
M)#$N8VAO<"$*("`@("`@("`@("`@("!`:&5A9&5R6VE=6R)!1$12(ET@/2`B
M/"(@*R`D,2`K("(^(@H@("`@("`@("`@("!E;'-I9B!S='(@/7X@+UY&<F]M
M.EQS*%M<=UQ77&1`+BU=*RE<;B0O"B`@("`@("`@("`@("`@0&AE861E<EMI
M75LB3D%-12)=(#T@)#$N8VAO<"$*("`@("`@("`@("`@("!`:&5A9&5R6VE=
M6R)!1$12(ET@/2`B/"(@*R`D,2`K("(^(@H@("`@("`@("`@("!E;F0*("`@
M("`@("`@(&5N9`H@("`@("`@(&5L<V4*("`@("`@("`@(&EF('-T<B`]?B`O
M7D9R;VU<<UM<=UQ77&1`+BU=*UQS*UQW*UQS*RA<=RLI7',K*%QD*RE<<UQD
M7&0Z7&1<9#I<9%QD7'-<9%QD*%QD7&0I)"\*("`@("`@("`@("`@:2`K/2`Q
M"B`@("`@("`@("`@(&AD(#T@9F]R;6%T*"(E,BXR<R\E,BXR<R\E,BXR9"(L
M("0S+"!`;6]N=&A;)#%=+"!);G1E9V5R*"0R*2`I"B`@("`@("`@("`@($!H
M96%D97);:5T@/2![(D)?3D\B(#T^(&DL"B`@("`@("`@("`@("`@("`@("`@
M("`@("`@(DU/1$4B(#T^(")5(BP*("`@("`@("`@("`@("`@("`@("`@("`@
M("`B1$%412(@/3X@:&0L"B`@("`@("`@("`@("`@("`@("`@("`@("`@(DQ)
M3D4B(#T^(#`@('T@"B`@("`@("`@("`@($!M87A?8VYT(#T@:0H@("`@("`@
M("`@("!`:&5A9&5R6VE=6R)-04E,(ET@/2!`:&5A9&5R6VE=6R)-04E,(ET@
M*R!S='(*("`@("`@("`@("`@0&AE861E<EMI75LB34%)3")=(#T@0&AE861E
M<EMI75LB34%)3")=(%P*("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@*R`B6"UC;6%I;"US=&%T=7,Z(%5N<F5A9%QN(@H@("`@("`@("`@("!M
M;V1E(#T@,0H@("`@("`@("`@("!N97AT"B`@("`@("`@("!E;'-E"B`@("`@
M("`@("`@($!H96%D97);:5U;(DU!24PB72`]($!H96%D97);:5U;(DU!24PB
M72`K('-T<@H@("`@("`@("`@("!`:&5A9&5R6VE=6R),24Y%(ET@*ST@,2`@
M"B`@("`@("`@("!E;F0*("`@("`@("!E;F0*("`@("`@("!O<W1R(#T@<W1R
M"B`@("`@(&5N9`H@("`@96YD"B`@96YD"@H@(&1E9B!P=71?9&%T82@@8VYT
M("D*("`@(')E='5R;B!`:&5A9&5R6V-N=%T*("!E;F0*"B`@9&5F(&=E=&UA
M>`H@("`@<F5T=7)N($!M87A?8VYT"B`@96YD"F5N9`H*:R`]($UB;WA?=&]?
M:6YB;W@N;F5W"FLN97AC:&%N9V5?9&%T82@@05)'5ELP72`I"FH@/2`Q"G=H
M:6QE*"!J(#P](&LN9V5T;6%X("D*("!P(#T@:RYP=71?9&%T82AJ*0H@('!R
M:6YT(&9O<FUA="@B)7,@)7,@)7,@)7,@)7,@)60@6R5S75QN(BP@"B`@("`@
M("`@("`@("`@('!;(D)?3D\B72P*("`@("`@("`@("`@("`@<%LB34]$12)=
M+`H@("`@("`@("`@("`@("!P6R)$051%(ETL"B`@("`@("`@("`@("`@('!;
M(DY!344B72P*("`@("`@("`@("`@("`@<%LB041$4B)=+`H@("`@("`@("`@
M("`@("!P6R),24Y%(ETL"B`@("`@("`@("`@("`@('!;(E-50DHB72`I"B`@
M:B`K/2`Q"F5N9`H*:B`](#$*=VAI;&4H(&H@/#T@:RYG971M87@@*0H@('`@
M/2!K+G!U=%]D871A*&HI"B`@<')I;G0@(EQ#+5]<0RUL7&XB"B`@<')I;G0@
M<%LB34%)3")=+"`B7&XB"B`@:B`K/2`Q"F5N9`IP<FEN="`B7$,M7UQ#+6Q<
$;B(*"@``
 
end