Table of Contents
- Introduction
- Challenge Perl!
- $B%7%'%k(B
- $B%o%s%i%$%J!<(B
- Perl Script
- Command File
perl $B$N%Q%9(B
- $B5v2DB0@-(B (
chmod )
- CGI
- $B>r7oJ,4t!((B
if $BJ8(B
- $B7+$jJV$7!((B
while $BJ8(B
- $B7+$jJV$7$+$i$NC&=P!((B
last
last
continue $B%V%m%C%/(B
for $BJ8(B
- $B4X781i;;;R(B
- $B%U%!%$%k$X=PNO(B
- $B%U%!%$%k%O%s%I%k(B
open $BJ8(B
- $BFC
- $B%U%!%$%k$+$iF~NO(B
- $B@55,I=8=(B
- $B%Q%?!<%s%^%C%A(B
- $B%U%!%$%k%O%s%I%k(B
- $B@55,I=8=(B
- $B%Q%?!<%s%^%C%A(B
- $BJ8;zNs8!:w(B
- $BJ8;zNsCV49(B
- $BJ8;zJQ49(B
- $BJQ?t(B
- $B%9%+%i!
- $BFC
- $BG[Ns(B
- $B%O%C%7%e(B
- $B%j%9%H(B
- $B%9%i%$%9(B
- $BG[Ns$N7+$jJV$7(B
- $B%3%s%F%-%9%H(B
- $BG[Ns(B
foreach $B%k!<%W(B
- $BG[NsA`:n!'(B
reverse
shift , pop
unshift , push
splice
join , split
grep
sort
- $B%O%C%7%e(B
- $B%O%C%7%e4XO"1i;;;R(B
- $BJ8;zNsA`:n(B
split , join
chomp
length
substr
index , rindex
|
$BA08}>e!!!](BPerl $BF~Lg(B
$BK\9F$O(B Perl $BF~Lg$G$9!#(B
UNIX, Linux $B$rA`:n$9$k$K$O!"DL>o(B Shell $B$H(B Perl $B$rMQ$$$^$9!#(B Shell $B$b(B Perl $B$b(B$B%9%/%j%W%H8@8l(B$B$G$"$j!"(B Shell $B$N;E;v$O(B OS $B$HMxMQoE*$J%U%!%$%kA`:n$r!"$h$j6/NO$K
Perl $B$O(B UNIX $B>e$G3+H/$5$l$?$?$a$K!"%M%C%H%o!<%/>e$G$N;E;v$K1w$1$k=EMW$J8@8l$K$b$J$C$F$*$j$^$9!#(B
Perl $B$NM%0L@-$O!"%3%s%Q%$%k$NI,MW$,$J$/!"JY6/$7$?$iJY6/$7$?J,$@$1:G=i$+$i$N8@8l$G$O!"
$BK\9F$G$OA4$/$N=i?4R2p$7$^$9!#F|>oE*$K(B Perl $B$rMxMQ$G$-$k$h$&$K$J$k$3$H$rL\E*$H$7$F$$$^$9!#IU?oE*$JL\I8$H$7$F!"(B CGI $BMQ(B Perl $B%9%/%j%W%H$rFI2r!"%+%9%?%^%$%:$G$-$k$3$H$rL\;X$7$^$9!#(B
(25th/June/'01)
$B99?7$O40A4$KDd;_Cf$G$9!#8=:_$G$O!"(BPerl $B$N=EMW@-$OEv;~$h$j$bMn$A$F$*$j!"(BCGI $B5-=R8@8l$H$7$F$b(B Perl $B$h$j$b(B PHP $B$NJ}$,6/NO$G$9!#(B
(06th/June/'03)
|