last-modified: 12th/June/'01;
since: 1st/June/2001;
$BA0@a$^$G$G!"(B$B>r7oJ,4t(B$B!"(B$B7+$jJV$7(B$B!"(B$B%U%!%$%k$KBP$9$kF~=PNO(B$B!"(B$B@55,I=8=(B$B$r>R2p$7$^$7$?!#(B
$B%9%/%j%W%H$K$O(B$BJQ?t(B$B$,IT2D7g$@$H$$$&$3$H$,G'<1$G$-$?$H;W$$$^$9!#$R$H$D$NCM$@$1$7$+BeF~$G$-$J$$$b$N$r(B$B%9%+%i!
$BG[Ns$OFs
$B%Y%/%H%k$d%^%H%j%C%/%9$NCf$GJB$s$G$$$k8D!9$N%G!<%?$O!"(B$BMWAG(B$B$H8F$S$^$9!#Nc$($P!"%9%+%i!a, b, c $B$,$3$N=gHV$GJB$s$@A4BN$O%Y%/%H%k$G$"$j!"(B a, b, c
$B$O$=$l$>$l%Y%/%H%k$NMWAG$G$9!#(B
Perl $B$G$O%Y%/%H%k$r07$&JQ?t$K$OFs$D$N
$BDL>o$NG[Ns$O%9%+%i!<%G!<%?$,=gHV$KJB$s$@$b$N$G!"8D!9$N%9%+%i!<%G!<%?$OHV9f$G;2>H$7$^$9!#HV9f$O(B 0
$B$+$i;O$^$j!"IiCM$N>l9g$O:G8e$+$i?t$($^$9!#%O%C%7%e!J(Bhash$B!K$O%9%+%i!<%G!<%?$,Aj4XE*$KG[Ns$7$?$b$N$G!"8D!9$N%9%+%i!<%G!<%?$O!"HV9f$G$O$J$/!"BP1~$9$kJ8;zNs!J(Bassociated string key$B!K$G;2>H$7$^$9!#(B
$B%9%+%i!$
$B$+$i;O$^$j$^$9!#(B
$days , $i | $BDL>o$N%9%+%i! |
$_ , $& , $` , $' | $B$"$i$+$8$aDj5A:Q$_$NFC |
$days[2] | $BG[NsJQ?t(B @days $B$NFsHVL\$NMWAG$G$9!#(B |
$days{'Feb'} | $B%O%C%7%e(B %days $B$N%-!<(B Feb $B$KBP1~$9$kMWAG$G$9!#(B |
$#days | $BG[NsJQ?t(B @days $B$N:G8e$NMWAGHV9f$G$9!#(B |
$BG[Ns$NMWAG$O(B 0
$B$+$iHV9fIU$1$5$l$F$$$-$^$9$+$i!"(B $B;MHVL\$NMWAG$NHV9f!J%$%s%G%C%/%9!K$O(B 3
$B$K$J$j$^$9!#G[Ns(B @days
$B$NMWAG$N8D?t$O(B $#days + 1
$B$K$J$j$^$9!#(B
$BFC $B%9%+%i! $BG[NsA4BN$O(B $BG[Ns(B $BG[Ns$N8D!9$NMWAG$rNs5s$7$F3g8L$G3g$C$?$b$N$r%j%9%H$H8F$S$^$9!#(B $B%j%9%H$r:8JU$K=q$$$F!"G[NsJQ?t$N8D!9$NMWAG$r%9%+%i! $B%j%9%H$NMWAG$KG[Ns$,F~$C$F$b!"%^%H%j%C%/%9$K$O$J$j$^$;$s!#Nc$($P!";M$D$NMWAG$r$b$DG[Ns(B $BG[Ns$d%O%C%7%e$N0lItJ,$rH4$-=P$9$3$H$b$G$-$^$9!#$3$l$r!"G[Ns$d%O%C%7%e$N%9%i%$%9!J(Bslice$B!K$H8F$S$^$9!#(B $BG[Ns$O!"Nc$($PJ#?t$NCM$=$l$>$l$KF1$8=hM}$r7+$jJV$7$?$$>l9g$KM-MQ$G$9!#(B $B@days $B$NA4$F$NMWAG$r=q$-=P$9%9%/%j%W%H$G$9!#(B $B=*C<<0$O(B $BG[Ns$O7+$jJV$7=hM}$K6/$$$N$G$9$,!"(B Perl $B$G$O(B $B%3%s%F%-%9%H$H$O!VJ8L.!WDxEY$N0UL#$G$9!#(B $B!V@h$[$IG[Ns(B $B$7$+$7!"G[Ns$r?tCM$H$7$F8F$S=P$9$H!"!VMWAG$N8D?t!W$r0UL#$7$^$9!#=>$C$F!"@h$[$I$N7+$jJV$7$N%9%/%j%W%H$O
$B$3$N$h$&$K1i;;7k2L$r0E<(E*$K7?JQ49$9$k$3$H$r!"1i;;$N(B$B%3%s%F%-%9%H(B$B$H8F$S$^$9!#G[Ns$rMW5a$9$k%3%s%F%-%9%H$rG[Ns%3%s%F%-%9%H!"%9%+%i!<$rMW5a$9$k%3%s%F%-%9%H$r%9%+%i!<%3%s%F%-%9%H$H8F$S$^$9!#(B $B%O%C%7%e$b%9%+%i! $B%O%C%7%e$O(B $B%O%C%7%e$O!"Nc$($PMQ8l=8$d!"=;=jO?!&?ML>O?!"(BHTML $B$N%U%)!<%`%G!<%?$J$I$N>l9g$KM-8z$G$9!#(B $B$3$l$G$O%-!<$HCM$r:.Mp$7$=$&$G$9!#$3$N$h$&$J$H$-$K$O!"(B $B%O%C%7%e$b%9%i%$%9$G$-$^$9!#G[Ns$N$H$-$OMWAGHV9f$r;XDj$9$k$N$K!V(B $B$B$G$OG[NsFCM-$NH!?t$J$I$K$D$$$F!"%5%s%W%k!&%9%/%j%W%H$rMQ$$$F>R2p$7$^$9!#(B
$_
($ARG
)$BI8=`F~NO$H%Q%?!<%s8!:w(B
$&
($MATCH
)$B:G8e$K%Q%?!<%s%^%C%A$7$?J8;zNs(B
$`
($PREMATCH
)$B:G8e$K%Q%?!<%s%^%C%A$7$?J8;zNs$h$j$bA0$K$"$C$?J8;zNsA4$F(B
$'
($POSTMATCH
)$B:G8e$K%Q%?!<%s%^%C%A$7$?J8;zNs$h$j$b8e$K$"$C$?J8;zNsA4$F(B
$n
($1, $2, $3,...
)$B%Q%?!<%s%^%C%A$7$?$H$-$K!"@55,I=8=$N(B n $BHVL\%0%k!<%W$K%^%C%A$7$?J8;zNs(B
$!
($OS_ERROR
, $ERRNO
)$B?tCM$H$7$F$O%7%9%F%`%(%i! $BG[Ns(B
@
$B$+$i;O$^$kG$0U$N1Q?tJ8;zNs$G;XDj$7$^$9!#8D!9$NMWAG$OHV9f$G;XDj$7$^$9!#(B@days
$B$K;M8D$N%9%+%i!$days[0]
, $days[1]
, $days[2]
, $days[3]
$B$H5-=R$G$-$^$9!#(B$B%j%9%H(B
@days = ($days[0], $days[1], $days[2], $days[3])
$days[n]
$B$H(B $days
$B$OA4$/JL$N$b$N$J$N$G!"%9%/%j%W%HCf$K6&B8$7$F9=$$$^$;$s!J5-=R%_%9$rM6$$$=$&$G$9$,!K!#(B
($a, $b, $c) = @hoge; # $a = $hoge[0], $b = $hoge[1], $c = $hoge[2]
($a, $b, @foo) = @hoge; # $a = $hoge[0], $b = $hoge[1],
# @foo = ($hoge[2], $hoge[3], $hoge[4])
(@foo, $a, $b) = @hoge; # $foo = ($hoge[0], $b = $hoge[1], $hoge[2], $hoge[3], $hoge[4])
# $a, $b $B$K$O2?$bF~$i$J$$!#(B
@a, @b, @c
$B$,$"$C$?$H$7$^$9!#(B
(@a, @b, @c) # ($a[0], $a[1], $a[2], $a[3],
# $b[0], $b[1], $b[2], $b[3],
# $c[0], $c[1], $c[2], $c[3]) $B$HF1$8(B
@array = (@a, @b, @c);
$array[4]; # $a[3] $B$HF1$8(B
$array[5]; # $b[0] $B$HF1$8(B
@array = (@a,@b,@c)
$B$O!V#49T#3Ns!W$N%^%H%j%C%/%9$K$O$J$i$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B$B%9%i%$%9(B
@days[3,4,5] = ($days[3], $days[4], $days[5]);
@month{'Feb', 'Mar'} = ($month{'Feb'}, $month{'Mar'});
$BG[Ns$H7+$jJV$7(B
for ($i=0; $i <= $#day; $i++) {
print "$i, $days[$i]\n";
}
for
$BJ8$N=q<0$O!"!Z(Bfor($B=i4|2=<0(B; $BHf3S<0(B; $B=*C<<0(B) {......}
$B![(B $B$K$J$C$F$*$j!"!V7+$jJV$72s?t$rC_$($F$*$/JQ?t$N=i4|CM(B $i = 0
$B!W$H!"!V7+$jJV$7=*N;$N>r7o<0(B $i <= $#days
$B!W$H!"!V7+$jJV$7$,0l2s=*$o$kKh$K$9$k=hM}(B $i++
$B!W$K$J$C$F$$$^$9!#(B$#days
$B$OG[Ns(B @days
$B$N:G8e$NMWAG$NHV9f!J%$%s%G%C%/%9!K$G$9!#Hf3S<0(B $i <= $#dasy
$B$O!"(B $i
$B$,%<%m$+$i(B $#days
$B$^$G7+$jJV$7$r;XDj$9$k$3$H$G!"$D$^$jG[Ns$NMWAG$N8D?t2s7+$jJV$7$^$9!#$A$J$_$K!"4X781i;;;R(B <=
$B$O!"?t;zF1;N$rHf3S$7$F!V0J2.$J$j%$%3!<%k!K!W$r0UL#$7$^$9!#(B$i = $i + 1
$B$N>JN,7A$G!"7+$jJV$7$,0l2s=*$o$k$4$H$K(B $i
$B$r$R$H$DA}$d$9$3$H$r0UL#$7$^$9!#(Bforeach
$BJ8$r;H$&$3$H$G$b$C$H4JC1$K$B%3%s%F%-%9%H(B
@hoge
$B$N:G8e$NMWAG$NHV9f$O(B #@hoge
$B!W$r>R2p$7$^$7$?!#(B
for ($i=0; $i < @days; $i++) {
print "$i, $days[$i]\n";
}
@days
$B$O!"?tCM%G!<%?F1;N$rHf3S$9$k1i;;;R(B a < b
$B!J(Ba
$B$O(Bb
$BL$K~!K$N1&JU$K$"$k$N$G!"L@$i$+$K?tCM!J%9%+%i!<%G!<%?!K$H$7$F;2>H$5$l$F$$$^$9!#=>$C$F!"(B $i < @days
$B$O!"!V(B$i
$B$,G[Ns(B @days
$B$NMWAG$N8D?tL$K~!W$r0UL#$7$^$9!#(B
$size = @days; #$size $B$O(B @days $B$NMWAG$N8D?t(B
($first) = @days; #($first) $B$O%j%9%H$G!"(B $first $B$O(B @days $B$NBh0lMWAG!J(B0 $BHVL\MWAG!K(B
$B%O%C%7%e(B
%
$B$+$i;O$^$kG$0U$N1Q?t;zNs$G$9!#(B
%days = (key1, val1, key2, val2, key3, val3)
%physgros = ('$BJ*M}3X(B','$BJ*
=>
$B$rMxMQ$9$k$HNI$$$G$7$g$&!#(B
%colors = (red => ff0000, blue => 0000ff, green => 00ff00);
$B%9%i%$%9(B
[
$B!W$rMQ$$$^$7$?$,!"%O%C%7%e$G$O!V(B {
$B!W$rMQ$$$k$3$H$KCm0U$7$F$/$@$5$$!#(B
%colors = (red => ff0000, blue => 0000ff, green => 00ff00);
$colors{'red'} = 000ff;
@colors{'red','blue'} = (ff0000, 0000ff);
%from = ('name',$form{'name'},'mail',$form{'mail'},'url',$form{'url'},
'body',$form{'body'});
SEO
[PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送