id.pl

1 $B9TL\L\$H(B 2 $B9TL\(B

$B%3%a%s%H$G$9!#FC$K(B1 $B9TL\L\$O(B perl $B$N%Q%9$G$9!#E,59=q$-49$($F$/$@$5$$!#(B

3 $B9TL\(B

$BJQ?t(B $login_id $B$KJ8;zNs(B sugai $B$rBeF~$7$^$9!#(B

4 $B9TL\(B

print $B$K$h$j!"%b%K%?$K(B Please, enter your name; $B$H=PNO$5$l$^$9!#(B

5 $B9TL\(B

4 $B9TL\$G%-!<%\!<%I$+$iF~NO$7$?J8;zNs$,(B <STDIN> $B$+$i$name $B$KBeF~$5$l$^$9!#$=$7$F!"(B chomp $B$K$h$C$F!"$3$NJ8;zNs$N2~9T5-9f$,:o=|$5$l$^$9!#(B

$B 

$name = <STDIN>;
chomp $name;

6 $B9TL\$+$i(B 10 $B9TL\(B

if $BJ8$G$9!#$^$:(B 6 $B9TL\$N>r7o<0(B $name eq $login_id $B$,I>2A$5$l$^$9!#Hf3S1i;;;R(B eq $B$O!"J8;zNs$,Ey$7$$$3$H$rI=$7$^$9!#0x$_$K!"?tCM$,Ey$7$$>l9g$K$O(B == $B$rMQ$$$^$9!#(B

6 $B9TL\$,??$G$"$l$P!"(B {, } $BFb$N(B 7 $B9TL\$,print $B$N0z?t$,Fs=E0zMQId$J$N$G!"JQ?t(B $name $B$OE83+$5$l$F!"%-!<%\!<%I$+$iF~NO$7$?J8;zNs$,%b%K%?!<$KI=<($5$l$^$9!#:G8e$K2~9T(B \n $B$r5-=R$7$^$7$?!#(B

$B0lJ}!"(B 6 $B9TL\$,56$G$"$l$P!"(B 9 $B9TL\$, 

if ($name eq $login_id){             #$name $B$,(B $login_id $B$KEy$7$$$+H=Dj(B
  print "$name $B$5$s!"$h$&$=$3!*(B\n";   #$BEy$7$1$l$P!"$3$N9T$r


 





SEO
 

[PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送























































 





FC2>
 
モビット