$B>r7oH=Dj!((B if $BJ8(B

last-modified: 2nd/June/'01;
since: 1st/June/2001;

$B$b$&>/$7!"9bEY$J;v$r$d$i$;$F8+$^$7$g$&!#(B

$B%W%m%0%i%`:n@.$G$O!"!V>r7o$K$h$C$FF0:n$rJQ$($k$3$H!W$H!"!VF1$8F0:n$r7+$jJV$9$3$H!W$,=PMh$k$H!"$d$l$k;v$,9-$,$j$^$9!#$^$:$O!">r7o$K$h$C$FF0:n$rJQ$($k%5%s%W%k$r:n@.$7$^$9!#(B

$B%f!<%6H=Dj$N%5%s%W%k(B

$B%f!<%6L>$rF~NO$7!"$=$l$,EPO?$5$l$F$$$k$+$I$&$+$G5sF0$rJQ$($k%9%/%j%W%H$G$9!#(B

id.pl>>

 1:
 2:
 3:
 4:
 5:
 6:
 7:
 8:
 9:
10:
#!/usr/bin/perl
#$B>e$N9T$G$O!"(B Perl $B$N%Q%9$r5-=R$7$F$/$@$5$$!#(B
$login_id = "sugai";
print "Please, enter your name; ";
chomp($name = <STDIN>);
if ($name eq $login_id){
  print "$name $B$5$s!"$h$&$=$3!*(B\n";
} else {
  print "$name $B$5$s$O!"%f!<%6$K0lCW$7$^$;$s$G$7$?!#(B\n";
}

6 $B9TL\$+$i(B 10 $B9TL\$,>r7oJ,4t$rI=$9(B if $B@a(B$B$G$9!#(B

[$B@bL@(B]

$B

 1:
 2:
 3:
 4:
 5:
 6:
 7:
 8:
 9:
% chmod +x id.pl
% ./id.pl
Please, enter your name; sugai
sugai $B$5$s!"$h$&$=$3!*(B
%
% ./id.pl
Please, enter your name; manabu
manabu $B$5$s$O!"%f!<%6$K0lCW$7$^$;$s$G$7$?!#(B
%

1 $B9TL\L\$G(B id.pl $B$Kid.pl $B$r%+%l%s%H%G%#%l%/%H%j$KCV$$$F

if $BJ8(B

if $BJ8$G$O!">r7o$K$h$C$F5sF0$,JQ2=$7$^$9!#(Bif $BJ8$N4pK\E*$J9=B$$O!"

if ($B>r7o<0#1(B) {
  $B%V%m%C%/#1(B           #$B>r7o<0#1$,??$J$i$Pr7o<0#2(B) {
  $B%V%m%C%/#2(B           #$B>r7o<0#2$,??$J$i$Pr7o<0#3(B) {
  $B%V%m%C%/#3(B           #$B>r7o<0#3$,??$J$i$Pr7o<0$,56$J$i$P

$B$^$:!"(B if $B@aCf$N!V>r7o<0#1!W$,??$J$i$P!V%V%m%C%/#1!W$r$NA4$F$N%V%m%C%/$OL5;k$7$^$9!#!V>r7o<0#1!W$,56$J$i$P!"elsif $B@aCf$N!V>r7o<0#2!W$rI>2A$7!"$3$l$,??$J$i$P!V%V%m%C%/#2!W$r$NA4$F$N%V%m%C%/$OL5;k$7$^$9!#$3$N$h$&$K(B elsif $B@a$r=gHV$KI>2A$7$F$$$C$F!":G=i$K??$rJV$7$?@aCf$N%V%m%C%/$r$N%V%m%C%/$OA4$FL5;k$7$^$9!#(B

$BA4$F$N>r7o<0$,56$J$i$P!"(B else $B%V%m%C%/$r

elsif, else $B@a$O>JN,$9$k;v$,$G$-$F!"$=$N>l9g$O!"(B if $B>r7oJ8$,56$J$i$P!"$J$K$b

if $BJ8$OC;$1$l$P(B 1 $B9TL\$G=q$$$F9=$$$^$;$s!#(B

print $new if ($eps >= $new);

$B$3$l$O!"

if ($eps >= $new) {
  print $new;
}
Copyright: SUGAI, Manabu. Since: 2001
SEO [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送
FC2> モビット