Perl ソス}ソスjソスソスソスAソスソス |
| ソスソスOソスソス ソスソスbソスフ奇ソスb |
|
- ソスbソスfソスhソスノ会ソスソスソスソスソスソスソスソスソスフゑソス
ソスヌゑソスソスソスソスソスCGIソスソスソスgソスソスソスKソスvソスソスソスソスソスソスフゑソスソスHJavaScriptソスソスAVBscriptソスナは撰ソスホに出ソスソスソスネゑソスソスソスソスニゑソスソスソスソスソスナゑソスソスB
ソスワゑソスソスAJavaScriptソスソスAVBscriptソスナ出ソスソスソス驍アソスニゑソスCGIソスナゑソスソスソスソスソスラゑソスソスナはなゑソスソスフでゑソスソスB
ソズゑソスンやたソスソスソスCGIソスソスソスgソスpソスソスソスソスニゑソスソス黷セソスソスソスTソス[ソスoソス[ソスフ包ソスソスSソスソスソス蛯ォソスソスソスネゑソスAソスpソスtソスHソス[ソス}ソスソスソスXソスソスソス瘟コソスソスソスワゑソスソスB
ソスCソスソスソス^ソス[ソスlソスbソスgソスソスソスyソスソスソズ撰ソスソスSソスAソスソスソス逍懶ソスフソスソス[ソスUソス[ソスノ厄ソスソスfソスソスソスソスソスソスソス驍アソスニになゑソスワゑソスソスB
ソスソスソスソスナは、ソスヌのようソスネゑソスソスニゑソスソスソスソスソスソスソスフゑソスソスAソスソスソスソスソスヘ簡単ソスナゑソスソスB
JavaScriptソスソスAVBscriptソスナは撰ソスホに出ソスソスソスネゑソスソスソスソスニは、ソスtソス@ソスCソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスナゑソスソスB
ソスソスソスソスCGIソスソスソスwソスKソスソスソスソスTソスCソスgソスナ、ソスソスソスソスソスノゑソス驤・ソスAソスソスソスフ変更ソスソスCGIソスナ作成ソスソスソスト鯉ソスソスJソスソスソストゑソスソスソスTソスCソスgソスソスソスLソスソスワゑソスソスソスソスソスソスA
ソスソスソスAソスソスソスソスJavaScriptソスナ十ソスソスソスソスソスソスソスソスワゑソスソスB
ソスヌゑソスソスソスソスソスJavaScriptソスソスAVBscriptソスナフソス@ソスCソスソスソスソスソスソスソスソスソスsソスネゑソスソスネゑソスソスフでゑソスソス蛯、ソスB
CGIソスヘ、ソスTソス[ソスoソス[ソスナ難ソスソスしソスAソスtソス@ソスCソスソスソスソスソスTソス[ソスoソス[ソスフハソス[ソスhソスfソスBソスXソスNソスソスソスgソスpソスソスソスワゑソスソスソスソスA
JavaScriptソスソスAVBscriptソスヘダソスEソスソスソスソスソス[ソスhソスソスソスソスソスuソスソスソスEソスUソスナ難ソスソスしソストゑソスソスワゑソスソスB
ソスソスソスフブソスソスソスEソスUソスナフソス@ソスCソスソスソス操作しソス謔、ソスニゑソスソスソスニ、ソス_ソスEソスソスソスソスソス[ソスhソスソスソスソスソスソスハのソスソス[ソスUソス[ソスフハソス[ソスhソスfソスBソスXソスNソスソスソスgソスpソスソスソス驍アソスニになゑソスA
ソスソスマ危険ソスソスソスソスソスソスナゑソスソスBソスソスソスソスソスソスsソスソスネやかソス轤ェソスiソスソスソスソスソスAソスソスソス[ソスUソス[ソスフハソス[ソスhソスfソスBソスXソスNソスソスjソスするこソスニゑソスソスネ単ソスノ行ソスネゑソスソスソス謔、ソスノなゑソスワゑソスソスB
ソスワゑソスソスAソスCソスソスソス^ソス[ソスlソスbソスgソスノアソスbソスvソスソスソス[ソスhソスソスソスソスtソス@ソスCソスソスソスヘ、ソスツ人ソスフハソス[ソスhソスfソスBソスXソスNソスノデソス[ソス^ソス貯ゑソスソストゑソスソスソスソスフ意厄ソスソスソスソスLソスソスワゑソスソスソスB
- Perlソスフヘソスbソス_ソス[
ソスソスソスTソスCソスgソスナ紹介すソスソスCGIソスXソスNソスソスソスvソスgソスヘ、ソスソスソスラゑソスPerlソスソスソスソスナ擾ソスソスソスソスソストゑソスソスワゑソスソスB
CGIソスヘ、ソスソスソスソスShellソスソスACソスソスソスソスナゑソスソス成ソスナゑソスソスワゑソスソスソスソスAPerlソスヘ、ソスRソスソスソスpソスCソスソスソスソスソスソスKソスvソスソスソスネゑソスソスAソスソスyソスナ、ソスソスソスソスヤ托ソスソスソスソスgソスpソスソスソスソストゑソスソスワゑソスソスB
Perlソスナ作成ソスソスソスソスXソスNソスソスソスvソスgソスフ先頭ソスsソスノは、ソスKソスソスPerlソスソスソスソスソスsソスナゑソスソスソスTソス[ソスoソス[ソスフパソスXソスソスソスソスヘゑソスソスネゑソスソスソスホなゑソスワゑソスソスソスB
#!/usr/local/bin/perl
ソスルとゑソスヌのサソス[ソスoソス[ソスヘゑソスソスフ記ソスqソスナ托ソスソスvソスソスソスソスソスソスソスナゑソスソスB
ソスソスソスネみに、ソスソスソスフ会ソスソスソスソスソスソストゑソスソスソスBIGLOBEソスA#!/usr/local/bin/perl
ソスソスソスmソスソスソスナ茨ソスヤ托ソスソスソスソスフ会ソスソスソスソスソスソスソスソスinforyomaソスナゑソスソスA#!/usr/local/bin/perlソスナゑソスソスB
ソスソスソスフ趣ソスソスソスsソスレの「ソスソスソスvソスヘ、ソスRソスソスソスソスソスgソスsソスニはみなゑソスソスソスワゑソスソスソスBソス除ソスソスソスネゑソスソスナゑソスソスソスソスソスソスソスソスB
- ソスソス{ソスIソスネ型
CGIソスフ計ソスZソスソスソスハのゑソスソスフほとゑソスヌは、HTMLソスhソスLソスソスソスソスソスソスソスgソスニゑソスソスト返ゑソスソスソスソスAGIFソス鞫懶ソスソスヤゑソスソスソスソスAソスソスソスソスソスヤゑソスソスネゑソスソスソスソスAソスtソス@ソスCソスソスソスノ記ソス^ソスソスソス驍ゥソスナゑソスソスB
GIFソス鞫懶ソスソスヤゑソスソスXソスNソスソスソスvソスgソスフ托ソス\ソスIソスネゑソスソスフゑソスソスOソスソスソスtソスBソスbソスNソスAソスNソスZソスXソスJソスEソスソスソス^ソス[ソスナゑソスソスB
ソスソスソスソスネ外ソスフほとゑソスヌのスソスNソスソスソスvソスgソスヘ、ソスtソス@ソスCソスソスソスソスソスソスソスソスソスソスAHTMLソスhソスLソスソスソスソスソスソスソスgソス生撰ソスソスソスソストゑソスソスワゑソスソスB
HTMLソスhソスLソスソスソスソスソスソスソスgソスソスソスソスソスソス骭セソスソスソスソスwソスbソス_ソス[
print "Content-type:text/html\n\n";
ソスソスソスフヘソスbソス_ソス[ソスソス濶コソスノ通擾ソスソスHTMLソス^ソスOソスナドソスLソスソスソスソスソスソスソスgソス生撰ソスソスソスソスワゑソスソスB
print "<html><head><title>ソスTソスソスソスvソスソス</title></head>\n";
print "<body>\n";
print "<hr>\n";
print "<font size=5>ソス謔、ソスソスソスソスソスソスソスフホソス[ソスソスソスyソス[ソスWソスソス</font>\n";
print "<hr>\n";
print "</body>\n";
print "</html>\n";
|
|
- perlソスフ包ソスソス@ソスソスソスソスソス
- ソスPソスsソスレ以外ソスソス#ソスナ始ソスワゑソスsソスヘコソスソスソスソスソスgソスナ趣ソスソスsソスソスソスソスワゑソスソスソスBソスsソスフ途ソスソスソスナ「ソスソスソスvソスソスソスgソスpソスソスソスソスニ、
ソスソスソスソスネ降ソスソスソスRソスソスソスソスソスgソスノなゑソスワゑソスソスB
- ソスソスソスsソスソスソスフ最鯉ソスノは、ソスKソスソスソスuソスGソスvソスソスuソスソスソスワゑソスソスB
- ソスマ撰ソスソスヘ、ソスソスソスツでゑソスソスAソスソスソスソスソスソスソスソスナゑソスソスgソスpソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB
ソスソスソスフ托ソスソスソスソスフ鯉ソスソスソスフようソスノ、ソスOソスソスソスソスソスト使ソスpソスソスソスソスマ撰ソスソスソスソスソス骭セソスソスソストゑソスソスソスソスKソスvソスソスソスネゑソスソスソスホ、ソスGソスソスソス[ソスソスソスソスソスソスソスソスソスワゑソスソスソスB
- ソスマ撰ソスソスノは、ソスuソスソスソスlソスvソスAソスuソスソスソスソスソスvソスヌゑソスソスソスナゑソスソスソスソスソスナゑソスソスワゑソスソスB
- ソスソスソスソスソスフ固まゑソスiソスuソスソスソスbソスNソスjソスヘ、ソスu{ソスvソスニ「}ソスvソスナ囲みまゑソスソスB
- ソス蝠カソスソスソスソスソスソスソスソスソス判別ゑソスソスワゑソスソスBソスソスソスネゑソスソスソスソスgソスpソスソスソストゑソスソスソスWindowsソスソスA
ソス}ソスbソスNOSソスナは、ソス蝠カソスソスソスAソスソスソスソスソスソスソス判別ゑソスソスネゑソスソスニ思ソスソスソスワゑソスソスソスソスAUNIXソスナは、ソスハ包ソスソスネのでゑソスソスB
|
| ソスソスPソスソス ソスソスbソスuソスソス |
|
- ソスGソスXソスPソス[ソスvソスVソス[ソスPソスソスソスX
\n ソスソスソスs
\r ソスソスソス^ソス[ソスソス
\t ソス^ソスu
\' ソスVソスソスソスOソスソスソスNソスHソス[ソスg
\" ソス_ソスuソスソスソスNソスHソス[ソスg
- ソスソスソスpソスソス
ソスソスソスpソスソスソスノは、" ソスソス ' ソスフ2ソスソズゑソスソスソスソスソスA
ソスu"ソスvソスヘ、ソスツ変定数ソスナ、ソスソスソスpソスソスソスソスソスナ変撰ソスソスWソスJソスソスソスsソスソスソスソスソスソスソスナゑソスソスA
ソスu'ソスvソスヘ、ソスナ抵ソス關費ソスナ、ソスソスソスpソスソスソスソスソスナ変撰ソスソスWソスJソスソスソスナゑソスソスワゑソスソスソスB
$color = "ソスソス";
print "ソスソスソスフ色ソスソス$colorソスナゑソスソスB";
print 'ソスソスソスフ色ソスソス$colorソスナゑソスソスB';
ソスソスソスソスソス謔、ソスノ鯉ソスソスソスソスワゑソスソスソスソスAソスソスソスハゑソス
ソスソスソスフ色ソスヘ赤でゑソスソスB
ソスソスソスフ色ソスソス$colorソスナゑソスソスB
ソスニ茨ソスソスソストゑソスソスワゑソスソスB
- ソスマ撰ソス
ソスXソスJソスソスソスマ撰ソスソスソスソスu$ソスvソスナ始ソスワゑソスlソスソスソスPソスツゑソスソスソスソスLソスソスソスナゑソスソスソスソスソスソスソスニゑソスソスソスハ的ソスネ変撰ソス
ソスzソスソスマ撰ソス ソスソスソスu@ソスvソスナ始ソスワる複ソスソスソスフ値ソスソスソスLソスソスソスナゑソスソスソスマ撰ソス
ソスAソスzソスzソスソスマ撰ソスソスワゑソスソスヘ、ソスnソスbソスVソスソスソスマ撰ソス
ソスu%ソスvソスナ始ソスワゑソスzソスソスマ撰ソスソスフ添ソスソスソスノ包ソスソスソスソスソスソスソスwソスソスナゑソスソスソスマ撰ソス
ソスマ撰ソスソスソスソスヘ、ソスpソスソスソスワゑソスソスソス"_"ソスナ構ソスソスソスソスソスネゑソスソスソスホなゑソスワゑソスソスソスB
ソスソスソスRソスuソスソスソス{ソスソスvソスソスソスgソスpソスソスソス驍アソスニは出ソスソスソスワゑソスソスソスB
- ソスソスソスソスマ撰ソス
$! ソスVソスXソスeソスソスソスRソス[ソスソスソストび出ソスソスソスソスソスノ費ソスソスソスソスソスソスソスソスGソスソスソス[ソスヤ搾ソス
$. ソスtソス@ソスCソスソスソスヌみ搾ソスソスン趣ソスソスフ鯉ソスソスンの行ソスソス
$_ ソスeソスソスソスソスソスソスソスフデソスtソスHソスソスソスgソスフ茨ソスソスソス
$/ ソスソスソスヘソスソスRソス[ソスhソスフ具ソスリり文ソスソス
$, ソスoソスヘフソスBソス[ソスソスソスhソスフ具ソスリり文ソスソス
$" ソス_ソスuソスソスソスNソスHソス[ソスeソス[ソスVソスソスソスソスソスフ抵ソスソスフ配ソスソスWソスJソスフ具ソスリり文ソスソス
$\ printソスフ最鯉ソスノつゑソスソスソスソスソス
$; ソスソスソスソスソスソスソスzソスソスフゑソスソス゚の具ソスリり文ソスソス
$ソスソスソスソス ソスソスソスOソスフパソス^ソス[ソスソスソス}ソスbソス`ソスフ各ソスソスソスハに対ゑソスソス髟カソスソスソスソス
...ソスソスソスノゑソスソスLソスソスワゑソスソスソスソスAソスソスソス黷セソスソスソスoソスソスソストゑソスソスソスソスホ托ソスソスvソスナゑソスソス蛯、ソスB
- ソスソスソスZソスq
+,-,*,/ ソスソス,ソスソス,ソスソス,ソスソス
% ソスソス]
** ソスラゑソスソスソス
++,-- ソスCソスソスソスNソスソスソスソスソスソスソスgソスCソスfソスNソスソスソスソスソスソスソスg
.. ソスヘ囲会ソスソスZソスq (1..5)ソスソス(1,2,3,4,5)ソスニ難ソスソスソスソスB
. ソスソスソスソスソスソスAソスソス $name .= ".dat" --> $name ソスソス .dat ソスソスヌ会ソスソスソスソスソス
&& and
|| or
== ソスソスソスヘ、eq ソスソスソスソスソスソス
!= ソスソスソスヘ、ne ソスソスソスソスソスソスソスネゑソス
< ソスソスソスヘ、lt ソスソスソスソスソスソス
> ソスソスソスヘ、gt ソス蛯ォソスソス
<= ソスソスソスヘ、le ソスネ会ソス
>= ソスソスソスヘ、gt ソスネ擾ソス
<=>ソスソスソスヘ、cmp ソスソスr
ソスソスソスソスソスソスZソスq
ソスマ撰ソスソスノ、ソスlソスソスソスソスソスソスソスソスノは、ソスu=ソスvソスソスソスgソスpソスソスソスワゑソスソスB
$a = 2; $aソスソス2ソスソスソスiソス[ソスソスソスソスワゑソスソスB
$a = 2 * 3; $aソスソス6ソスソスソスiソス[ソスソスソスソスワゑソスソスB
$a = $b = 4;ソスソスソスヘ、$a = ($b = 4); $aソスソス$bソスノ難ソスソスソスソスソス4ソスソスソスiソス[ソスソスソスソスワゑソスソスB
$a = 5 + ($b = 6); $bソスソス6ソスソスソスソスソスソスソスA$aソスソス11ソスソスソスiソス[ソスソスソスワゑソスソスB
$a = 5 + ($b = 6 + ($c = 7 + 8)); $cソスソス15ソスソスソスA$bソスソス21ソスソスソスA$aソスノゑソスソスiソス[ソスソスソスワゑソスソスB
ソス項托ソスソスソスソスソスZソスq
$a = $a + 1; ソスフようソスノ暦ソスソスソスソスノ難ソスソスソスソスマ撰ソスソスソスソスソスソスソスソスソスソスソス謔、ソスネ趣ソスソスソスソスpソスノに使ソスpソスソスソスソスワゑソスソスB
ソスソスソスフ右ソスソスソスフ変撰ソスソスソスソスソスソスネ暦ソスソスソスソスト計ソスZソスソスソスハゑソスソスソスソスソスソス骼ョソスソス項托ソスソスソスソスソスZソスqソスニゑソスソスソスソスワゑソスソスB
$a = $a + 1; ソスソスソスソス $a += 1;
$a = $a - 1; ソスソスソスソス $a -= 1;
$a = $a * 1; ソスソスソスソス $a *= 1;
$a = $a / 1; ソスソスソスソス $a /= 1;
$a = $a . "abc"; ソスソスソスソス $a .= "abc";
ソスCソスソスソスNソスソスソスソスソスソスソスgソスニデソスNソスソスソスソスソスソスソスg
ソスソスフ趣ソスソスナ、ソスvソスソスソスXソスソスソス}ソスCソスiソスXソスソスソスソスソスlソスソスソスPソスフ場合ソスノ鯉ソスソス閧ウソスソスノ省暦ソスソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB
$a = $a + 1; ソスソスソスソス ++$a; ソスCソスソスソスNソスソスソスソスソスソスソスg
$a = $a + 1; ソスソスソスソス $a++;
ソスソスソスフ場合ソスu++ソスvソスソスマ撰ソスソスフ前ソスナゑソスソスソスソスナゑソスソスソスソスソスソスソスソスハゑソスソスソスソスソスソスワゑソスソスソスソスA
$a = ++$b;
$a = $b++;
ソスナは、ソスソスソスハゑソスソスルなゑソスワゑソスソスBソスOソスuソスソスソスu++ソスvソスヘ、$aソスソス1ソスvソスソスソスXソスソス$bソスノ托ソスソスソスソスソスワゑソスソスソスソスAソスソスuソスソスソスu++ソスvソスヘ、$aソスソス$bソスノ托ソスソスソスソス$aソスソス1ソスvソスソスソスXソスソスソスワゑソスソスB
$a = $a - 1; ソスソスソスソス --+$a; ソスfソスNソスソスソスソスソスソスソスg
$a = $a - 1; ソスソスソスソス $a--;
ソスfソスNソスソスソスソスソスソスソスgソスソスソスAソスCソスソスソスNソスソスソスソスソスソスソスgソスソスソスlソスノ、ソスOソスuソスソスソスu--ソスvソスニ、ソスソスuソスソスソスu--ソスvソスナは、ソス@ソス\ソスソスソスルなゑソスワゑソスソスB
- ソスソスソスソスソスニ撰ソスソスlソスフ会ソスソスZ
perlソスヘ、ソスソスソスソスソスニ撰ソスソスlソスソスソスvソスZソスソスソスソスソストゑソスソスソスソスソスソスソスソスソスソスソスソスソスずソスvソスZソスソスソスワゑソスソスB
ソスソスソスlソスソスソスZソスqソスuソス{ソスvソスナ包ソスソスソスソスソスソスvソスZソスソスソスソスソスソスニ、
$plus = "3.14" + "abc"ソスフ鯉ソスソスソス$plusソスノは、3.14ソスソスソスソスソスソスソスソスソスA
$plus = "3.14" + "6.86abc"ソスフ鯉ソスソスハゑソス10ソスノなゑソスワゑソスソスB
ソスソスソスソスソスソスヘ、10ソスiソスソスソスフ撰ソスソスlソスノ趣ソスソスソスソスIソスノ変奇ソスソスソスソスソス驍ゥソスソスナゑソスソスB
ソスソスソスlソスノ包ソスソスソスソスソスAソスソスソスソスソスZソスqソスuソスDソスvソスソスソスgソスソスソストみゑソスニ、
$string = "X" . (3 * 3)
ソスソスソスフ鯉ソスソスハは、ソスソスソスソスソスuxソスvソスソス3*3ソスフ鯉ソスソスハ「9ソスvソスソスAソスソスソスソスソスト、ソスuX9ソスvソスノなゑソスワゑソスソスB
- ソスソスソスKソス\ソスソス
ソスソスソスKソス\ソスソスソスヘ、ソスソスソスフ鯉ソスソスソスソスEソスuソスソスソスナよくソスgソスソスソスワゑソスソスB
ソスpソスソスソスソスソスF a a ソスノマソスbソス`
1 1 ソスノマソスbソス`
test test ソスノマソスbソス`
ソスソスソス^ソスソスソスソスソスF + ? . * ( ) [ ] { } |
\s ソス白包ソスソスソスソスPソスソスソスソス
\w ソスpソスソスソスソスソスAソスu_ソスvソスフ1ソスソスソスソス
\d ソスソスソスソスソスPソスソスソスソス
\n ソスGソスXソスPソス[ソスvソスVソス[ソスPソスソスソスX
^ ソスsソスソス
$ ソスsソスソス
\b ソスPソスソスフ具ソスリゑソス
\B ソスPソスソスフ具ソスリゑソスネ外
- ソスソスソスソスソスEソスuソスソス
[ソスソスソスソス]
STRING =~ /PERTERN/;
ソスソスソスソスソスソス(STRING)ソスソスPATTERNソスノ茨ソスvソスソスソス驍ゥソスヌゑソスソスソスソス調べゑソスB
if ("abcdefg" =~ /"abc"/) { print "ソスソスv"; }
else { print "ソスsソスソスv"; }
ソスソスソスフ鯉ソスソスハは、ソスuソスソスvソスvソスニ表ソスソスソスソスソスソスワゑソスソスB
STRING =~ /[PERTERN]/
ソスソスホのブソスソスソスPソスbソスg[]ソスフ抵ソスソスノ包ソスソスラゑソスソスソスソスソスソスAソスヌれかソスソスツでゑソスソス}ソスbソス`ソスソスソスソスホ「ソス^ソスvソスナ、
ソスtソスHソス[ソスソスソスfソス[ソス^ソスフデソスRソス[ソスhソスネどでよくソスgソスpソスソスソスソスワゑソスソスB $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
[ソスuソスソス]
ソスマ撰ソス =~ s/PATTERN/REPLACEMENT/;
ソスマ撰ソス =~ s/PATTERN/REPLACEMENT/g;
ソスマ撰ソス =~ s/PATTERN/REPLACEMENT/ig;
ソスマ撰ソスソスフ抵ソスソスナ、PATTERNソスノ茨ソスvソスソスソス髟費ソスソスソスソスREPLACEMENTソスナ置ソスソスソスソスソスAソスソスソスハゑソスマ撰ソスソスノ戻ゑソスソスワゑソスソスB
ソスソスソスソス(1)ソスヘ、ソスナ擾ソスソスソスvソスソスソスソスソスソスソスソスソスフみ置ソスソスソスソスソスA
ソスソスソスソス(2)ソスフ最鯉ソスソス g ソスソスtソスソスソスソスニ、ソスマ撰ソスソスソスPATTERNソスSソストゑソスuソスソスソスソスソスワゑソスソスB
ソスソスソスソス(3)ソスナは、ソスソスソスソスノ大文ソスソスソスAソスソスソスソスソスソスソスソスソスソスハゑソスソスネゑソスソスuiソスvソスIソスvソスVソスソスソスソスソスソスtソスソスソストゑソスソスワゑソスソスB
$string = "Tqeqrrqa";
$string =~ s/'q'//;
print $string;
ソスソスソスハは、ソスuTeqrrqaソスvソスニなゑソスA
$string = "Tqeqrrqa";
$string =~ s/'q'//g;
ソスナは、ソスuTerraソスvソスニなゑソスワゑソスソスB
ソスソスソスソスヘ、ソスソスソスソスソスソスソスンボソス[ソスhソスナタソスOソスソスソスヨ止ソスソスソスソスソスナゑソスソスB
$value =~ s/<!--#(.|\n)*-->//ig; #SSIソスフ禁止
$value =~ s/<image(.|\n)*>//ig; $value =~ s/<\/image>//ig; #ソスCソスソスソス[ソスWソスフ禁止
$value =~ s/<table(.|\n)*>//ig; $value =~ s/<\/table>//ig; #ソスeソス[ソスuソスソスソスフ禁止
$value =~ s/<script(.|\n)*>//ig; $value =~ s/<\/script>//ig; #ソスXソスNソスソスソスvソスgソスフ禁止
$value =~ s/<frame(.|\n)*>//ig; $value =~ s/<\/frame>//ig; #ソスtソスソスソス[ソスソスソスフ禁止
- ソスソスソスソスソスソスヨ撰ソス
chop(STRING)
ソスソスソスソスソスソスSTRINGソスフ最鯉ソスフ包ソスソスソスソスソスリり落ソスニゑソスソスAソスソスソスハゑソスヤゑソスソスワゑソスソスB
length(STRING)
ソスソスソスソスソスソスSTRINGソスフ抵ソスソスソスソスソスソスoソスCソスgソスソスソスナ返ゑソスソスワゑソスソスB
$str_len = length('ソスソスソスcソスソスソスソスソス');
$str_lenソスノは、ソスQソスoソスCソスgソスソスソスソスソスナゑソスソスフゑソス10ソスソスソスソスソスソスソスソスソスワゑソスソスB
substr(STRING,OFFSET,LENGTH)
ソスソスソスソスソスソスSTRINGソスソスOFFSETソスoソスCソスgソスレゑソスソスソスLENGTHソスoソスCソスgソスソスソスoソスソスソスソスソスソスソスソスソスソスソスヤゑソスソスワゑソスソスB
$first_name = substr('Yumi Itami'',5,5);
$first_nameソスノは、ソスuItamiソスvソスソスソスソスソスソスソスソスソスワゑソスソスB
OFFSET ソスヘ、0 ソスソスソス逅費ソスソスソスA
LENGTH ソスソスソスネ暦ソスソスソスソスソスニ、OFFSETソスネ降ソスナ鯉ソスワでの包ソスソスソスソスが返ゑソスソスソスワゑソスソスB
index(STRING,SUBSTR,OFFSET)
ソスソスソスソスソスソスSTRINGソスソスOFFSETソスネ降ソスソスソスソスSUBSTRソスナ指ソス閧オソスソスソスソスソスソスソスソスソスTソスソスソスA
ソスナ擾ソスソスソス ソスソスソスツゑソスソスソスソスソスソスハ置ソスソスソスoソスCソスgソスソスソスナ返ゑソスソスワゑソスソスB
ソスソスソスツゑソスソスソスネゑソスソスソスホ、-1 ソスソスヤゑソスソスワゑソスソスB
|
| ソスソスQソスソス ソスソスソスソス\ソスソス |
|
- if elsif elseソスソス
if (ソスソスソスソス) { ソスuソスソスソスbソスN; }
elsif (ソスソスソスソス) { ソスuソスソスソスbソスN; }
else { ソスuソスソスソスbソスN; }
if ($value = 'ソスソスソス') { print "ソスソスごでゑソス"; }
elsif ($value = 'ソスoソスiソスi') { print "ソスoソスiソスiソスナゑソス"; }
else { print "ソスuソスソスソスソスソスソスソスフ」ソスナはなゑソスソスソスソスソスソスソス"; }
ソスワゑソスソスヘ、
if ($value = 'ソスソスソス') {
print "ソスソスごでゑソス";
}
elsif ($value = 'ソスoソスiソスi') {
print "ソスoソスiソスiソスナゑソス";
}
else {
print "ソスuソスソスソスソスソスソスソスフ」ソスナはなゑソスソスソスソスソスソスソス";
}
|
|
ソスソスソスソスソスuソスソスソスbソスNソスソスソスソスソスソスソス鼾ソスヘ、ソスソスソスソス(2)ソスソスソスgソスpソスソスソスソスソスルゑソスソスソスソスXソスNソスソスソスvソスgソスソスソスソスソス竄キソスソスソスネゑソスワゑソスソスB
- whileソスソス
while (ソスソスソスソス) {
ソスuソスソスソスbソスN;
}
ソスソスソスソスソスソスソス^ソスフ間、ソスuソスソスソスbソスNソスソスソスソスソスsソスソスソスワゑソスソスB
open(DT,"test.dat");
while () {
print;
}
close(DT);
|
|
- until
until (ソスソスソスソス) {
ソスuソスソスソスbソスN;
}
untilソスヘ、whileソスフ撰ソスソスソスソスホの費ソスソスfソスソスソスソスソスAソスソスソスソスソスソスソスUソスフ間、ソスuソスソスソスbソスNソスソスソスソスソスsソスソスソスワゑソスソスB
- forソスソス
for (ソスソスソスP;ソスソスソスQ;ソスソスソスR) {
ソスuソスソスソスbソスN;
}
ソスソスソスPソスソスソスAソスソスソスQソスノなゑソスワで趣ソス3ソスフスソスeソスbソスvソスナブソスソスソスbソスNソスソスソスソスソスsソスソスソスワゑソスソスB
for ($i = 1; $i <= 10; $i++) {
print "$i\n";
}
|
|
ソスナ擾ソス$iソスソス1ソスナ、$iソスソス10ソスノなゑソスワゑソス$iソスソス1ソスvソスソスソスXソスソスソスネゑソスソスソス$iソスフ値ソスソス\ソスソスソスソスソスツづゑソスソスワゑソスソスB
- doソスソス
do { ソスuソスソスソスbソスN; } while (ソスソスソスソス)
do { ソスuソスソスソスbソスN; } until (ソスソスソスソス)
ソスソスソスソス(1)ソスA(2)ソスヘ、ソスソスソス黷シソスソス whileソスソスソスソスuntilソスソスソスフ費ソスソスfソスソスソスソスソス[ソスvソスフ最鯉ソスノ行ソスネゑソスソスソスソスソスフでゑソスソスB
$i = 1;
do {
print "$i\n";
$i++;
}
while ($i <= 10)
|
|
- foreachソスソス
foreach ソスマ撰ソス (list) { ソスuソスソスソスbソスN; }
listソスフ1ソスヤゑソスソス迴ソスノ変撰ソスソスノ托ソスソスソスソスソスAソスuソスソスソスbソスNソスソスソスソスソスsソスBlistソスソスソスIソスソスソスソスソスソスソスソスソスソスソス[ソスvソスソスソス逕イソスソスソスoソスソスソスワゑソスソスB
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
|
|
- ソスソスソス[ソスvソスソスソスソスRソス}ソスソスソスh
lastソスソス
ソスソスソス[ソスvソスフ趣ソスソスsソス即搾ソスソスノ断ソスソスソスリゑソスソスト費ソスソスソスソスoソスソスソスワゑソスソスB
nextソスソス
ソスcソスソスフコソス[ソスhソスソスソスXソスLソスbソスvソスソスソスト費ソスソスfソスソスソスノ撰ソスソスソスソスソスレゑソスソスワゑソスソスB
redoソスソス
ソスcソスソスフコソス[ソスhソスソスソスXソスLソスbソスvソスソスソストソスソス[ソスvソスフ先頭ソスノ戻ゑソスワゑソスソスBソスソスソスフ趣ソスソスAソスソスソス苳サソスfソスソスソスsソスネゑソスソスワゑソスソスソスB
|
| ソスソスRソスソス ソスzソスソス |
|
- ソスzソスソスマ撰ソスソスヨの値ソスフ托ソスソス
@DATA = ('ソスソスソスcソスソスソスソスソス','ソスソスンゑソスソスソスソス','ソスbソスqソスソスソスソスソス','ソスソスソスソスソスソスソスソスソス');
ソスワゑソスソスヘ、
$DATA[0] = 'ソスソスソスcソスソスソスソスソス'
$DATA[1] = 'ソスソスンゑソスソスソスソス'
$DATA[2] = 'ソスbソスqソスソスソスソスソス'
$DATA[3] = 'ソスソスソスソスソスソスソスソスソス'
ソスニゑソスソス骼厄ソスソスソスナゑソスソスA
@DATA[0..3] = ('ソスソスソスcソスソスソスソスソス','ソスソスンゑソスソスソスソス','ソスbソスqソスソスソスソスソス','ソスソスソスソスソスソスソスソスソス');
ソスニゑソスソストゑソスソスソスソスソスソスナゑソスソスB
- ソスzソスソスマ撰ソスソスフ値ソスフ参ソスソス
print $DATA[0]
print $DATA[1]
print $DATA[2]
print $DATA[3] ソスニゑソスソストゑソスソスA
print @DATA[0..3]ソスニゑソスソストゑソスソスソスソスソスソスソスソスハゑソスソスソスソスソスソスワゑソスソスB
@DATA = ('ソスソスソスcソスソスソスソスソス','ソスソスンゑソスソスソスソス','ソスbソスqソスソスソスソスソス','ソスソスソスソスソスソスソスソスソス');
- ソスzソスソスフ添ソスソス
ソスzソスソスフ要ソスfソスヤ搾ソスソスソスソスソスソスソスすソスソスソスlソスワゑソスソスヘ包ソスソスソスソスソスソスYソスソスソスニゑソスソスソスソスワゑソスソスB
$DATA[3]ソスフ場合ソスu3ソスvソスソスソスYソスソスソスナゑソスソスB
ソスtソスHソス[ソスソスソスfソス[ソス^ソスソスソスQソスニゑソスソスソス鼾ソスフ、
$FORM{'name'}ソスフ「nameソスvソスソスソスソスソスソスホ添ソスソスソスナゑソスソスB
ソスzソスソスフ添ソスソスソスヘ、ソスOソスソスソスソスnソスワゑソスAソスgソスpソスソスソスソスソスソスソスナ終ソスソスソスワゑソスソスB
ソスzソスソスフ要ソスfソスソスソス調べゑソスノは、
$count = @DATA;
ソスフようソスノ配ソスソスマ撰ソスソスソスハ擾ソスフ変撰ソスソスノ托ソスソスソスソスソス驍セソスソスソスナ難ソスソスソスソスワゑソスソスB
ソスソスソスフ趣ソスソスA$countソスノは、4ソスソスソスソスソスソスソスソスソスワゑソスソスソスソスA
$DATA[4]ソスフ添ソスソスソスヘ有ソスソスワゑソスソスソスBソスソスソスソスソスワでゑソスソスAソスYソスソスソスヘ0ソスソスソスソスnソスワゑソスワゑソスソスフで、ソスgソスpソスナゑソスソスソスYソスソスソスヘ、ソスOソスソスソスソスRソスフ4ソスツとなゑソスフでゑソスソスB
- ソスzソスリスソスgソスソスソスソスヨ撰ソス
- shift(@DATA)
ソスzソスソス@DATAソスフ最擾ソスソスフ要ソスfソスソスソスソスソスoソスソスソスワゑソスソスB
$name = shift(@DATA);
$nameソスノは、'ソスソスソスcソスソスソスソスソス'ソスソスソスiソス[ソスソスソスソスワゑソスソスB
ソスソスソスフ趣ソスソスAソスeソスvソスfソスヘ1ソスツゑソスソスツシソスtソスgソスAソスbソスvソスソスソスソスAソスvソスfソスソスソスソスソスPソスツ鯉ソスソスソスワゑソスソスB
- unshift(@DATA, $list)
ソスzソスソス@DATAソスフ先頭ソスソス$listソスフ値ソスソスヌ会ソスソスソスソスワゑソスソスB
$list = 'ソスンゆきソスソスソスソスソス';
unshift(@DATA, $list);
ソスソスソスワで先頭ソスノゑソスソスソス'ソスソスソスcソスソスソスソスソス'ソスフ前ソスソス'ソスンゆきソスソスソスソスソス'ソスノなゑソスA
'ソスソスソスcソスソスソスソスソス'ソスヘ、@DATA[1]ソスノシソスtソスgソスソスソスソスワゑソスソスB
ソスソスソスフ趣ソスソスAソスvソスfソスソスソスソスソスPソスツ托ソスソスソスソスワゑソスソスB
- pop(@DATA)
ソスzソスソス@DATAソスフ最鯉ソスフ要ソスfソスソスソスソスソスoソスソスソスワゑソスソスB
$name = pop(@DATA);
$nameソスノは、'ソスソスソスソスソスソスソスソスソス'ソスソスソスiソス[ソスソスソスソスワゑソスソスB
ソスソスソスフ趣ソスソスAソスvソスfソスソスソスソスソスPソスツ鯉ソスソスソスワゑソスソスB
- push(@DATA, $list)
ソスzソスソス@DATAソスフ最鯉ソスソス$listソスフ値ソスソスヌ会ソスソスソスソスワゑソスソスB
$list = 'ソスンゆきソスソスソスソスソス';
push(@DATA, $list);
ソスソスソスワで最鯉ソスノゑソスソスソス'ソスソスソスソスソスソスソスソスソス'ソスフ鯉ソスソス'ソスンゆきソスソスソスソスソス'ソスソスソスヌ会ソスソスソスソスソスA
ソスvソスfソスソスソスソスソスPソスツ托ソスソスソスソスワゑソスソスB
- sort(@DATA)
ソスzソスソス@DATAソス文趣ソスソスRソス[ソスhソスソスソスiソスソスソスソスソスjソスノ包ソスソスラ替ゑソスソスワゑソスソスB
- reverse(@DATA)
ソスzソスソス@DATAソスソスソスtソスノ包ソスソスラ替ゑソスソスワゑソスソスB
[ソスソスソスソス]
ソスzソスソスマ撰ソスソスSソスフゑソスソスソスソスソスすソス鼾ソスヘ、ソスuソスソスソスvソスソスソスgソスpソスソスソスワゑソスソスソスソスAソスソスソスフ配ソスソスマ撰ソスソスフ1ソスvソスfソスiソスYソスソスソスjソスソスソスwソス閧キソスソス鼾ソスヘ、 ソスソスソスソスソスマ撰ソスソスソスソスフ記ソスソスソスソスソスAソスuソスソスソスvソスノ托ソスソスソスワゑソスソスB
ソスソスソスノゑソスソスLソスソスワゑソスソスソスソスAソスソスソスフようソスネ抵ソスソスソスソスノは必ソスvソスソスソスソスワゑソスソスソスB
|
| ソスソスSソスソス ソスtソス@ソスCソスソスソスソスソスソス |
|
- ソスtソス@ソスCソスソスソスフオソス[ソスvソスソス
open(HANDLE, filename);
HANDLE ソスtソス@ソスCソスソスソスnソスソスソスhソスソスソスソス
filename ソスソスソスtソス@ソスCソスソスソスソス
- ソスソスソスoソスヘソスソス[ソスhソスフ指ソスソス
ソスtソス@ソスCソスソスソスソスソスフ前ソスノ、ソスネ会ソスソスフ記ソスソスソスソスtソスソスソスワゑソスソスB
<ソスワゑソスソスヘ、ソスネ暦ソス | ソスソスソスヘソスソス[ソスhソスナオソス[ソスvソスソス | open(DB,"acbd.txt"); |
> | ソスoソスヘソスソス[ソスhソスナオソス[ソスvソスソス | open(DB,">abcd.txt"); |
>> | ソスヌ会ソスソスoソスヘソスソス[ソスhソスナオソス[ソスvソスソス | open(DB,">>abcd.txt"); |
+< | ソスヌみ擾ソスソスソスソスソスソスpソスナオソス[ソスvソスソス | open(DB,"+ |
+> | ソスtソス@ソスCソスソスソスソスソス成ソスソスソスト読み擾ソスソスソスソスソスソスp | open(DB,"+>abcd.txt"); |
+>> | ソスtソス@ソスCソスソスソスソスソスIソス[ソスvソスソスソスソスソスヘ、 ソス成ソスソスソスト読み擾ソスソスソスソスソスソスp | open(DB,"+>>abcd.txt"); |
- ソスtソス@ソスCソスソスソスフ難ソスソスoソスソス
- ソスソスソスソス
<HANDLE>
ソスnソスソスソスhソスソスソスソスソスソス< >ソスナゑソスソスソスソスソスワゑソスソスBソス_ソスCソスソスソスソスソスソスソスhソスソスソスZソスqソスニゑソスソスソスソスワゑソスソスB
ソスtソス@ソスCソスソスソスソスソスソスヘソスソス[ソスhソスIソス[ソスvソスソスソスソスソスAソスナ擾ソスソスフ茨ソスsソスソス$lineソスノ托ソスソス
open(DB,"abcd.txt");
$line = <DB>;
ソスtソス@ソスCソスソスソスソスソスソスヘソスソス[ソスhソスナオソス[ソスvソスソスソスソスソスAソスtソス@ソスCソスソスソスフ最鯉ソスワで表ソスソスソスソスソスワゑソスソスB
open(DB,"abcd.txt");
while (<DB>) {
print;
}
ソスzソスソスマ撰ソスソスノ茨ソスxソスノ托ソスソスソスソスソス骼厄ソスソスソスoソスソスソスワゑソスソスB
ropen(DB,"abcd.txt");
@DATA = <IN>;
close(IN);
foreach $line(@DATA) {
print;
}
- ソスoソスソス
print HANDLE STRING;
HANDLE ソスナ指ソス閧オソスソスソスtソス@ソスCソスソスソスソスSTRINGソスソスソスソスソスソスソスoソスソスソスワゑソスソスB
ソスtソス@ソスCソスソスソスソスソス繽托ソスソスソスソスソス[ソスhソスIソス[ソスvソスソスソスソスソスAソスソスsソステつ擾ソスソスソスソスoソスソスソスワゑソスソスB open(DB,">abcd.txt");
print DB 'ソスソスソスcソスソスソスソスソス';
print DB 'ソスソスンゑソスソスソスソス';
print DB 'ソスbソスqソスソスソスソスソス';
print DB 'ソスソスソスソスソスソスソスソスソス';
close(DB);
ソスtソス@ソスCソスソスソスソスソス繽托ソスソスソスソスソス[ソスhソスナオソス[ソスvソスソスソスソスソスAソスzソスソスソスソスソスxソスノ擾ソスソスソスソスoソスソスソスワゑソスソスB open(DB,">abcd.txt");
print DB @DATA;
close(DB);
ソスtソス@ソスCソスソスソスソスヌ会ソスソスソスソス[ソスhソスナオソス[ソスvソスソスソスソスソスAソスナ鯉ソスノ茨ソスsソスヌ会ソスソスソスソスワゑソスソスB open(DB,">>abcd.txt");
print DB 'ソスンゆきソスソスソスソスソス';
close(DB);
|
|
|