ÿþ<!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, { text-align: left; } #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%"> <br /> </span> <div lang="EN-US" style="text-align:center; font-size: 14pt; font-family: Chicago">=01>@ ?@8<5@8 70 A:0;0@8 </div> <span style="font-family: Verdana"><br /> <br /> </span> </b>&#160;&#160;</p> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana"><br> @8<5@ 0<br> &nbsp;</font></b></span></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 =09-?@>AB0B0 ?@>3@0<0 =0 Perl. 54JB, A :>9B> 70?>G20 source-0, C:0720 =0 >?5@0F8>=0B0 A8AB5<0 (Unix, Linux, BSD), :J45 A5 =0<8@0 8=B5@?@5B0B>@0 =0 Perl. Windows =5 ?>44J@60 B>78 A8=B0:A8A, B0:0 G5 B>78 @54 I5 1J45 2J7?@85B :0B> >18:=>25= :><5=B0@. <5AB> =53> <>65B5 40 87?;720B5 AB0=40@B=8O <5B>4 =0 0A>F88@0=5 =0 D09;>25B5 A?>@54 @07H8@5=85B> 8< (?>4@0718@0I>B> 70 Perl 5 .pl). </span></span></font><br> &nbsp;</p> <div align="center"> <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber6" height="40"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> <p dir="ltr">source code ( example.0.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="281"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="324"><font face="Terminal" color="#FFFFFF" style="font-size: 10pt; font-weight: 700">#!/usr/bin/perl<br> <br> print &quot;Hello, chixen!&quot;;</font></td> <td width="281"> <p align="left" dir="ltr"><font size="2" face="Terminal" color="#FFFFFF">Hello, chixen!</font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left" dir="rtl"><span lang="bg"><b><font face="Verdana"><br> <br> @8<5@ 1<br> &nbsp;</font></b></span></p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt"> <font size="2"><span style="font-family: Verdana" lang="bg">@8<5@JB 8;NAB@8@0 @07;8G=8B5 =0G8=8, ?> :>8B> <>30B 40 A5 45D8=8@0B G8A;>28 AB>9=>AB8. !:0;0@=8B5 ?@><5=;828 AJ4J@60B A:0;0@=8 40==8, 0 B5 >B A2>O AB@0=0 1820B G8A;0, AB@8=3>25 8 reference-8.  Perl =O<0 AB@>3> B8?878@0=5 8 G8A;0B0 =5 A5 45;OB =0 B0:820 A ?020I0 70?5B0O 8 F5;8 (:0:B> =0?@8<5@ 2 C/C++, Java).</span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber6" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.1.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><b><font size="2" face="Terminal" color="#FFFFFF">#!/usr/bin/perl<br> </font></b><br> <font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><em># &O;> G8A;></em></font><br> <strong><font color="#FFFFFF" size="2" face="Terminal">$scalar_variable = 1234; &nbsp;</font></strong><font color="#FFFFFF" size="2" face="Terminal"><strong><br> print $scalar_variable, &quot;\n&quot;;<br> <br> </strong><em><font face="Arial, Helvetica, sans-serif"># 50;=> G8A;></font></em><font face="Arial, Helvetica, sans-serif"><strong> </strong></font><strong><br> $scalar_variable = 1234.56;<br> print $scalar_variable, &quot;\n&quot;; <br> <br> </strong><em><font face="Arial, Helvetica, sans-serif"># 12 ?> 10 =0 <8=CA 24-B0 AB5?5=</font></em><font face="Arial, Helvetica, sans-serif"><strong> </strong></font><strong><br> $scalar_variable = -12e-24;<br> print $scalar_variable, &quot;\n&quot;;<br> <br> </strong><em><font face="Arial, Helvetica, sans-serif"># A<8G=> FO;> G8A;></font></em><strong><br> $scalar_variable = 0377; <br> print $scalar_variable, &quot;\n&quot;;</strong></font></p> <p><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># (5AB=09A5B8G=> FO;> G8A;></font></em><strong><br> $scalar_variable = -0xff;</strong></font><font color="#FFFFFF" size="2" face="Terminal"><strong><br> print $scalar_variable, &quot;\n&quot;;</strong></font></p> <p><font color="#FFFFFF"><font color="#FFFFFF"><font size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># @5H=>! 57C;B0B0 5 2553, BJ9 :0B> <br> # H5AB=09A5B8G=8B5 (8 >A<8G=8B5 G8A;0) <br> # 1820B A0<> F5;8 8 B>G:0B0 A5 2J7?@85<0 :0B> <br> # >?5@0F8OB0 &quot;:>=:0B5=0F8O =0 AB@8=3&quot;</font></em></font></font><font size="2" face="Terminal"><strong><br> $scalar_variable = 0xff.3; <br> </strong></font><font color="#FFFFFF" size="2" face="Terminal"><strong>print $scalar_variable, &quot;\n&quot;;</strong></font></font><font color="#6699CC"> </font> </p></td> <td width="281" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">1234<br> 1234.56<br> -1.2e-023<br> 255<br> -255<br> 2553</font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana"><br> <br> @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 style="font-family: Verdana" lang="bg">@8<5@JB 45<>=AB@8@0 D0:B0, G5 45 D0:B> 2A8G:8 >?5@0F8 =04 G8A;0 A5 872J@H20B =04 G8A;0 A ?;020I0 70?5B0O (?> ?>4@071>@0=5 Perl A5 :><?8;8@0, :0B> ?@54AB02O G8A;0B0 double float), :>5B> <>65 40 4>2545 4> ?@>1;5<8 A B>G=>ABB0 (:0:B> 2 <=>3> 4@C38 578F8).  Perl 5.8.0 5 =0?@025=> <=>3> 70 ?@81;86020=5 =0 ?@>1;5<0 4> <8=8<C<.  A;CG09, G5 8A:0B5 40 @01>B8B5 A 3>;5<8 G8A;0 8;8 28 B@O120 3>;O<0 B>G=>AB =0 >?5@0F88B5 A ?;020I0 70?5B0O ?>7208B5 =O:>8 >B <>4C;8B5 Math::BigInt, Math::BigFloat 8 B.=.</span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber7" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.2.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><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"># 0:0@ @57C;B0B0 40 5 2.7, 2AJI=>AB B>9 5 <br> # 4>1;865=0 4> =53> AB>9=>AB</font></em><b><br> printf(&quot;%.20f\n&quot;, 5.1 - 2.4);<br> <br> </b><em><font face="Arial, Helvetica, sans-serif"># print >18:=>25=> A5 &quot;CA5I0&quot; 8 8725640 B>G=0B0 <br> # AB>9=>AB</font></em><font face="Arial, Helvetica, sans-serif"><b> </b></font><b><br> print 5.1-2.4;</b></font></p> </td> <td width="281" height="23"> <p align="left" dir="ltr"><font size="2" face="Terminal" color="#FFFFFF">2.69999999999999970000<br> 2.7 </font></td> </tr> </table> </center> </div> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana"><br> <br> @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 style="font-family: Verdana" lang="bg">Perl ?>44J@60 23@045=8B5 >?5@0F88 70 0@8B<5B80 =04 G8A;0, A :>8B> AB5 A28:=0;8 >B <=>3> 4@C38 578F8.  4>102:0 >?5@0B>@JB &quot;**&quot; (425 725748G:8) ?>24830 =0 AB5?5=, 0 >?5@0B>@0 &quot;++&quot; (420 ?;NA0) ?@8;>65= =04 AB@8=3>20 :><18=0F8O >B 1C:28 G8A;0 O C25;8G020 A 1 2 ;5:A8:>3@0DA:8 A<8AJ;.</span></font><b><br> &nbsp;</b></p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber8" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.3.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 size="2" face="Terminal" color="#FFFFFF">#!/usr/bin/perl<br> <br> </font></b><font size="2" color="#FFFFFF"><font size="2" color="#FFFFFF"><font color="#FFFFCC"><font color="#FFFFFF"><em><font face="Arial, Helvetica, sans-serif"># 2 ** (3 ** 4), B>5AB 2 =0 AB5?5= 81<br> # O:>8 >?5@0B>@8 A0 4OA=> 0A></font></em></font></font><font face="Arial, Helvetica, sans-serif"><em>F80B82=8</em></font></font> </font><font size="2" face="Terminal" color="#FFFFFF"><b><font color="#FFFFCC"><br> <font color="#FFFFFF">print 2 ** 3 ** 4 , &quot;\n&quot;;</font></font></b></font> <p><font color="#FFFFFF"><strong><font size="2" face="Terminal">$a = 3;<br> $b = ($a += 4); <br> print &quot;a = $a, b=$b \n&quot;;</font></strong></font></p> <p><font color="#FFFFFF"><font size="2"><em><font face="Arial, Helvetica, sans-serif"># Autoincrement &amp;&amp; autodecrement</font></em></font><font size="2" face="Terminal"><strong><br> print ++($foo = 5), &quot;\n&quot;;<br> print ++($foo = 'Az')<font color="#FFFFFF"><strong>, &quot;\n&quot;</strong></font>;<br> print ++($foo = 'zz')<font color="#FFFFFF"><strong>, &quot;\n&quot;</strong></font>;</strong></font></font></p> </td> <td width="281" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="TerminalDefault Font">2.41785163922926e+024<br> a = 7, b=7<br> 6<br> Ba<br> aaa</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@ 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"> <font size="2"><span style="font-family: Verdana" lang="bg">@8<5@JB ?>:0720 5D5:B0 >B 87?>;720=5 =0 DC=:F88B5 </span> <span style="font-family: Verdana"><b>oct, hex<span lang="bg"> </span></b><span lang="bg">8 </span><b>ord</b><span lang="bg">, 87?>;720=8 AJ>B25B=> 70 ?@5>1@07C20=5 =0 >A<8G=8 G8A;0 (AJI> H5AB=09A5B8G=8 8 42>9G=8) 2 45AB8G=8, H5AB=09A5B8G=8 2 45A8B8G=8 8 ?>;CG020=5 =><5@0 =0 4045= A8<2>; A?>@54 0:B82=0B0 :>4>20 B01;8F0 =0 A8AB5<0B0.</span></span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber9" height="45"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324" height="12"> source code ( example.4.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="281" height="12"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="324" height="3"><p><font face="Terminal" size="2" color="#FFFFFF"><b>#!/usr/bin/perl</b><br> <strong><br> </strong><em><font face="Arial, Helvetica, sans-serif"># hex ?@5>1@07C20 H5AB=09A5B8G=8 G8A;0 2 <br> # 45A5B8G=8, 4065 40 =5 70?>G20B A 0x</font></em><strong><br> print hex &quot;0xFF&quot;, &quot;\n&quot;;<br> print hex 'a', &quot;\n&quot;;<br> <br> </strong><em><font face="Arial, Helvetica, sans-serif"># oct ?@5>1@07C20 H5AB=09A5B8G=8, >A<8G=8 8 <br> # 42>9G=8 G8A;0 2 45A5B8G=8, => B@O120 40 A0 <br> # 70?8A0=8 ?@028;=> 8=0G5 @57C;B0B0 5 0</font></em><strong><br> print oct '0xFF', &quot;\n&quot;;<br> print oct &quot;077&quot;, &quot;\n&quot;;<br> print </strong></font><font color="#FFFFFF"><strong><font size="2" face="Terminal">oct &quot;0b1111&quot;</font><font face="Terminal" size="2" color="#FFFFFF"><strong>, &quot;\n&quot;</strong></font><font size="2" face="Terminal">;<br> </font><font face="Terminal" size="2" color="#FFFFFF"><strong>print oct 'a', &quot;\n&quot;;</strong></font><font size="2" face="Terminal"> <br> print ord('0');<br> </font></strong></font></p> </td> <td width="281" height="3"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">255<br> 10<br> 255<br> 63<br> 15<br> 0<br> 97 </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 style="font-family: Verdana" lang="bg">@8<5@JB 45<>=AB@8@0 AB0=40@B=8B5 =aG8=8 70 45D8=8@0=5 =0 AB@8=3>25 8 D0:B0, G5 AB@8=3>25B5 >1@3@045=8 A 42>9=8 :028G:8 8=B5@?>;8@0B ?@><5=;828B5 8 A?5F80;=8B5 5A:59? A8<2>;8 (:0B> \n).</span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber9" height="45"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324" height="12"> source code ( example.5.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="281" height="12"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="324"><p><font face="Terminal" size="2" color="#FFFFFF"><b>#!/usr/bin/perl</b><br> <strong><br> </strong><em><font face="Arial, Helvetica, sans-serif"># </font></em><font face="Arial, Helvetica, sans-serif"> @><5=;828B5 =5 A5 8=B5@?>;8@0B<strong> </strong></font><strong><br> $single_quoted = '$string';<br> print $single_quoted . &quot;\n&quot;;</strong><br> <strong>$single_quoted = q { $string };</strong></font><br> <font face="Terminal" size="2" color="#FFFFFF"><strong>print $single_quoted . &quot;\n&quot;;</strong></font> </p> <p><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># @><5=;828B5 A5 8=B5@?>;8@0B</font></em><strong><br> $double_quoted = &quot;${single_quoted}i oshte neshto&quot;;<br> print $double_quoted . &quot;\n&quot;;<br> $double_quoted = &quot;joro\60 $single_quoted\n&quot;;<br> print $double_quoted; <br> $double_quoted = &quot;joro\x30\n&quot;;<br> print $double_quoted; <br> $double_quoted = qq {$single_quoted};<br> print $double_quoted;</strong></font></p> <p><font color="#FFFFFF"><strong><font size="2" face="Terminal"><br> </font></strong></font></p></td> <td width="281"> <p><font color="#FFFFFF" size="2" face="Terminal">$string<br> &nbsp;$string<br> &nbsp;$string i oshte neshto<br> joro0 $string<br> joro0<br> &nbsp;$string</font></p> </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@ 6<br> &nbsp;</font></b></span></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;NAB@8@0 87?>;720=5B> =0 </span></span> <span style="font-family: Verdana">&quot;here-to&quot;<span lang="bg"> ?>4E>40 (B.=. here-to 4>:C<5=B8) ?@8 2J25640=5 =0 AB@8=3>25, AJAB025=8 >B =O:>;:> @540. </span></span> </font><br> &nbsp;</p> <div align="center"> <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber6" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> <p dir="ltr">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"><font face="Terminal" color="#FFFFFF" style="font-size: 10pt; font-weight: 700">#!/usr/bin/perl<br> <br> $a_string = 'chixen';<br> </font><font color="#FFFFFF" size="2" face="Terminal"><em><font face="Arial, Helvetica, sans-serif"># @><5=;828B5 A5 8=B5@?>;8@0B</font></em></font><font face="Terminal" color="#FFFFFF" style="font-size: 10pt; font-weight: 700"><br> print &lt;&lt;HERE<br> <br> $a_string <br> larodi <br> larodi <br> larodi <br> and chixen for free<br> <br> HERE</font></td> <td width="281" height="23"> <p align="left" dir="ltr"><font size="2" face="Terminal" color="#FFFFFF">chixen<br> larodi<br> larodi<br> larodi<br> and chixen for free</font></td> </tr> </table> </center> </div> <div align="center" ></div> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left">&nbsp;</p> <p class="MsoNormal" align="left" dir="rtl"><span lang="bg"><b><font face="Verdana">@8<5@ 7 <br> &nbsp;</font></b></span></p> <p class="MsoNormal" style="text-align: justify; text-justify: inter-ideograph; text-indent: 18.0pt"> <font size="2"><span style="font-family: Verdana" lang="bg">@8<5@JB 8;NAB@8@0 87?>;720=5B> =0 <C;B8?;8F8@0I8OB >?5@0B>@</span> ' x '. <span lang="bg" style="font-family: Verdana">! =53>20 ?><>I A5 ?>;CG020 A:0;0@5= AB@8=3, :>9B> AJ4J@60 </span> <span style="font-family: Verdana">N </span><span lang="bg" style="font-family: Verdana">=0 1@>9 ?>2B>@5=8O =0 ;528O 0@3C<5=B, :0B> </span> <span style="font-family: Verdana">N<span lang="bg"> AJ>B25BAB20 =0 45A=8O</span></span><span lang="bg" style="font-family: Verdana">. </span> </font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber6" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.7.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 size="2" face="Terminal" color="#FFFFFF">#!/usr/bin/perl<br> <br> <br> $a = &quot; marin &quot;;<br> print &quot;triple chick bonus: &quot;.($a x 3);</font></b></td> <td width="281" height="23"> <p align="left" dir="ltr"><font size="2" face="Terminal" color="#FFFFFF">triple chick bonus: marin marin marin</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"> </font></b></span></p> <div align="center" ></div> <p class="MsoNormal" align="left"><span lang="bg"><b><font face="Verdana">@8<5@ 8 </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"> 01>B0 A DC=:F8OB0 </span></span> <span style="font-family: Verdana; font-weight: 700">substr<span lang="bg"> - </span></span><span style="font-family: Verdana" lang="bg">>BF5?20 G0AB >B AB@8=3. 0B> ?J@28 ?0@0<5BJ@ ?>;CG02</span><span style="font-family: Verdana">0<span lang="bg"> AB@8=30</span></span><span style="font-family: Verdana" lang="bg">, :0B> 2B>@8 - AB0@B>20 ?>78F8O 8 :0B> B@5B8 - 1@>O A8<2>;8, :>8B> B@O120 40 A5 87204OB. $C=:F8OB0 =5 0D5:B8@0 AJ4J@60=85B> =0 AB@8=30.</span></font><b><br> &nbsp;</b></p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber8" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.8.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 size="2" face="Terminal" color="#FFFFFF">#!/usr/bin/perl<br> <br> <br> $myString = &quot;larodi string&quot;;<br> print &quot;\n&quot;.substr($myString, 0, 4);<br> print &quot;\n&quot;.substr($myString, 4, 2);<br> print &quot;\n&quot;.$myString; <br> </font></b></td> <td width="281" height="23"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">laro<br> di<br> <font size="2" face="Terminal" color="#FFFFFF">larodi string</font> </font></td> </tr> </table> <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@ 9 </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">5<>=AB@0F8O =0 @07;8:8B5 <564C </span></span> <span style="font-family: Verdana"><b>chomp</b> <span lang="bg">8 </span><b>chop</b></span><span style="font-family: Verdana; font-weight: 700">.<span lang="bg"> </span></span><span style="font-family: Verdana" lang="bg">3@0=8G8B5;OB &quot;&lt;&quot;, :>9B> A5 ?>O2O20 2 :@0O =0 @540 2 87E>40 >B ?@8<5@0 =0A>G20 2=8<0=85B> 8<5==C 2J@EC 5D5:B0 >B </span><span style="font-family: Verdana">chop <span lang="bg">8</span> chomp<span lang="bg">.</span></span></font><br> &nbsp;</p> <div align="center" > <center> <table border="0" cellpadding="7" cellspacing="1" style="border-collapse: collapse" width="90%" id="AutoNumber9" height="45"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324" height="12"> source code ( example.9.pl )</td> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="281" height="12"> output</td> </tr> <tr bgcolor="#712D2D" > <td width="324" height="3"><font face="Terminal" size="2" color="#FFFFFF"><b>#!/usr/bin/perl</b><br> <b><br> <br> $a = &quot; let's chom(p) these munchie muncheezz <span lang="bg">&nbsp;&nbsp;&nbsp; </span>\n&quot;;<br> print $a;<br> chomp $a; print &quot;chomp 1: $a &lt; \n&quot;;<br> chomp $a; print &quot;chomp 2: $a &lt; \n&quot;;<br> chop&nbsp; $a; print &quot;chop&nbsp; 1: $a &lt; \n&quot;;<br> chop&nbsp; $a; print &quot;chop&nbsp; 2: $a &lt; \n&quot;;<br> </b><em><br> <font face="Arial, Helvetica, sans-serif"># @5H=>! $C=:F8OB0 2@JI0 >B@O70=8O A8<2>;, <br> # :>5B> 2 A;CG09 I5 87B@85 $0</font></em><b><br> $a = chop $a; print &quot;chop&nbsp; 3: $a &lt; \n&quot;;</b></font></td> <td width="281" height="3"> <p align="left" dir="ltr"><font color="#FFFFFF" size="2" face="Terminal">chomp 1: let's chom(p) these munchie muncheezz &lt;<br> chomp 2: let's chom(p) these munchie muncheezz &lt;<br> chop 1: let's chom(p) these munchie muncheezz &lt;<br> chop 2: let's chom(p) these munchie muncheez &lt;<br> chop 3: z &lt;</font></td> </tr> </table> <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@ 10</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=;820 ?> ?>4@0718@0=5 </span></span><span style="font-family: Verdana"> $_.<span lang="bg"> @8<5@8 70 87?>;720=5B> 8 :0B> 0@3C<5=B ?> ?>4@0718@0=5. @8<5@8 70 87?>;720=5 =0 DC=:F88 </span><b>hex</b>, <b>int</b>, <b> uc</b><span lang="bg"> 8 </span><b>reverse </b>(2 A:0;0@5= :>=B5:AB)<b>.</b></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="AutoNumber10" height="23"> <tr valign="bottom"> <td style="font-size:xx-small; font-family: tahoma" valign="bottom" width="324"> source code ( example.10.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" color="#FFFFFF" size="2">#!/usr/bin/perl<br> <br> $_ = &quot;10a&quot;;<br> <br> print;<br> print &quot;\n&quot;;<br> print &quot;\n&quot;.hex();<br> print &quot;\n&quot;.int.&quot; &quot;.uc;<br> print &quot;\n&quot;.reverse();</font></b></td> <td width="281" height="23"> <p align="left" dir="ltr"><font face="Terminal" size="2" color="#FFFFFF">Warning: Use of &quot;int&quot; without parens is ambiguous at ./example.10.pl line 11.<br> 10a<br> <br> 266<br> 10 10A<br> a01</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"></font></b></span></p> <p>&nbsp;</p> </center> </div> </center> </div> <p class="MsoNormal" align="left">&nbsp;</p> </td> </tr> </tbody> </table> </center> </div> </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>