<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Dar vieno analitiko svetainė &#187; Uncategorized</title>
	<atom:link href="http://petras.kudaras.lt/archyvas/category/uncategorized/feed" rel="self" type="application/rss+xml" />
	<link>http://petras.kudaras.lt</link>
	<description>Petras Kudaras</description>
	<lastBuildDate>Mon, 30 Jan 2012 13:01:10 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3.1</generator>
		<item>
		<title>Ar VILIBOR fiktyvus: ką sako forvardai?</title>
		<link>http://petras.kudaras.lt/archyvas/2009-11-04/ar-vilibor-fiktyvus-ka-sako-forvardai.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2009-11-04/ar-vilibor-fiktyvus-ka-sako-forvardai.html#comments</comments>
		<pubDate>Wed, 04 Nov 2009 09:09:40 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=983</guid>
		<description><![CDATA[Berods dar vasarą su anarchistu diskutavome šia tema. Iš tiesų, 6 mėnesių VILIBOR palūkanų norma gali pasirodyti „fiktyvi“, mat bankai tarpusavyje nesudaro jokių sandorių tokiai trukmei. Tačiau bent jau teoriškai VILIBOR galima išvesti iš euro/lito forvardų kainų. Nežinau, kiek euro/lito 6 mėnesių forvardai (t.y. sandoriai pakeisti eurus ir litus sutarta kaina po 6 mėnesių) yra [...]]]></description>
			<content:encoded><![CDATA[<p>Berods dar vasarą su <a href="http://www.anarchistas.lt">anarchistu</a> diskutavome šia tema. Iš tiesų, 6 mėnesių VILIBOR palūkanų norma gali pasirodyti „fiktyvi“, mat bankai tarpusavyje nesudaro jokių sandorių tokiai trukmei. Tačiau bent jau teoriškai VILIBOR galima išvesti iš euro/lito forvardų kainų. Nežinau, kiek euro/lito 6 mėnesių forvardai (t.y. sandoriai pakeisti eurus ir litus sutarta kaina po 6 mėnesių) yra likvidūs, bet esu tikras, jog ši rinka turėtų būti gilesnė nei „fiktyvus“ VILIBOR.</p>
<p>Forwardų kainą galima apskaičiuoti pagal formulę:</p>
<div id="attachment_984" class="wp-caption aligncenter" style="width: 509px"><a href="http://petras.kudaras.lt/wp-content/uploads/2009/11/eurltl6m.PNG"><img class="size-full wp-image-984" title="Forvardo formulė" src="http://petras.kudaras.lt/wp-content/uploads/2009/11/eurltl6m.PNG" alt="Forvardo kaina = dabartinis kursas + palūkanų skirtumas" width="499" height="40" /></a><p class="wp-caption-text">Forvardo kaina = dabartinis kursas + palūkanų skirtumas</p></div>
<p>Ši formulė reiškia, jog Euro/lito keitimo kursas po 6 mėnesių turėtų būti tie patys 3,4528 plius palūkanų skirtumas tarp litinių (VILIBOR) ir eurinių (EURIBOR) palūkanų: mat jei turiu litus, tai uždirbu daugiau kam nors juos paskolinęs, nei jei turėčiau eurus, o šis skirtumas forvardo kurse turėtų būti kompensuojamas, kad nebūtų arbitražo galimybių.</p>
<p>Išsitraukus forvardų kainas bei EURIBOR istoriją iš Bloombergo, galima paskaičiuoti teorinį 6 mėnesių VILIBOR. Lyginant su tikruoju VILIBOR, gavau tokį grafiką:</p>
<div id="attachment_986" class="wp-caption aligncenter" style="width: 602px"><a href="http://petras.kudaras.lt/wp-content/uploads/2009/11/vilibor_updated.PNG"><img class="size-full wp-image-986" title="VILIBOR" src="http://petras.kudaras.lt/wp-content/uploads/2009/11/vilibor_updated.PNG" alt="VILIBOR vs teorinis VILIBOR" width="592" height="467" /></a><p class="wp-caption-text">VILIBOR vs teorinis VILIBOR</p></div>
<p>Iš tiesų, VILIBOR, skaičiuotas iš forvardų (raudona kreivė, <em>implied VILIBOR</em>), labai artimai atkartoja tikrąjį VILIBOR. Tad gal tas VILIBOR ir nėra toks „fiktyvus“, kaip kad bandoma teigti.</p>
<p><em><strong>Atnaujinimas</strong></em>: <a href="http://www.blogger.com/profile/15326799492014866851">Šališkas stebėtojas</a> iš dienoraščio <a href="http://www.nematomaranka.lt">nematomaranka.lt</a> <a href="http://www.nematomaranka.lt/2009/11/viliboras-ir-ekskavatorius-smelio.html?showComment=1258213728112#c188197034792151438">pastebėjo klaidą</a>: paveikslėlyje buvo sumaišyti <em>VILIBOR</em> ir <em>implied VILIBOR</em> kreivių pavadinimai. Apgailestauju dėl tokio žioplo neapsižiūrėjimo. Esminių išvadų tai nekeičia – VILIBOR iš esmės atkartoja iš forvardų išvedamas palūkanų normas.</p>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2009-11-04/ar-vilibor-fiktyvus-ka-sako-forvardai.html/feed</wfw:commentRss>
		<slash:comments>14</slash:comments>
		</item>
		<item>
		<title>Pasakojimas apie rinkas investuotojų asociacijoje</title>
		<link>http://petras.kudaras.lt/archyvas/2009-07-03/pasakojimas-apie-rinkas-investuotoju-asociacijoje.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2009-07-03/pasakojimas-apie-rinkas-investuotoju-asociacijoje.html#comments</comments>
		<pubDate>Fri, 03 Jul 2009 09:53:57 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=908</guid>
		<description><![CDATA[Vakar investuotojų asociacija paprašė pakalbėti apie tai, ką manau apie rinkas. Kadangi prašė kalbėti daugiau apie pasualio rinkas, tai apsiribojau JAV, ir dariau prielaidą, jog ji atsigaus tik tuomet, kai atsigaus JAV vartotojai. Bet jie kol kas pinigų neturi, nes didėja nedarbas, paskolų aptarnavimui reikia skirti vis dar skirti rekordiškai didelę pajamų dalį (mat skolų [...]]]></description>
			<content:encoded><![CDATA[<p>Vakar investuotojų asociacija paprašė pakalbėti apie tai, ką manau apie rinkas. Kadangi prašė kalbėti daugiau apie pasualio rinkas, tai apsiribojau JAV, ir dariau prielaidą, jog ji atsigaus tik tuomet, kai atsigaus JAV vartotojai. Bet jie kol kas pinigų neturi, nes didėja nedarbas, paskolų aptarnavimui reikia skirti vis dar skirti rekordiškai didelę pajamų dalį (mat skolų yra labai daug, tad net sumažintos palūkanos leidžia tik ribotai atsikvėpti), o net ir tie, kurie vis dar turi darbus ir nedaug skolų yra linkę taupyti (taupymo lygis šovė į viršų). Kol kas dar vienareikšmiškai pasakyti ar verta pirkti akcijas sunku, mat neaišku, ar ekonomikos atsigavimas jau užuodžiamas. O akcijos kainuoja tiek, lyg jau atsigavimas būtų už kampo. Prisegu savo <a href="http://petras.kudaras.lt/wp-content/uploads/2009/07/investuotoju_asociacija.ppt">pristatymo skaidres</a>.</p>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2009-07-03/pasakojimas-apie-rinkas-investuotoju-asociacijoje.html/feed</wfw:commentRss>
		<slash:comments>10</slash:comments>
		</item>
		<item>
		<title>Dave Hitz: How to Castrate a Bull</title>
		<link>http://petras.kudaras.lt/archyvas/2009-03-18/dave-hitz-how-to-castrate-a-bull.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2009-03-18/dave-hitz-how-to-castrate-a-bull.html#comments</comments>
		<pubDate>Wed, 18 Mar 2009 03:52:40 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=861</guid>
		<description><![CDATA[Puiki trumpa, juokinga, bei įžvalgi knyga apie vadybą (ir šiek tiek apie raguočių priežiūrą). Dave Hitz joje pasakoja apie kompanijos NetApp, kuri užsiima duomenų saugojimo sprendimais, kūrimą ir evoliuciją, nors joje galima rasti ir visiškai nesusijusių su šios kompanijos istorija pasakojimų: tiesiog smagi minčių ir pamąstymų mišrainė, kurią gardžiai galima „suvalgyti“ per keletą valandų. Ypač [...]]]></description>
			<content:encoded><![CDATA[<p>Puiki trumpa, juokinga, bei įžvalgi knyga apie vadybą (ir šiek tiek apie raguočių priežiūrą). <em>Dave Hitz</em> joje pasakoja apie kompanijos <a href="http://www.netapp.com">NetApp</a>, kuri užsiima duomenų saugojimo sprendimais, kūrimą ir evoliuciją, nors joje galima rasti ir visiškai nesusijusių su šios kompanijos istorija pasakojimų: tiesiog smagi minčių ir pamąstymų mišrainė, kurią gardžiai galima „suvalgyti“ per keletą valandų.</p>
<p>Ypač man buvo įdomu paskaityti apie itin spartaus kompanijos <em>NetApp</em> augimo laikus: keletą metų iš eilės padvigubėjančią kompaniją nelengva suvaldyti. Neišvengiamai didėjant kompanijos darbuotojų skaičiui, ji nebegali išlikti tokia pat neformali, joje turi atsirasti procedūros, ją valdyti turi pradėti kiti žmonės, kurie turi didelių kompanijų valdymo sugebėjimų. Bet tuo pačiu reikia vadovautis sveiku protu ir stengtis išlaikyti kompanijos darbuotojų motyvaciją, kas gali būti nelengva.</p>
<p>Kompanijai augant, turi augti ir jos vertybės. Autorius pasakoja istoriją, kaip kompanijos gyvavimo pradžioje (tuo metu dirbo gal 20 darbuotojų) vienas inžinierius netyčia vėlai pasilikęs darbe sulaukė kliento skambučio, apie tai, jog klientui iškilo problema. Tuomet šis inžinierius pats nuėjo į gamybos cechą, paėmė nuo konvejerio serverį ir nuvežė jį pas klientą į kitą miestą, kur naktį jam viską sukonfigūravo ir iki ryto išsprendė problemą. Savaime suprantama, tokiu darbuotoju galima didžiuotis – tai net nebuvo jo darbas. Bet tokie herojai visiškai nereikalingi kai kompanijoje dirba 5 tūkstančių žmonių – tikrai niekas nenori kad koks nors inžinierius po darbo savo iniciatyva brautųsi į gamybos skyrių. Kai kompanija subręsta, jos elgesys keičiasi.</p>
<p>Knygoje <em>Hitz</em> rašo ir apie tai, kaip vadovauti žmonėms, juos rinktis ir juos motyvuoti, kas yra kompanijos vertybės (tai toks sąrašas dalykų, kuriuos priminęs bet kuris kompanijos darbuotojas gali realiai užginčyti bet kokį vadovo sprendimą: „<em>taip daryti negalime, nes tai prieštarauja mūsų vertybėms</em>“ – ir daugiau jokių diskusijų), kaip bendrauti su inžinieriais ir ko iš tiesų reikia klientams (dažniausiai, kad išspręstum jų problemą, o ne kokios nors konkrečios technologijos – pats pamenu, jog būdamas programuotoju dažnai įkrisdavau į šią mąstymo duobę).</p>
<p>Rekomenduotina perskaityti.</p>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2009-03-18/dave-hitz-how-to-castrate-a-bull.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Nuorodos, nuorodos&#8230;</title>
		<link>http://petras.kudaras.lt/archyvas/2004-01-17/nuorodos-nuorodos.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2004-01-17/nuorodos-nuorodos.html#comments</comments>
		<pubDate>Sat, 17 Jan 2004 20:17:44 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=332</guid>
		<description><![CDATA[Visgi sesija, ir nėra laiko ilgesniems dienoraščio įrašams, bet štai vėl krūva nuorodų, kurios gal kam bus įdomios: Svetainių permaišos (remixai) &#8211; pritaikykite vienos svetainės turinį kitos svetainės dizainui ir rezutatai gali būti gana juokingi ;-) Nokia žada Perl savo mobiliuose telefonuose &#8211; gal reikės pasikeisti savo Ericssoną&#8230; FavIcon online generatorius Juokingi Apple C kompiliatoriaus [...]]]></description>
			<content:encoded><![CDATA[
<p>Visgi sesija, ir nėra laiko ilgesniems dienoraščio įrašams, bet štai<br />
vėl krūva nuorodų, kurios gal kam bus įdomios:</p>
<ul>
<li><a href="http://www.topfx.com/cgi-bin/mixmaster.cgi">Svetainių<br />
permaišos (<em>remixai</em>)</a> &#8211; pritaikykite vienos svetainės<br />
turinį kitos svetainės dizainui ir rezutatai gali būti gana juokingi<br />
;-)</li>
<li><a href="http://www.theregister.co.uk/content/64/34943.html">Nokia<br />
žada Perl savo mobiliuose telefonuose</a> &#8211; gal reikės pasikeisti<br />
savo Ericssoną&#8230;</li>
<li><a href="http://www.html-kit.com/e/favicon.cgi">FavIcon online<br />
generatorius</a></li>
<li><a<br />
href="http://www.petebevin.com/archives/001094.html#001094">Juokingi<br />
Apple C kompiliatoriaus įspėjimai</a></li>
<li><a href="http://www.top.lt/">9-asis www čempionatas</a> &#8211;<br />
taip, esu prikišęs nagus</li>
<li><a href="http://www.urbandictionary.com/">urbandictionary</a><br />
&#8211; neblogas <em>online</em> žodynas, šiek tiek panašus į <a<br />
href="http://everything2.com">everything2.com</a>.</li>
</ul>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2004-01-17/nuorodos-nuorodos.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Krūva nuorodų</title>
		<link>http://petras.kudaras.lt/archyvas/2004-01-09/kruva-nuorodu-2.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2004-01-09/kruva-nuorodu-2.html#comments</comments>
		<pubDate>Fri, 09 Jan 2004 10:56:49 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=330</guid>
		<description><![CDATA[Kasdien atnaujinamos nuotraukos iš Marso zondo Spirit Why I hate webblogs &#8211; įdomus pasiskaitymas apie tai, kad weblogai yra nieko neverti Perl6 wiki Biudžetai savivaldybėje &#8211; shameless plug ;-) Get the facts on Windows and Linux &#8211; Microsoft svetainėje prieš Linux kovojama ir skaičiais Wired: Gates previews the amazing decade &#8211; Microsoft vis toliau eina [...]]]></description>
			<content:encoded><![CDATA[
<ul>
<li><a<br />
href="http://www.jpl.nasa.gov/mer2004/rover-images/images.html">Kasdien<br />
atnaujinamos nuotraukos iš Marso zondo <em>Spirit</em></a></li>
<li><a<br />
href="http://mama.indstate.edu/users/bones/WhyIHateWebLogs.html">Why I<br />
hate webblogs</a> &#8211; įdomus pasiskaitymas apie tai, kad<br />
<em>weblogai</em> yra nieko neverti</li>
<li><a href="http://p6stories.kwiki.org/index.cgi?HomePage">Perl6<br />
wiki</a></li>
<li><a href="http://loreta.skopos.lt/index.pl?id=6">Biudžetai<br />
savivaldybėje</a> &#8211; shameless plug ;-)</li>
<li><a href="http://www.microsoft.com/mscorp/facts/default.asp">Get the<br />
facts on Windows and Linux</a> &#8211; Microsoft svetainėje prieš Linux<br />
kovojama ir skaičiais</li>
<li><a<br />
href="http://wired.com/news/technology/0,1282,61837,00.html?tw=wn_tophead_3">Wired:<br />
Gates previews the amazing decade</a> &#8211; Microsoft vis toliau eina<br />
į <em>multimedia</em> produktų rinkas</li>
</ul>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2004-01-09/kruva-nuorodu-2.html/feed</wfw:commentRss>
		<slash:comments>3</slash:comments>
		</item>
		<item>
		<title>Nemokami teksto redaktoriai Windows</title>
		<link>http://petras.kudaras.lt/archyvas/2003-12-19/nemokami-teksto-redaktoriai-windows.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2003-12-19/nemokami-teksto-redaktoriai-windows.html#comments</comments>
		<pubDate>Fri, 19 Dec 2003 11:37:26 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=322</guid>
		<description><![CDATA[Atradau nemokamų teksto redagavimo programų Windowsams sąrašą. Gana išsamus: http://www.devzoo.com/index.php?tooltype=WindowsEditor]]></description>
			<content:encoded><![CDATA[
<p>Atradau nemokamų teksto redagavimo programų Windowsams sąrašą. Gana<br />
išsamus: <a<br />
href="http://www.devzoo.com/index.php?tooltype=WindowsEditor">http://www.devzoo.com/index.php?tooltype=WindowsEditor</a></p>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2003-12-19/nemokami-teksto-redaktoriai-windows.html/feed</wfw:commentRss>
		<slash:comments>7</slash:comments>
		</item>
		<item>
		<title>Perlo objektų pradžiamokslis: pirmoji dalis</title>
		<link>http://petras.kudaras.lt/archyvas/2003-11-28/perlo-objektu-pradziamokslis-pirmoji-dalis.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2003-11-28/perlo-objektu-pradziamokslis-pirmoji-dalis.html#comments</comments>
		<pubDate>Fri, 28 Nov 2003 15:03:29 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[Programavimas]]></category>
		<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=309</guid>
		<description><![CDATA[Objekto vaizdavimas Dažniausiai Perle Paskalio įrašas arba C struktūra, arba C+ klasė yra saugoma anoniminio asociatyvaus masyvo (hešo) pavidalu. Taip saugoti yra patogu, nes heše galima saugoti neribotą kiekį elementų, kuriuos galima pasiekti per unikalų hešo raktą. Jeigu tik norite kažko panašaus į C struktūrą, tai galima daryti taip: $irasas = { vardas =&#62; "Petras", [...]]]></description>
			<content:encoded><![CDATA[
<p>Objekto vaizdavimas</p>
<p>Dažniausiai Perle Paskalio įrašas arba C struktūra, arba C+ klasė yra<br />
saugoma anoniminio asociatyvaus masyvo (<em>hešo</em>) pavidalu. Taip<br />
saugoti yra patogu, nes <em>heše</em> galima saugoti neribotą kiekį<br />
elementų, kuriuos galima pasiekti per unikalų <em>hešo</em> raktą.</p>
<p>Jeigu tik norite kažko panašaus į C struktūrą, tai galima daryti<br />
taip:</p>
<pre>
$irasas = {
    vardas   =&gt; "Petras",
    amzius   =&gt; 21,
    kolegos  =&gt; [ "Juozas", "Nikolajus", "Vaidas"],
};
</pre>
<p>Jeigu norite lengviau perskaitomo kodo, galite <em>hešo</em> raktus<br />
rašyti didžiosiomis raidėmis:</p>
<pre>
$irasas = {
    VARDAS   =&gt; "Petras",
    AMZIUS   =&gt; 21,
    KOLEGOS  =&gt; [ "Juozas", "Nikolajus", "Vaidas"],
};
</pre>
<p>Norėdami prieiti prie vardo &#8222;Petras&#8220; galite rašyti<br />
<code>$irasas-&gt;{VARDAS}</code>, o norėdami gauti kolegų masyvą galite<br />
rašyti <code>@{ $irasas-&gt;{KOLEGOS} }</code>.</p>
<p>Labai panaši idėja yra naudojama ir objektams, tik nereikėtų prieiti<br />
prie objekto sudėtinių dalių prieiti tiesiogiai &#8211; tam dažniausiai<br />
yra naudojamos specialiai tam parašytos funkcijos. Galima sakyti kad<br />
objektas turėtų būti tiesiog daiktas, prie kurio duomenų reiktų prieiti<br />
tik per specialias jo funkcijas.</p>
<p>Klasės sąsaja</p>
<p>Tarkim, kad turim klasę <code>Asmuo</code>. Štai kaip būtų galima ja<br />
naudotis:</p>
<pre>
    use Asmuo;

    $jo = Asmuo-&gt;naujas();
    $jo-&gt;vardas("Petras");
    $jo-&gt;amzius(21);
    $jo-&gt;kolegos( "Juozas", "Nikolajus", "Vaidas" );

    push @Visi_asmenys, $jo;  # išsaugom objektą vėlesniam naudojimui

    printf "%s turi %d metus.\n", $jo-&gt;vardas, $jo-&gt;amzius;
    print "Jo kolegos yra: ", join(", ", $jo-&gt;kolegos), "\n";

    printf "Paskutinis asmuo yra %s\n", $Visi_asmenys[-1]-&gt;vardas;
</pre>
<p>Kaip matote, klasės <code>Asmuo</code> vartotojas nežino (ir neturi<br />
žinoti) kaip yra saugomi duomenys klasėje <code>Asmuo</code>. Visus<br />
duomenis vartotojas pasiekia tik per metodus (t.y. funkcijas, kurios<br />
priklauso klasei)</p>
<p>Konstruktoriai ir objekto metodai</p>
<p>Tačiau <em>kažkas</em> turi žinoti, kaip duomenys saugomi klasėje, ir<br />
tas <em>kažkas</em> yra pati klasė. Klasė aprašo metodus, kuriais<br />
naudojanti galima prieiti prie prie objekto duomenų. Štai kaip galima<br />
aprašyti klasę <code>Asmuo</code> naudojantis standartiniu duomenų<br />
saugojimo <em>hešo</em> nuorodoje būdu. Aprašysime klasės metoda<br />
<code>naujas()</code>, kuris bus objekto konstruktorius, bei tris<br />
objekto metodus <code>vardas()</code>, <code>amzius()</code> ir<br />
<code>kolegos()</code> per kuriuos bus galima prieiti prie objekte<br />
saugomų duomenų.</p>
<pre>
    package Asmuo;
    use strict;

    ####################################################
    ## objekto konstruktorius (supaprastinta versija) ##
    ####################################################
    sub naujas {
        my $mano  = {};
        $mano-&gt;{VARDAS}   = undef;
        $mano-&gt;{AMZIUS}    = undef;
        $mano-&gt;{KOLEGOS}  = [];
        bless($mano);           # bet zr. zemiau
        return $mano;
    }

    ##############################################
    ## metodai objektu duomenis pasiekti        ##
    ##                                          ##
    ## Metodai nustato reikšmę, jei perduodamas ##
    ## argumentas, ir tik grąžina reikšmę jei   ##
    ## argumentai neperduodami                  ##
    ##############################################

    sub vardas {
        my $mano = shift;
        if (@_) { $mano-&gt;{VARDAS} = shift }
        return $mano-&gt;{VARDAS};
    }

    sub amzius {
        my $mano = shift;
        if (@_) { $mano-&gt;{AMZIUS} = shift }
        return $mano-&gt;{AMZIUS};
    }

    sub kolegos {
        my $mano = shift;
        if (@_) { @{ $mano-&gt;{KOLEGOS} } = @_ }
        return @{ $mano-&gt;{KOLEGOS} };
    }

    1;  # Tam kad 'use' arba 'require' nesikeiktų
</pre>
<p>Sukūrėme tris metodus, per kuriuos galima prieiti prie objekto duomenų:<br />
<code>vardas()</code>, <code>amzius()</code> ir <code>kolegos()</code>.<br />
Jie labai panašūs. Jei nustato reikšmę jeigu iškviečiami su argumentu,<br />
ir grąžina reikšmę jeigu iškviečiami be argumentų.</p>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2003-11-28/perlo-objektu-pradziamokslis-pirmoji-dalis.html/feed</wfw:commentRss>
		<slash:comments>5</slash:comments>
		</item>
		<item>
		<title>ActivePerl build 807</title>
		<link>http://petras.kudaras.lt/archyvas/2003-11-25/activeperl-build-807.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2003-11-25/activeperl-build-807.html#comments</comments>
		<pubDate>Tue, 25 Nov 2003 10:19:17 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=307</guid>
		<description><![CDATA[Pasirodė populiaros Perlo distribucijos Windows platformai ActivePerl versija. Ši versija yra kurta 5.8.1 Perlo versijos pagrindu ir turi nemažai atnaujintų modulių. Patys didžiausi atnaujinti moduliai yra XML::Parser ir Archive::Tar. Visi ActivePerl vartotojai turbūt turėtų atsinaujinti Perlo versijas į šią naująją.]]></description>
			<content:encoded><![CDATA[
<p>Pasirodė populiaros Perlo distribucijos Windows platformai <a<br />
href="http://www.activestate.com/Products/ActivePerl/">ActivePerl</a><br />
versija. Ši versija yra kurta 5.8.1 Perlo versijos pagrindu ir turi<br />
nemažai atnaujintų modulių. Patys didžiausi atnaujinti moduliai yra<br />
<code>XML::Parser</code> ir <code>Archive::Tar</code>. Visi ActivePerl<br />
vartotojai turbūt turėtų atsinaujinti Perlo versijas į šią naująją.</p>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2003-11-25/activeperl-build-807.html/feed</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Num2LTWord Perlu</title>
		<link>http://petras.kudaras.lt/archyvas/2003-11-12/num2ltword-perlu.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2003-11-12/num2ltword-perlu.html#comments</comments>
		<pubDate>Wed, 12 Nov 2003 16:59:05 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=303</guid>
		<description><![CDATA[Kai kam prireikė funkcijos, kuri verstų skaičius į lietuvių kalbą. Tad parašiau Perlinį moduliuką &#8211; gal bus dar kam nors naudingas. (Parsiųsti kaip normalų modulį galima iš čia) #!/usr/bin/perl -w package Num2LTWord; =head1 Num2LTWord -- skaičiai lietuviškai Modulis verčiantis (sveikus) skaičius į lietuvių kalbą =head2 NAUDOJIMAS use Num2LTWord; num2ltword(2003); =head2 FUNKCIJOS =head3 num2ltword ( skaičius [...]]]></description>
			<content:encoded><![CDATA[
<p><a href="http://mantas.lt">Kai kam</a> prireikė funkcijos, kuri<br />
verstų skaičius į lietuvių kalbą. Tad parašiau Perlinį moduliuką &#8211;<br />
gal bus dar kam nors naudingas. (Parsiųsti kaip normalų modulį galima iš<br />
<a<br />
href="http://moxliukas.esu.as/download/src/Perl/Num2LTWord-0.02.tar.gz">čia</a>)</p>
<pre>#!/usr/bin/perl -w
package Num2LTWord;

=head1 Num2LTWord -- skaičiai lietuviškai

Modulis verčiantis (sveikus) skaičius į lietuvių kalbą

=head2 NAUDOJIMAS

    use Num2LTWord;
    num2ltword(2003);

=head2 FUNKCIJOS

=head3 num2ltword ( skaičius )

Ši funkcija grąžina suformuotą lietuvišką skaičiaus pavadinimą.

=head2 RIKTAI IR APRIBOJIMAI

Funkcija C&lt;num2ltword&gt; supranta tik sveikus skaičius intervale
(- 1 000 000 000; 1 000 000 000)

=head2 AUTORIUS

Petras Kudaras aka moxliukas (moxliukas@delfi.lt)

=cut

use strict;
use warnings;
use Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw/num2ltword/;
our $VERSION = 0.02;

sub num2ltword {
    my $ka = shift;
    my $result = '';

    return "Nežinau kaip čia paverst" unless $ka eq int($ka);
    return "nulis" if $ka == 0;
    my $kam = abs $ka;
    $result .= "minus " if $ka &lt; 0;
    if($kam &gt;= 1_000_000_000) {
        return "Per didelis man čia skaičius";
    } else {
        $result .= __iki1e9($kam);
        $result =~ s/\s+$//;
        $result =~ s/\s+/ /g;
        return $result;
    }
}

sub __iki10 {
    my $ka = shift;
    my @skaitmenys =     ("", "vienas", "du",
                 "trys", "keturi", "penki",
                 "šeši", "septyni", "aštuoni",
                 "devyni", "dešimt");
    return $skaitmenys[$ka];
}

sub __iki20 {
    my $ka = shift;
    my @lika =     ("vienuolika", "dvylika", "trylika",
             "keturiolika", "penkiolika", "šešiolika",
             "septyniolika", "aštuoniolika", "devyniolika");
    if ($ka &lt;= 10) {
        return __iki10($ka);
    } else {
        return $lika[$ka % 10 - 1];
    }
}

sub __iki100 {
    my $ka = shift;
    my @desimt = ("", "", "dvi", "tris", "keturias", "penkias",
            "šešias", "septynias", "aštuonias", "devynias");
    if ($ka &lt; 20) {
        return __iki20($ka);
    } else {
        if($ka % 10 == 0) {
            return $desimt[int($ka/10)] . "dešimt";
        } else {
            return $desimt[int($ka/10)] . "dešimt " . __iki10($ka % 10);
        }
    }
}

sub __iki1000 {
    my $ka = shift;
    return __iki100($ka) if ($ka &lt; 100);
    if(int($ka / 100) == 1) {
        return __iki10(int($ka/100)) . " šimtas " . __iki100($ka % 100);
    } else {
        return __iki10(int($ka/100)) . " šimtai " . __iki100($ka % 100);
    }
}

sub __iki1e6 {
    my $ka = shift;
    return __iki1000($ka) if ($ka &lt; 1000);
    my $t = __iki1000(int($ka/1000));
    if ($t =~ /vienas$/) {
        return "$t tūkstantis " . __iki1000($ka % 1000);
    } elsif ($t =~ /(?:lika|šimtai|imt)\s*$/) {
        return "$t tūkstančių " . __iki1000($ka % 1000);
    } else {
                return "$t tūkstančiai " . __iki1000($ka % 1000);
    }
}

sub __iki1e9 {
    my $ka = shift;
        return __iki1e6($ka) if ($ka &lt; 1_000_000);
        my $t = __iki1e6(int($ka/1_000_000));
        if ($t =~ /vienas$/) {
                return "$t milijonas " . __iki1e6($ka % 1_000_000);
        } elsif ($t =~ /(?:šimtai|lika|imt)\s*$/) {
                return "$t milijonų " . __iki1e6($ka % 1_000_000);
        } else {
                return "$t milijonai " . __iki1e6($ka % 1_000_000);
        }
}
1;</pre>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2003-11-12/num2ltword-perlu.html/feed</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>IE įdomybės ir bluejackinimas</title>
		<link>http://petras.kudaras.lt/archyvas/2003-11-11/ie-idomybes-ir-bluejackinimas.html</link>
		<comments>http://petras.kudaras.lt/archyvas/2003-11-11/ie-idomybes-ir-bluejackinimas.html#comments</comments>
		<pubDate>Tue, 11 Nov 2003 17:13:52 +0000</pubDate>
		<dc:creator>Petras Kudaras</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false">http://petras.kudaras.lt/?p=302</guid>
		<description><![CDATA[Labai įdomus dalykas, kurį šiandien aptikau benaršydamas internetą buvo Internet Explorerio featuras, kurio pagalba galima išsikviesti Notepad. Tereikia parašyti kažką panašaus į: &#60;img src="view-source:file:///C:/WINNT/system32/shell32.dll"&#62; Ir jei jūsų Windows sėdi kataloge C:WINNT, greit pajausite kaip Notepad pradeda prakaituoti stengdamasis parodyti bylą shell32.dll. O juk galima įdėti ir kelias tokia nuorodas ir staiga swape gali atsirasti kokia [...]]]></description>
			<content:encoded><![CDATA[
<p>Labai įdomus dalykas, kurį šiandien aptikau benaršydamas internetą<br />
buvo Internet Explorerio <em>featuras</em>, kurio pagalba galima<br />
išsikviesti Notepad. Tereikia parašyti kažką panašaus į:</p>
<pre>&lt;img
src="view-source:file:///C:/WINNT/system32/shell32.dll"&gt;</pre>
<p>Ir jei jūsų Windows sėdi kataloge C:WINNT, greit pajausite kaip<br />
Notepad pradeda prakaituoti stengdamasis parodyti bylą<br />
<code>shell32.dll</code>. O juk galima įdėti ir kelias tokia nuorodas ir<br />
staiga <em>swape</em> gali atsirasti kokia pora gigabaitų duomenų. Įdomu<br />
dar ir tai, kad tokių dalykų nepagauna jokios <em>Popup</em> blokavimo<br />
programos. Tiesiog tai vienas iš Internet Explorer featurų. :-) (Plačiau<br />
&#8211; <a<br />
href="http://computerbytesman.com/security/notepadpopups.htm">http://computerbytesman.com/security/notepadpopups.htm</a>)</p>
<p>Šiandien pietaudamas nubluejackinau antrą žmogų. Vėlgi Nokijos<br />
turėtojas, tačiau šį kartą ne jaunutė mergina, o gana pagyvenęs<br />
kostiumuotas verslininkas. Labai buvo įdomi jo reakcija: viską jis<br />
priėmė labai natūraliai (na, aš jam tik pasiunčiau &#8222;you have been<br />
bluejacked&#8220;) ir ramiai. Parodė savo partneriui savo telefoną ir<br />
pasakė &#8222;tos reklamos visur jau lenda&#8220;. Matyt žmogus nulipęs<br />
nuo Internet Explorerio su šokinėjančiais langais.</p>
]]></content:encoded>
			<wfw:commentRss>http://petras.kudaras.lt/archyvas/2003-11-11/ie-idomybes-ir-bluejackinimas.html/feed</wfw:commentRss>
		<slash:comments>8</slash:comments>
		</item>
	</channel>
</rss>

