output.pl
line: 1-2
Perl $B$N%Q%9$r5-=R$7$F$$$^$9!#(B
line: 3
$B%U%!%$%k(B memo.txt
$B$r!"(B$B%U%!%$%k%O%s%I%k(B OUT
$B$K7k9g$7$F$$$^$9!#0J2close $B$^$G!"=PNO%U%!%$%k(B memo.txt
$B$O%U%!%$%k%O%s%I%k(B OUT
$B$G07$$$^$9!#(B
$B%U%!%$%k%O%s%I%k$H7k$S$D$1$k%U%!%$%kL>$N@hF,$K!VBg$J$j5-9f!W!J(B >
$B!K$,IU$$$F$$$^$9!#$3$l$O!"Ev3:%U%!%$%k$,B8:_$7$J$1$l$P:n@.$9$k$h$&$K5a$a$k$3$H$K$J$j$^$9!#(B
||
$B0J9_$NJ8;zNs$O%U%!%$%k%*!<%W%s$K<:GT$7$?;~$N5sF0$G$9!#(B
die "..."
$B$O!"Fs=E0zMQIdFb$NJ8;zNs$rI=<($7$F(B Perl $B$r=*N;$5$;$^$9!#(B
$!
$B$O(B$B%7%9%F%`%(%i!<%a%C%;!<%8(B$B$,<+F0E*$KC_$($i$l$kFC
line 4:
$B%b%K%?!JI8=`=PNOAuCV!K$K(B "Input Line;
" $B$HI=<($7$^$9!#(B
line 5-9:
while
$BJ8$N9=J8$O!"
while($B>r7oJ8(B){ $B%V%m%C%/(B } continue { $B%V%m%C%/(B }
$B>r7oJ8$,??$G$"$l$P!JLa$jCM$,(B $B$3$N%9%/%j%W%H$G$O(B line: 5 $B>r7oJ8$G$O!"%-!<%\!<%I!JI8=`F~NOAuCV!K$+$i$NF~NO$r07$&%O%s%I%k(B $B$3$N%O%s%I%k$NJ8;zNs$O!"BeF~$9$kJQ?t$,;XDj$5$l$F$$$^$;$s!#0lHL$K!"BeF~$9$kJQ?t$r>JN,$9$k$H!"<+F0E*$K(B$BI8=`JQ?t(B $BL@<(E*$KJQ?t$r;XDj$9$k$H!"
line 6: $BH!?t(B $B=PNOFbMF$OFC $B$b$&0l$D$N(B$BFC $BFC line: 7 $B Next Line: " $B$H=PNO$7$^$9!#(B $B2~9TJ8;z$@$1$N>l9g$r4^$a$F!"F~NO$,$"$l$P(B 5 $B9TL\$XLa$C$F7+$jJV$7$^$9!#(B line: 101
$B$G$"$l$P!K(B while
$B%V%m%C%/$,continue
$B%V%m%C%/$rMQ$$$:$K!"
while(<STDIN>) {
print OUT "{$.} $_";
print " Next Line; ";
}
continue
$B%V%m%C%/$O!"7+$jJV$7$+$i$NC&=P$,I,MW$J>l9g$K!"(B next
$B$HJ;MQ$9$k$3$H$G0RNO$rH/4x$7$^$9!#(B[$B;2>H(B]<STDIN>
$B$@$1$,5-=R$7$F$"$j$^$9!#$3$N%O%s%I%k$O!"F~NO$,$J$1$l$P56$rJV$7$^$9!#(B$_
$B$KBeF~$5$l$^$9!#I8=`JQ?t(B $_
$B$O!"%7%9%F%`%(%i!<%a%C%;!<%8JQ?t(B $!
$B$HF1$8$/(B$BFC
while($line = <STDIN>) {
print OUT "$.: $line";
print "Next Line; ";
}
print
$B$O!"D>8e$K%O%s%I%kL>$r5-=R$9$k;v$G!"$3$N%O%s%I%k$,I=$9AuCV$K=PNO$7$^$9!#:#$N>l9g$O!"%O%s%I%k(B OUT
$B$O%U%!%$%k(B memo.txt
$B$K7k$SIU$1$i$l$F$$$^$9$+$i!"Fs=E0zMQIdFb$NJ8;zNs$r%U%!%$%k(B memo.txt
$B$K=PNO$7$^$9!#(B<STDIN>
$B$,BeF~$5$l$F$$$^$9!#(B$.
$B$G$9!#$3$l$O!"(B$BD>A0$KMxMQ$7$?%U%!%$%k%O%s%I%k$+$iFI$_9~$s$@9T?t(B$B$rC_$($F$$$^$9!#(B
$_
$BI8=`JQ?t!#(B
$.
$B9T?tJQ?t!#(B
$!
$B%7%9%F%`%(%i!<%a%C%;!<%8JQ?t!#(B
close
$B$K$h$j!"%U%!%$%k$H%U%!%$%k%O%s%I%k$N7k9g$r@ZCG$7!"%U%!%$%k$rJD$8$^$9!#(B
SEO
[PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送