Hello All.
I am trying to read and write in a file, I am using something like:
open (FILE, "+<teste_rw.txt") or die "I couldn't open the file.";
for my $line (<FILE>) {
print $line;
if($line eq "X\n")
{
print FILE "b\n"
} else
{
print FILE "c\n"
}
}
print FILE "Y\n";
close FILE;
In the attached file, I whant to write inside the $modify_class,
$modify_method and $modify_parameter tests.
Thnak you.
Bruno
begin 666 checkTracev10.pl
M=7-E('-T<FEC=#L-"@T*(V-H96-K5')A8V4N<&P-"B-,:7-T(')E8W5R<VEV
M96QY(&EN(&5V97)Y('-U8F9O;&1E<B!O9B!A(&EN:[EMAIL PROTECTED]&ER96-T;W)Y
M+"!A;&[EMAIL PROTECTED]')A8V4M:[EMAIL
PROTECTED]('1R86-E+6]U="!E>'!R97-S:6]N<R!T
M:&%T(&%R92!N;[EMAIL PROTECTED];W)D:6YG('1O('1H92!M971H;V0G<[EMAIL PROTECTED]
M#0HC1VQA8F%L(%9A<FEA8FQE<SH-"FUY("1F:6QE7V-O=6YT(#T@,#L-"FUY
M("1P86-K86=E(#T@(CQP86-K86=E/B([#0IM>2 D8VQA<W,@/2 B/&-L87-S
M/B([#0IM>2 D;65T:&]D(#T@(CQM971H;V0^(CL-"FUY($!P87)A;65T97)S
M(#T@(B([#0IM>2 D8VQA<W-?;6ES=&%K95]C;W5N=" ](# [#0IM>2 D;65T
M:&]D7VUI<W1A:V5?8V]U;G0@/2 P.PT*;7D@)'!A<F%M971E<E]M:7-T86ME
M7V-O=6YT(#T@,#L-"FUY("1V97)I9GE?8VQA<W,@/2 B=')U92([#0IM>2 D
M=F5R:69Y7VUE=&AO9" ](")T<G5E(CL-"FUY("1V97)I9GE?<&%R86UE=&5R
M(#T@(G1R=64B.PT*;7D@)&UO9&EF>5]C;&%S<R ](")T<G5E(CL-"FUY("1M
M;V1I9GE?;65T:&]D(#T@(G1R=64B.PT*;7D@)&UO9&EF>5]P87)A;65T97(@
M/2 B=')U92([#0IM>2 D=&5M<" ](# [#0H-"B-';&[EMAIL PROTECTED]<W1A;G1S
[EMAIL PROTECTED];7D@)&EN:71I86Q?9&ER96-T;W)Y(#T@(D,Z7%QB<G%<7'-R8UQ<0E)6
M4"([#0IM>2 D9FEL95]E>'!R97-S:6]N(#T@(BYJ879A(CL-"FUY("1P86-K
M86=E7V5X<')E<W-I;VX@/2 B<&%C:V%G92!;7CM=*SLB.PT*;7D@)&-L87-S
M7V5X<')E<W-I;VX@/2 B7G!U8FQI8R!C;&%S<R([#0HC;7D@)&UE=&AO9%]E
M>'!R97-S:6]N(#T@(G!U8FQI8UQS*UQW*UQS*UQW*EPH(CL-"FUY("1L;V=?
M9&5B=6=?97AP<F5S<VEO;B ]("),;V=-86YA9V5R7"XH87!P1$%/3&]G9V5R
M?&%P<$-O;G1R;VQL97),;V=G97(I7"YD96)U9R([#0HC;7D@)'1R86-E7V5X
M<')E<W-I;VX@/2 B(CL-"GL-"@EP<FEN="@B8VAE8VM4<F%C92YP;%QN0V]N
M<W1A;G1S.EQN(BD[#0H-"@EP<FEN="@)(FEN:71I86Q?9&ER96-T;W)Y(#T@
M(BP@)&EN:71I86Q?9&ER96-T;W)Y+" B7&XB+ T*"0D)(F9I;&5?97AP<F5S
M<VEO;B ]("(L("1F:6QE7V5X<')E<W-I;VXL(")<;B(L#0H)"0DB<&%C:V%G
M95]E>'!R97-S:6]N(#T@(BP@)'!A8VMA9V5?97AP<F5S<VEO;BP@(EQN(BP-
M"@D)"2)C;&%S<U]E>'!R97-S:6]N(#T@(BP@)&-L87-S7V5X<')E<W-I;VXL
M(")<;B(L#0H)"0DC(FUE=&AO9%]E>'!R97-S:6]N(#T@(BP@)&UE=&AO9%]E
M>'!R97-S:6]N+" B7&XB+ T*"0D)(FQO9U]D96)U9U]E>'!R97-S:6]N(#T@
M(BP@)&QO9U]D96)U9U]E>'!R97-S:6]N+" B7&XB+ T*"0D)(R)T<F%C95]E
M>'!R97-S:6]N(#T@(BP@)'1R86-E7V5X<')E<W-I;VXL(")<;B(L#0H)"0DB
M=F5R:69Y7V-L87-S(#T@(BP@)'9E<FEF>5]C;&%S<RP@(EQN(BP-"@D)"2)V
M97)I9GE?;65T:&]D(#T@(BP@)'9E<FEF>5]M971H;V0L(")<;B(L#0H)"0DB
M=F5R:69Y7W!A<F%M971E<B ]("(L("1V97)I9GE?<&%R86UE=&5R+" B7&XB
M+ T*"0D)(FUO9&EF>5]C;&%S<R ]("(L("1M;V1I9GE?8VQA<W,L(")<;B(L
M#0H)"0DB;6]D:69Y7VUE=&AO9" ]("(L("1M;V1I9GE?;65T:&]D+" B7&XB
M+ T*"0D)(FUO9&EF>5]P87)A;65T97(@/2 B+" D;6]D:69Y7W!A<F%M971E
M<BP@(EQN(BP-"@D)"2)<;B(L*3L-"@T*"6QI<W1?<F5C=7)C:79E;'DH)&EN
M:71I86Q?9&ER96-T;W)Y*3L-"@EP<FEN="@B1F]U;F0@(BP@)&-L87-S7VUI
M<W1A:V5?8V]U;G0L("(@;6ES=&%K97,@;[EMAIL PROTECTED]<W,@;F%M92P@(BP@)&UE
M=&AO9%]M:7-T86ME7V-O=6YT+" B(&UI<W1A:V5S(&]N(&UE=&AO9"!M86UE
M+" B+" D<&%R86UE=&5R7VUI<W1A:V5?8V]U;G0L("(@;6ES=&%K97,@;VX@
M<&%R86UE=&5R(&YA;64N7&XB*3L-"@EP<FEN="@B1F]U;F0@(BP@)&-L87-S
M7VUI<W1A:V5?8V]U;[EMAIL PROTECTED] D;65T:&]D7VUI<W1A:V5?8V]U;[EMAIL PROTECTED]
D<&%R
M86UE=&5R7VUI<W1A:V5?8V]U;G0L("(@;6ES=&%K97,N7&XB*3L-"@EP<FEN
M="@B5F5R:69I960@(BP@)&9I;&5?8V]U;G0L("(@(BP@)&9I;&5?97AP<F5S
M<VEO;BP@(B!F:6QE<RY<;B(I.PT*?0T*#0IS=6(@;&ES=%]R96-U<F-I=F5L
M>0T*>PT*"6]P96YD:7(H9&ER96-T;W)Y+" D7ULP72D[#0H@(" @;[EMAIL PROTECTED]&1I
M<F5C=&]R>5]F:6QE<R ](')E861D:7(H9&ER96-T;W)Y*3L-"B @("!F;W)E
M86-H(&UY("1D:7)E8W1O<GE?9FEL97,@*$!D:7)E8W1O<GE?9FEL97,I('L-
M"B @(" @(" @;7D@)&9I;&5N86UE(#T@)%];,[EMAIL PROTECTED] B7%PB("X@)&1I<F5C
M=&]R>5]F:6QE<SL-"B @(" @(" @:[EMAIL PROTECTED]"$H)&1I<F5C=&]R>5]F:6QE<R!E
M<2 G+B<@?'P@)&1I<F5C=&]R>5]F:6QE<R!E<2 G+BXG*2D-"@D)>PT*"0D)
M:[EMAIL PROTECTED]"UD("1F:6QE;F%M92D-"@D)"7L-"@D)"0EL:7-T7W)E8W5R8VEV96QY
M*"1F:6QE;F%M92D[#0H)"0E](&5L<[EMAIL PROTECTED])"0E[#0H)"0D)=')E871?9FEL
[EMAIL PROTECTED];64I.PT*"0D)?0T*"0E]#0H@("!]#0H@(" @8VQO<V5D:7(H
M9&ER96-T;W)Y*3L-"GT-"@T*<W5B('1R96%T7V9I;&4-"GL-"@EM>2 D9FEL
M96YA;64@/2 D7ULP73L-"@EI9B H<W5B<W1R*"1F:6QE;F%M92P@;&5N9W1H
M*"1F:6QE;[EMAIL PROTECTED]&@H)&9I;&5?97AP<F5S<VEO;BDL(&QE;F=T
M:"@D9FEL96YA;64I*2!E<2 D9FEL95]E>'!R97-S:6]N*0T*"7L-"@D);W!E
M;BAF:6QE+" B*SPB+" D9FEL96YA;64I(&]R('!R:6YT*")#86X@;F]T(&]P
M96X@(B K("1F:6QE;F%M92 K(")<;B(I.PT*"0DD9FEL95]C;W5N="LK.PT*
M"0EM>2 D;&EN95]N=6UB97(@/2 P.PT*"0EF;W(@;7D@)&QI;[EMAIL PROTECTED]:6QE
M/[EMAIL PROTECTED])"7L-"@D)"21L:6YE7VYU;6)E<BLK.PT*"0D):68H)&QI;F4@/7X@
M+R1P86-K86=E7V5X<')E<W-I;VXO*0T*"0D)>PT*"0D)"6UY($!T96UP(#T@
M<W!L:70H+UQS*WP[+RP@)&QI;F4I.PT*"0D)"21P86-K86=E([EMAIL PROTECTED]'1E;7!;
M,5T[#0H)"0D)(W!R:6YT*")P86-K86=E(#T@(BP@)'!A8VMA9V4L(")<;B(I
M.PT*"0D)?0T*"0D):68H)&QI;F4@/[EMAIL PROTECTED];&%S<U]E>'!R97-S:6]N+RD-
M"@D)"7L-"@D)"0EM>2! =&5M<" ]('-P;&ET*"]<<RLO+" D;&EN92D[#0H)
M"0D))&-L87-S([EMAIL PROTECTED]'1E;7!;,ET[#0H)"0D)(W!R:6YT*")C;&%S<R ]("(L
M("1C;&%S<RP@(EQN(BD[#0H)"0E]#0H)"0EM>2! <W!L:71E9%]L:6YE(#T@
M<W!L:70H+UQS*WQ<*'Q<*2\L("1L:6YE*3L-"@D)"6EF*"1S<&QI=&5D7VQI
M;F5;,[EMAIL PROTECTED]@(G!U8FQI8R(@)B D<W!L:71E9%]L:6YE6R0C<W!L:71E9%]L
M:6YE72!E<2 B7'LB*0T*"0D)>PT*"0D)"21M971H;V0@/2 D<W!L:71E9%]L
M:6YE6S-=.PT*"0D)"6UY("1P87)A;65T97)?:6YD97@@/2 Q.PT*"0D)"6UY
M("1I([EMAIL PROTECTED]"@D)"0EW:&[EMAIL
PROTECTED]"1S<&QI=&5D7VQI;F5;)&E=(&5Q(")T
M:')O=W,B('P@)'-P;&ET961?;&EN95LD:[EMAIL PROTECTED]@(EQ[(B!\("1I(#P@)'-P
M;&ET961?;&EN95LD(W-P;&ET961?;&EN95TI*0T*"0D)"7L-"@D)"0D)(W!R
M:6YT*"(^(BP@)&[EMAIL PROTECTED]"(Z("(@+" D<W!L:71E9%]L:6YE6R1I72P@(EQN(BD[
M#0H)"0D)"6EF*"$H)'-P;&ET961?;&EN95LD:5T@/[EMAIL PROTECTED];02U:75QW*R\@
M?" D<W!L:71E9%]L:6YE6R1I72!E<2 B(B!\("1S<&QI=&5D7VQI;F5;)&E=
M(#U^("]>7'<K7"Y<=RLO*2D-"@D)"0D)>PT*"0D)"0D)0'!A<F%M971E<G-;
M)'!A<F%M971E<E]I;F1E>%T@/2 D<W!L:71E9%]L:6YE6R1I73L-"@D)"0D)
M"2-P<FEN="A <&%R86UE=&5R<ULD;65T:&]D7V9I96QD<U]I;F1E>%TL(")<
M;B(I.PT*"0D)"0D))'!A<F%M971E<E]I;F1E>"LK.PT*"0D)"0E]#0H)"0D)
M"21I*RL[#0H)"0D)?0T*"0D)"2-P<FEN="@B/CX^([EMAIL PROTECTED]'!A<F%M971E<G,L
M(")<;B(I.PT*"0D)?0T*"0D);7D@)&QO9U]T<F%C92 ](")F86QS92([#0H)
M"[EMAIL PROTECTED];&EN92 ]?B O)&QO9U]D96)U9U]E>'!R97-S:6]N+R!\("1L;V=?
M=')[EMAIL PROTECTED]@(G1R=64B*0T*"0D)>PT*"0D)"4!S<&QI=&5D7VQI;F4@/2!S
M<&QI="@O7',K?%PH?%PI?#U\+"\L("1L:6YE*3L-"@D)"0DD;&]G7W1R86-E
M(#T@(F9A;'-E(CL-"@D)"[EMAIL PROTECTED]<W!L:71E9%]L:6YE6S)=(&5Q("(B*0T*
M"0D)"7L-"@D)"0D))&QO9U]T<F%C92 ](")T<G5E(CL-"@D)"0E](&5L<VEF
M("@D<W!L:71E9%]L:6YE6S-=(&5Q(")M971O9&\B*0T*"0D)"7L-"@D)"0D)
M(R\H26YI8VEA;F1O?$9I;F%L:7IA;F1O*2!M971O9&[EMAIL PROTECTED]/7"UC;&%S
M<SU\86-T:6]N7"UC;&%S<STI)'!A8VMA9V5<+B1C;&%S<RQM971H;V1<+6YA
M;64])&UE=&AO9%PH0'!A<F%M971E<G-<*5Q=+PT*"0D)"0DC<')I;G0H)'-P
M;&ET961?;&EN95LQ72P@(B R.B B+" D<W!L:71E9%]L:6YE6S)=+" B(#,Z
M("(L("1S<&QI=&5D7VQI;F5;,UTL("(@-#H@(BP@)'-P;&ET961?;&EN95LT
M72P@(B B+" D<W!L:71E9%]L:6YE6S5=+" B7&XB*3L-"@D)"0D)(W!R:6YT
M*"1S<&QI=&5D7VQI;F5;-ETL("(@-SH@(BP@)'-P;&ET961?;&EN95LW72P@
M(B X.B B+" D<W!L:71E9%]L:6YE6SA=+" B(#DZ("(L("1S<&QI=&5D7VQI
M;F5;.5TL("(@(BP@)'-P;&ET961?;&EN95LQ,%TL(")<;B(I.PT*"0D)"0EI
M9B H([EMAIL PROTECTED]<W!L:71E9%]L:6YE6S5=(#U^("\D<&%C:V%G95PN)&-L87-S+RD@
M)B D=F5R:69Y7V-L87-S(&5Q(")T<G5E(BD-"@D)"0D)>PT*"0D)"0D)<')I
M;G0H)&9I;&5N86UE+" B(&QI;F4H(BP@)&QI;F5?;G5M8F5R+" B*3H@(BP@
M)&QI;F4I.PT*"0D)"0D)<')I;G0H(EQT(BP@)'-P;&ET961?;&EN95LU72P@
M(EQN(BD[#0H)"0D)"0EP<FEN="@B7'0B+" D<&%C:V%G92P@(BXB+" D8VQA
M<W,L(")<;B(I.PT*"0D)"0D))&-L87-S7VUI<W1A:V5?8V]U;G0K*SL-"@D)
M"0D)"6EF("@D;6]D:69Y7V-L87-S(&5Q(")T<G5E(B F("1T96UP(#T](# I
M#0H)"0D)"0E[#0H)"0D)"0D))'1E;7 K*SL-"@D)"0D)"0EM>2 D<W1R(#T@
M)'[EMAIL PROTECTED] B+B(@+B D8VQA<W,[#0H)"0D)"0D))&QI;F4@/7X@<R\D
M<W!L:71E9%]L:6YE6S5=+R1S='(O.PT*"0D)"0D)"7!R:6YT*"1L:6YE*3L-
M"@D)"0D)"0EP<FEN="!F:6QE("1L:6YE.PT*"0D)"0D)"7!R:6YT*")M;V1I
M9FEE9%QN(BD[#0H)"0D)"0D)(V-L;W-E*&9I;&4I.PT*"0D)"0D)"2-E>&ET
M*"D[#0H)"0D)"0E]#0H)"0D)"7T-"@D)"0D):[EMAIL PROTECTED]"$H)'-P;&ET961?;&EN
M95LW72 ]?B D;65T:&]D*2 F("1V97)I9GE?;65T:&]D(&5Q(")T<G5E(BD-
M"@D)"0D)>PT*"0D)"0D)<')I;G0H)&9I;&5N86UE+" B(&QI;F4H(BP@)&QI
M;F5?;G5M8F5R+" B*3H@(BP@)&QI;F4I.PT*"0D)"0D)<')I;G0H(EQT(BP@
M)'-P;&ET961?;&EN95LW72P@(EQN(BD[#0H)"0D)"0EP<FEN="@B7'0B+" D
M;65T:&]D+" B7&XB*3L-"@D)"0D)"21M971H;V1?;6ES=&%K95]C;W5N="LK
M.PT*"0D)"0D):[EMAIL PROTECTED]"1M;V1I9GE?;65T:&]D(&5Q(")T<G5E(BD-"@D)"0D)
M"7L-"@D)"0D)"0DC97AI="@I.PT*"0D)"0D)?0T*"0D)"0E]#0H)"0D)"6UY
M("1I([EMAIL PROTECTED]"@D)"0D)=VAI;&[EMAIL
PROTECTED]"$H)'-P;&ET961?;&EN95LD:[EMAIL PROTECTED]@
M(B(@?" D<W!L:71E9%]L:6YE6R1I72!E<2 B75PB(BD@)B D=F5R:69Y7W!A
M<F%M971E<B!E<2 B=')U92(I( T*"0D)"0E[#0H)"0D)"0EM>2! =&5M<" ]
M('-P;&ET*"\L+RP@)'!A<F%M971E<G-;)&DM-UTI.PT*"0D)"0D):68H)'1E
M;7!;,[EMAIL PROTECTED]@(B(I#0H)"0D)"0E[#0H)"0D)"0D))'1E;7!;,%T@/2 D<&%R
M86UE=&5R<ULD:2TW73L-"@D)"0D)"7T-"@D)"0D)"6EF("@A*"1S<&QI=&5D
M7VQI;F5;)&E=(#U^("1T96UP6S!=*2D-"@D)"0D)"7L-"@D)"0D)"0EP<FEN
M="@D9FEL96YA;64L("(@;&[EMAIL PROTECTED]" D;&EN95]N=6UB97(L("(I.B B+" D
M;&EN92D[#0H)"0D)"0D)<')I;G0H(EQT(BP@)'-P;&ET961?;&EN95LD:5TL
M(")<;B(I.PT*"0D)"0D)"7!R:6YT*")<="(L("1T96UP6S!=+" B7&XB*3L-
M"@D)"0D)"0DD<&%R86UE=&5R7VUI<W1A:V5?8V]U;G0K*SL-"@D)"0D)"0EI
M9B H)&UO9&EF>5]P87)A;65T97(@97$@(G1R=64B*0T*"0D)"0D)"7L-"@D)
M"0D)"0D)(V5X:70H*3L-"@D)"0D)"0E]#0H)"0D)"0E]#0H)"0D)"0DD:2LK
M.PT*"0D)"0E]#0H)"0D)?0T*"0D)?2 -"@D)?0T*"0EC;&]S92AF:6QE*3L-
&"@E]#0I]
`
end
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
