ÿþ<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" encoding='UTF-8'> <head> <meta http-equiv="Content-Type" content="text/html; charset="UTF-8" /> <title>@0:B8G5A:> ?@>3@0<8@0=5 A Perl</title> <link rel="stylesheet" href="/styles-site.css" type="text/css" /> <link rel="alternate" type="application/rss+xml" title="RSS" href="index.rdf" /> <link rel="alternate" type="application/atom+xml" title="Atom" href="atom.xml" /> <link rel="EditURI" type="application/rsd+xml" title="RSD" href="rsd.xml" /> <style type="text/css"> #AutoNumber1, #AutoNumber2, #AutoNumber3, #AutoNumber4, #AutoNumber5, #AutoNumber6, #AutoNumber7, #AutoNumber8, #AutoNumber9, #AutoNumber10, #AutoNumber11, #AutoNumber12, #AutoNumber13, #AutoNumber14, #AutoNumber15, #AutoNumber16, #AutoNumber17, #AutoNumber18, #AutoNumber19, #AutoNumber20, { text-align: left; font-family: Lucida Console, Terminal, monospace } #AutoNumber6 td { text-align: left; } p.MsoNormal {mso-style-parent:""; margin-bottom:.0001pt; font-size:12.0pt; font-family:"Times New Roman"; margin-left:0cm; margin-right:0cm; margin-top:0cm} li.MsoNormal {mso-style-parent:""; margin-bottom:.0001pt; font-size:12.0pt; font-family:"Times New Roman"; margin-left:0cm; margin-right:0cm; margin-top:0cm} .whiteColour { color: #FFFFFF } </style> <script language="javascript" type="text/javascript"> function OpenComments (c) { window.open(c, 'comments', 'width=480,height=480,scrollbars=yes,status=yes'); } function OpenTrackback (c) { window.open(c, 'trackback', 'width=480,height=480,scrollbars=yes,status=yes'); } </script> </head> <body> <div id="camelContent"> <div id="banner"> <a href="/" accesskey="1">@0:B8G5A:> ?@>3@0<8@0=5 A Perl</a><Br><span class="description"># =0?8H8 8458B5 A8 A :>4</span> </div> <div id="designedby"> dzgn&amp;concpt::jr* </div> <div id="bigmenubox"> <div id="menuxy"> <a href="/archives/cat_news.html" class="menuEntry"> =>28=8 </a><a href="/archives/cat_files.html" class="menuEntry"> <0B5@80;8 </a><a href="/archives/cat_assignments.html" class="menuEntry"> 7040G8 </a><a href="/curriculum.html" class="menuEntry"> ?@>3@0<0 </a><a href="http://perl.phreedom.org/cyberdyne/" class="menuEntry"> D>@C< </a><a href="http://perl.phreedom.org/cyberdyne/?o=testRegPage&amp;noForumsList=1" class="menuEntry"> B5AB </a> </div> <div>   </div> </div> <div id="content"> <div id="bigmenuboxfinish"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber2"> <tbody> <tr> <td width="100%"> <p class="MsoNormal" align="center"> <br /> <br /> <span lang="bg" style="font-size: 12pt; font-family: Century Gothic">01>@ ?@8<5@8 70 E5H>25 <br> </span><font size="2"></span></font></span></b>&#160;&#160;</p> <div align="center" ></div> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana"><br> @8<5@ 0</font></b></span></p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt" dir="ltr"> <font size="2"><span lang="bg"><span style="font-family: Verdana">5<>=AB@8@0 AB0=40@B=8B5 =0G8=8 70 45D8=8@0=5 8 <>48D8F8@0=5 =0 0A>F80B825 <0A82 (E5H).</span></span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber11" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="389"> source code ( example.0.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="216"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="389" height="23"><p><font color="#FFFFFF"><b><font size="2" face="Terminal">#!/usr/bin/perl<br> <br> </font></b><font size="2" face="Terminal"> <em><font face="Arial, Helvetica, sans-serif"># @075= 0A>F80B825= A?8AJ: (E5H)</font></em><b><br> %hash = ();<br> </b><font color="#FFFFFF"><b>print %hash, &quot;\n&quot;;</b></font><b> <br> <br> %hash = ('one' =&gt; 1, 'two' =&gt; 2);<br> </b> <font face="Arial, Helvetica, sans-serif"># print 8725640 548= A;54 4@C3 :;NG>28B5 42>9:8 =0 E5H0</font><b><br> print %hash, &quot;\n&quot;;<br> <br> </b><font color="#FFFFFF"><em><font face="Arial, Helvetica, sans-serif"># %5H>25B5 <>30B 40 A5 45D8=8@0B :0B> A?8AJF8, :0B> <br> # G5B=8B5 5;5<5=B8 A0 AB>9=>AB8B5, 0 =5G5B=8B5 - <br> # :;NG>25</font></em><b><br> %hash = qw {one 1 two 2};</b></font><b><br> </b></font><font color="#FFFFFF"><font size="2" face="Terminal"><b>print %hash, &quot;\n&quot;;</b></font></font><font size="2" face="Terminal"><b> <br> <br> $hash{three} = 3;<br> <font color="#FFFFFF"><b>print </b><font size="2" face="Terminal"><b>%hash</b></font><b>, &quot;\n&quot;;<br> </b></font><br> print $hash{three};<br> </b></font></font></p> </td> <td width="216" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">one1two2<br> one1two2<br> one1three3two2<br> 3</font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana">@8<5@ 1</font></b></span></p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt" dir="ltr"> <font size="2"><span lang="bg"><span style="font-family: Verdana">D5:B ?@8 87?>;720=5B> =0 DC=:F8O </span></span> <span style="font-family: Verdana"><b>reverse</b> <span lang="bg">8 E5H AB@C:BC@0 2 A?8AJG5= :>=B5:AB. ;5<5=B8B5 =0 E5H0 A5 >1@JI0B, @073;540=8 :0B> A?8AJ: 8 B0:0 :;NG>25B5 AB020B AB>9=>AB8 8 >1@0B=>.</span></span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber11" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="389"> source code ( example.1.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="216"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="389" height="23"><font color="#FFFFFF"><b><font size="2" face="Terminal">#!/usr/bin/perl<br> <br> </font></b><font size="2" face="Arial, Helvetica, sans-serif"># %5H>25B5 AJI> <>30B 40 A5 45D8=8@0B :0B> A?8AJF8</font><font size="2" face="Terminal"><b><br> %byKey = qw { kon vinovnik treva 100kila pase 3h };<br> <br> %byValue = reverse %byKey;<br> print &quot;\n 100 kila vkusna &quot;.$byValue{'100kila'}.<br> &quot;\n hapva s pxlna sila vinovniq &quot;.$byValue{'vinovnik'};</b></font></font></td> <td width="216" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">100 kila vkusna treva<br> hapva s pxlna sila vinovniq kon</font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana">@8<5@ 2</font></b></span></p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt"> <font size="2"><span lang="bg"><span style="font-family: Verdana">@8<5@JB 45<>=AB@8@0 >?5@0B>@8B5 <strong>keys</strong>, <strong>values</strong>, <strong>exists</strong> 8 <strong>delete</strong>. J@28B5 420 2@JI0B :;NG>25B5 8 AJ>B25B=8B5 8< AB>9=>AB8 :0B> A?8AJF8 (:0B> =0 0-8O 5;5<5=B 2 A?8AJ:0 A :;NG>25 >B3>20@O 0-18OB 5;5<5=B 2 A?8AJ:0 AJA AB>9=>AB8 8 B.=.  AJI8O <><5=B =0@5410B0 <>65 40 A5 @07;8G020 ?@8 >B45;=8 8728:20=8O, => AJ>B25BAB285B> A5 70?720). <strong>exists</strong> 2@JI0 true, 0:> AJI5AB2C20 5;5<5=B AJA AJ>B2B=8O :;NG, 0 <strong>delete </strong>?@5<0E20 5;5<5=B >B 0A>F80B825= A?8AJ:.</span></span></font></p> <p class="MsoNormal" align="left">&nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber19" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="389"> source code ( example.2.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="216"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="389" height="23"><font color="#FFFFFF"><b><font size="2" face="Terminal">#!/usr/bin/perl<br> <br> <br> %hash = qw { kurs perl fakultet fmi ocenka shest kolegi pichove kolejki macki };</font></b></font> <p><font color="#FFFFFF" size="2" face="Terminal"><strong>print join ( ' ', keys %hash ) . &quot;\n&quot;;<br> <font color="#FFFFFF" size="2" face="Terminal">print join ( ' ', values %hash ) . &quot;\n&quot;;</font><br> </strong><em><font face="Arial, Helvetica, sans-serif"># int D>@A8@0 print 40 872545 @57C;B0B0 >B exists :0B> G8A;></font></em><strong> <br> print int exists $hash{'kolegi'};</strong></font></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">print &quot;\n&quot;;</font></strong></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">delete $hash {'kolegi'};<br> </font></strong><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># int D>@A8@0 print 40 872545 @57C;B0B0 >B exists :0B> G8A;></font></em><strong> <br> print int exists $hash{'kolegi'};</strong></font></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">print &quot;\n&quot;;</font></strong></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal"><strong>print join ( ' ', keys %hash ) . &quot;\n&quot;;<br> <font color="#FFFFFF" size="2" face="Terminal">print join ( ' ', values %hash ) . &quot;\n&quot;;</font></strong><br> print &quot;\n&quot;;</font></strong></p></td> <td width="216" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">kurs ocenka kolejki kolegi fakultet<br> perl shest macki pichove fmi<br> 1<br> 0<br> kurs ocenka kolejki fakultet<br> perl shest macki fmi</font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana">@8<5@ 3 </font></b></span></p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt" dir="ltr"> <font size="2"><span lang="bg"><span style="font-family: Verdana">5<>=AB@8@0 ?@028;=8O ?>4E>4 70 ?@>25@:0 =0 AJI5AB2C20=5B> =0 4045= 5;5<5=B 2 0A>F80B825= A?8AJ:, :0:B> 8 70 87B@820=5B> <C. %5H>25B5 <>30B 40 AJ4J@60B 5;5<5=B8 AJA AB>9=>AB <strong>undef</strong>, 5B> 70I> 70 ?@>25@:0 A5 87?>;720 <strong>exists</strong>, 0 =5 <strong>defined</strong> 8;8 ?@O:> >1@JI5=85 :J< 5;5<5=B0 2 1C;528 87@078, BJ9 :0B> <strong>undef</strong> AB>9=>AB8 A5 >BG8B0B :0B> false.</span></span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber12" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="379"> source code ( example.3.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="226"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="379" height="23"><p><font color="#FFFFFF"><b><font size="2" face="Terminal">#!/usr/bin/perl<br> <strong><br> </strong> </font></b></font><font color="#FFFFFF" size="2" face="Terminal"><strong>%hash = qw { kurs perl fakultet fmi ocenka shest kolegi pichove kolejki macki };<br> <br> </strong><font face="Arial, Helvetica, sans-serif"># @8A2>O20 AB>9=>AB 'undef' =0 5;5<5=B0 >B3>20@OI =0 <br> # :;NG 'kolegi'</font><strong><br> undef $hash {'kolegi'};</strong></font></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">print &quot;defined returns:&quot;.(int defined $hash{'kolegi'});<br> print &quot;\n&quot;;<br> print &quot;exists returns:&quot;.(int exists $hash{'kolegi'});<br> print &quot;\n&quot;;</font></strong></p> <p><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># 7B@820 5;5<5=B0 >B E5H0</font></em><strong><br> delete $hash {'kolegi'};</strong></font></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">print &quot;defined returns:&quot;.(int defined $hash{'kolegi'});<br> print &quot;\n&quot;;<br> print &quot;exists returns:&quot;.(int exists $hash{'kolegi'});<br> print &quot;\n&quot;;</font></strong></p></td> <td width="226" height="23"> <p><font color="#FFFFFF" size="2" face="Terminal">defined returns:0<br> exists returns:1<br> defined returns:0<br> exists returns:0</font></p> <p align="left" dir="ltr">&nbsp;</td> </tr> </table> </center> </div> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana"><br> @8<5@ 4</font></b></span></p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt" dir="ltr"> <font size="2"><span lang="bg"><span style="font-family: Verdana">@8<5@JB ?>:0720 ?>4E>40 ?@8 ?@>25@:0 40;8 4045= E5H 5 ?J;5= 8;8 =5 ?@8 C?>B@510B0 <C 2 A:0;0@5= :>=B5:AB. 5<>=AB@8@0 A5 8 =0G8= 70 =0<8@0=5 1@>O =0 5;5<5=B8B5 2 4045= 0A>F80B825= <0A82, G@57 @073;5740=5 =0 A?8AJ:0 35=5@8@0= >B <strong>keys</strong> 2 A:0;0@5= :>=B5:AB.</span></span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber13" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.4.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="281"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="324" height="23"> <p dir="ltr"><b><font size="2" face="Terminal" color="#FFFFFF">#!/usr/bin/perl<br> <br> </font></b><font size="2" face="Terminal" color="#FFFFFF"><em><font face="Arial, Helvetica, sans-serif">#  A:0;0@5= :>=B5:AB ?@07=8OB E5H 2@JI0 false, # :>5B> <>65 40 A5 87?>7;20 70 ?@>25@:0 40;8 <br> # 4045= E5H 8<0 ?>=5 548= 5;5<5=B</font></em><b><br> %hasho = ();<br> print scalar %hasho, &quot;\n&quot;;</b></font> <p><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># B?5G0B20 =545D8=8@0=8 4>A530 ?@><5=;828</font></em><font face="Arial, Helvetica, sans-serif"><strong><br> </strong># @8 ?>O20B0 =0 B0:820 B5 8<0B AB>9=>AB undef,<br> # :>OB> 2 AB@8=3>2 :>=B5:AB 5 ?@07=8OB AB@8=3</font><strong><br> print &quot;$numKeys ::: $elemsDispatch \n &quot;;</strong></font></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">%hasho = qw { vodka bueno vino perfecto laro di muhata leti };</font></strong></p> <p><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># 78<0 1@>O =0 e;5<5=B8B5</font></em><strong><br> $numKeys = scalar keys %hasho;<br> </strong><em><font face="Arial, Helvetica, sans-serif"># @8 =5?@075= E5H, ?>:0720 @07?@545;5=85B> <br> # =0 5;5<5=B8B5 2 E5H B01;8F0B0</font></em><strong><br> $elemsDispatch = scalar %hasho;</strong></font></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">print &quot;$numKeys ::: $elemsDispatch \n &quot;;</font></strong></p></td> <td width="281" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">0<br> :::<br> 4 ::: 3/8</font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana"><br> @8<5@ 5</font></b></span></p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt"> <font size="2"><span lang="bg"><span style="font-family: Verdana">@8<5@JB 8<0 70 F5; 40 45<>=AB@8@0 G5AB> 87?>;720= <5B>4 70 8B5@0F8O 2J@EC 2A8G:8 5;5<5=B8 =0 0A>F80B825= <0A82, :0B> A5 ?>;720 DC=:F8OB0 <strong>each</strong>. "O 2@JI0 A?8AJ: A 42>9:0 5;5<5=B8 - :;NG 8 AJ>B25B=0B0 AB>9=>AB. @8 ?@5<8=020=5 ?@57 2A8G:8 5;5<5=B8 A5 2@JI0 ?@075= A?8AJ:, :>5B> 2 A:0;0@5= :>=B5:AB ?@8 ?@>25@:0 =0 1C;52> CA;>285 5 false 8 4020 2J7<>6=>AB >1E>640=5B> 40 AB0=5 A <strong>while</strong> F8:J;.</span></span></font><br> &nbsp;</p> <p class="MsoNormal" align="left">&nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber14" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="376"> source code ( example.5.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="229"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="376" height="23"><b><font face="Terminal" size="2" color="#FFFFFF">#!/usr/bin/perl<br> <br> </font></b><font face="Terminal" size="2" color="#FFFFFF"> <strong>%hash = qw { test stoinost dve tri };</strong></font> <p><strong><font color="#FFFFFF" size="2" face="Terminal"> while ( ($key, $value) = each %hash) {<br> &nbsp;&nbsp;&nbsp; print &quot;$key =&gt; $value\n&quot;;<br> }</font></strong></p></td> <td width="229" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">dve =&gt; tri<br> test =&gt; stoinost</font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana"><br> <br> @8<5@ 6</font></b></span></p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt" dir="ltr"> <font size="2"><span lang="bg"><span style="font-family: Verdana">>A;54=8OB ?@8<5@ 45<>=AB@8@0 87?>7;20=5B> =0 E5H>28 >B@O7JF8 (slice->25), ?>4>1=8 =0 >B@O7JF8B5 ?@8 <0A828B5. "C: >B=>2> 8<0<5 8=45:A8@0=5 ?> =O:>;:> :;NG0, :0B> @57C;B0B0 5 A?8AJ:, 5B> 70I> ?@54 0A>F80B82=8B5 <0A828 BC: A5 ?>AB02O '@', 0 =5 '%'.</span></span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber15" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.6.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="281"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="324" height="23"><b><font face="Terminal" size="2" color="#FFFFFF">#!/usr/bin/perl<br> <br> %hash = qw { 1 uan 2 tu 3 tri 4 for 5 faiv };</font></b> <p><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># '@57 splice A5 278<0 A?8AJ: >B 5;5<5=B8B5 A <br> # :;NG>25 1, 3 8 5</font></em><strong><br> print join ( ' ', @hash{qw { 1 3 5 }} ) . &quot;\n&quot;;<br> <br> </strong><em><font face="Arial, Helvetica, sans-serif"># B=>2> G@57 splice, 8=45:A8@09:8 AJA 2A8G:8 <br> # :;NG>25 8B5@8@0<5 2J@EC A?8AJ: >B 2A8G:8 <br> # AB>9=>AB8 8 38 ?@><5=O<5</font></em><strong><br> foreach (@hash{keys %hash}) {<br> &nbsp;&nbsp;&nbsp;&nbsp; $_ .= '!!!';<br> }<br> print join (' ', values %hash) . &quot;\n&quot;;<br> <br> </strong><em><font face="Arial, Helvetica, sans-serif"># J@7 8 :@0BJ: 70?8A 70 ?@><O=0 =0 <=>65AB2> <br> # >B 5;5<5=B8 G@57 >B@O7J:</font></em><strong><br> @hash{ '6', '7', '4'} = ('six', 'seven', 'four');<br> print join (' ', values %hash) . &quot;\n&quot;;</strong></font></p> <p><strong><font color="#FFFFFF" size="2" face="Terminal">%new_hash = qw { 8 eight 9 nine 1 uno };<br> </font></strong><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># J@7 =0G8= 70 A;820=5 =0 420B0 E5H0 2 %hash</font></em><strong><br> @hash{keys %new_hash} = values %new_hash;<br> print join (' ', values %hash) . &quot;\n&quot;;<br> <br> <b><font face="Terminal" size="2" color="#FFFFFF">%hash = qw { 1 uan 2 tu 3 tri 4 for 5 faiv };<br> </font></b></strong><font face="Terminal" size="2" color="#FFFFFF"><em><font face="Arial, Helvetica, sans-serif"># @C3, ?>-:@0BJ:, => 8 ?>-1025= 70 87?J;=5=85 <br> # 70?8A >A=>2020I A5 =0 45D8=8F8OB0 =0 E5H, <br> # :0B> A?8AJ:</font><br> </em><strong>%hash = (%hash, %new_hash);</strong><em><br> </em><strong>print join (' ', values %hash) . &quot;\n&quot;;</strong><em> <br> </em></font></font></p> </td> <td width="281" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal"><br> uan tri faiv<br> uan!!! tu!!! tri!!! for!!! faiv!!!<br> seven uan!!! tu!!! tri!!! four faiv!!! six<br> uno tu!!! tri!!! four faiv!!! six seven eight nine<br> uno tu tri for faiv eight nine<br> </font></td> </tr> </table> </center> </div> </td> </tr> </tbody> </table> </center> </div> </div> </div> </div> </div> <div id='camelFooter'> <MTBlogIfCCLicense> <div class="syndicate"> <br /> A8G:> B>20 3>@5 ?>?040 ?>4 C40@8B5 =0 <a href="<$MTBlogCCLicenseURL$>">Creative Commons License</a>. </div> </MTBlogIfCCLicense> <div class="powered"> 0428620=> >B <br /><a href="http://www.movabletype.org">Movable Type 2.65</a><br /> <br/> 09-4>1@5 A5 28640 A <b><a target="mozilla" href="http://www.mozilla.org/products/firefox/">Firefox</a></b> 2 <b>1024E768</b> 8;8 ?>25G5. <br/> </div> </div> </body> </html>