$B$3$N%U%!%$%k$r(B UNIX $B>e$NG$0U$N%G%#%l%/%H%j$KJ]B8$7!"$3$N%G%#%l%/%H%j$+$i%7%'%k$G!"
well.pl
>>
1:
2:
3:
4:
|
print "What is your name? ";
$name = <STDIN>;
chomp $name;
print "Dear $name. Wellcome! \n";
|
line 1$B!((B
$BAH$_9~$_H!?t(B print
$B$N(B$B0z?t(B$B$,(B "What is your name? "
$B$H$J$C$F$$$^$9!#2hLL$K$3$N0z?t$,I=<($5$l$kH&$G$9!#9TKv$K(B$B2~9T(B \n
$B$r5-=R$7$F$$$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B
line 2$B!((B
$B2hLL$N(B "What is your name? "
$B$KB3$$$F!"%-!<%\!<%I$+$iL>A0$rF~NO$9$k$H!"JQ?t(B $name
$B$K5-21$5$l$^$9!#(B
Perl $B$G$O!"!V(B $
$B$KG$0U$NJ8;zNs!W$G!"(B$BJQ?t(B$B$H$7$F07$o$l$^$9!#(B<STDIN>
$B$O!"!VI8=`F~NOAuCV$+$i$NF~NO!W$r0UL#$7$^$9!#(B Perl $B$N8@MU$G$O!"(B <STDIN>
$B$O!"!V(B$BI8=`F~NOAuCV$N%O%s%I%k(B$B!W$H8@$$$^$9!#B>$K!"!VF~NO%U%!%$%k$N%O%s%I%k!W!"!V=PNO%U%!%$%k$N%O%s%I%k!W$J$I$,:_$j$^$9!#(B
line 3$B!((B
$B%-!<%\!<%IF~NO$+$i$O!"2~9T5-9f$b4^$^$l$F$7$^$$$^$9$N$G!"$3$l$r:o=|$9$k$N$,!"(B chomp
$B$G$9!#$3$l$O!"(B$B0z?t$N2~9T5-9f$r:o=|$9$k1i;;;R(B$B$G$9!#(B
line 4$B!((B
$B:F$SH!?t(B print
$B$G$9!#0z?t$NCf$K!"@h$[$IDj5A$7$?JQ?t(B $name
$B$,4^$^$l$F$$$k$3$H$KCm0U$7$F$/$@$5$$!#(B
$B0zMQId$,Fs=E0zMQId(B "
$B$N>l9g$O!"JQ?t$,!"BeF~$5$l$F$$$kCM$KCV$-49$($i$l$^$9!#$3$l$r(B$BJQ?tE83+(B$B$H8F$S$^$9!#Nc$($P!";09TL\$N2~9T$N:o=|L?Na$,5-=R$5$l$J$1$l$P!"
$B%7%'%k%W%m%s%W%H(B>>
1:
2:
3:
4:
5:
|
% perl well.pl
What is your neme? SUGAI, Manabu
Dear SUGAI, Manabu
. Wellcome!
%
|
$B0lJ}!"0zMQId$,0l=E0zMQId(B '
$B$N>l9g$O!"JQ?t$,E83+$5$l$:!"D>@\I=<($5$l$^$9!#B($A!"2hLL$K$O
$B%7%'%k%W%m%s%W%H(B>>
1:
2:
3:
4:
|
% perl well.pl
What is your neme? SUGAI, Manabu
Dear $name. Wellcome!
%
|