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!<%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
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 if $BJ8$G$O!">r7o$K$h$C$F5sF0$,JQ2=$7$^$9!#(Bif $BJ8$N4pK\E*$J9=B$$O!"
$B$^$:!"(B $BA4$F$N>r7o<0$,56$J$i$P!"(B
if $BJ8$OC;$1$l$P(B 1 $B9TL\$G=q$$$F9=$$$^$;$s!#(B $B$3$l$O!"
id.pl
$B$Kif $BJ8(B
if ($B>r7o<0#1(B) {
$B%V%m%C%/#1(B #$B>r7o<0#1$,??$J$i$P
if
$B@aCf$N!V>r7o<0#1!W$,??$J$i$P!V%V%m%C%/#1!W$relsif
$B@a$r=gHV$KI>2A$7$F$$$C$F!":G=i$K??$rJV$7$?@aCf$N%V%m%C%/$relse
$B%V%m%C%/$relsif
, else
$B@a$O>JN,$9$k;v$,$G$-$F!"$=$N>l9g$O!"(B if
$B>r7oJ8$,56$J$i$P!"$J$K$b
print $new if ($eps >= $new);
if ($eps >= $new) {
print $new;
}
Copyright: SUGAI, Manabu. Since: 2001
SEO
[PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送