отмыва денег с кредиток отмыва денег с кредиток - Xakep Online

62 003E31337/ÂÇËÎÌ> ÈÞÍÜ ‘ Y2K+1Êîäèíãíà TCLÀêàêèé Äîêó÷àåâ aka Forb (root@forbik.com) http://k-r.com/info/common/photo.htmlÏîêàæåì ÿçûêÂîîáùå, ñòàëî ìîäíî âûáèðàòü íèêè, ñîñòîÿùèåèç òðåõ áóêâ àíãëèöêèõ. Òèïà GoN, XyZ,zLO, XEP, CuM è ïðî÷óþ øíÿãó. È âîò äàííûå“èçáèðàòåëè” ÷àñòî çàíèìàþòñÿ êîäèíãîì, ñãîðäîñòüþ çàÿâëÿÿ: “Âû ÷¸, ÿ ëè÷íà íà äåëüôÿõôëóäåð è ïîðò ñêàíåð íàïèñàë! Ýòî ðàçâåíå êðóòî?”. Î, äà, ïåðâîå âðåìÿ ìîæíî êîäèòüõîòü íà ÿçûêå Word, íî ñî âðåìåíåì íàäî ïîäêà÷èâàòüñîáñòâåííûå çíàíèÿ, ÷òîáû ìîæíîáûëî ðàñêèíóòü ïàëüöû áîëåå ïîíòîâûìè âåùèöàìè.Êàê ðàç äëÿ ëþäåé ñ òðåìÿ áóêâàìè ÿïîäîãíàë ìàòåðèàë î òðåõáóêâåííîì TCL-êîäèíãå=).Ñöåíàðèè TCL (“Òèêë”) ïðîñòû â îáðàùåíèè èìîãóò çàìåíèòü ïðàêòè÷åñêè ëþáîé ÿçûê ïðîãðàììèðîâàíèÿ.Ãèáêîñòü â óïðàâëåíèè ïåðåìåííûìèè ôóíêöèÿìè ïîçâîëÿåò áûñòðî äîáèòüñÿíóæíîãî ðåçóëüòàòà. Ïàêåò TCL èíòåãðèðîâàíâ Linux, à òàêæå ñóùåñòâóþò ýìóëÿòîðûTCL ïîä Windows9x/NT. Äîñòàòî÷íî øèðîêîïðèìåíÿåòñÿ â Eggdrop-óïðàâëåíèè. Òàê ÷òî ñòèêëîì òû ñìîæåøü ïèñàòü ýêñêëþçèâíûåñêðèïòû äëÿ áîòîâ, íå îñòàâëÿÿ ìåñòà ñòàíäàðòíûìáîëâàíêàì !seen ;).Åñëè ïðîãðàììèòü íà TCL èç-ïîä *nix`a, òîìîæíî ïðîñòî ñìåíèòü ñâîé Shell íà “tclsh”,êîòîðûé ïîíèìàåò ëèøü TCL-ñèíòàêñèñ, ëèáî(ýòî êàñàåòñÿ è ïîëüçîâàòåëåé Âèíäîóçà) íàïèñàòüñêðèïò îòäåëüíûì ôàéëîì è çàãðóçèòüåãî êîìàíäîé “tcl source path\to\filename”.Ïðèíöèï êîäà: ïåðåìåííûåÊàê âîäèòñÿ, íà÷íó îïèñàëîâî ïðèíöèïà ïðîãðàììèðîâàíèÿíà TCL ñ ïåðåìåííûõ. Ïåðåìåííàÿçàäàåòñÿ êëþ÷åâûì ñëîâîì “set”, çàêîòîðûì ñëåäóþò åå èìÿ è çíà÷åíèå. Ïðè÷åì,çíà÷åíèå ìîæåò áûòü çàäàíî ïðåæäåâðåìåííûìèâû÷èñëåíèÿìè (ïðèÿòíî, ÷òî áûâàåòíå÷òî ïðåæäåâðåìåííîå, êðîìå ýÿêóëÿöèè =).Ðàññìîòðèì ïðèìåð:set vasya lamer;set xakep 31337;set super “super puper string”;set stat [expr 3000*2/3];Êàê âèäíî èç ïðèìåðîâ, äëÿ tcl-êîäà íå íóæíîîãîâàðèâàòü òèï ïåðåìåííîé, à ïëàâàþùååçíà÷åíèå ìîæíî ïðèêðóòèòü, ïðîïèñàâ åãî âáëîêå, îãðàíè÷åííîì êâàäðàòíûìè ñêîáêàìè[]. Çíà÷åíèÿ string`îâ äîëæíû çàëèâàòüñÿ âäâîéíûå êàâû÷êè. Âñå ñòðîêè îêàí÷èâàþòñÿòî÷êîé ñ çàïÿòîé, èñêëþ÷åíèåñîñòàâëÿþòêîììåíòàðèè, êîòîðûåñòàðòóþò ñ ñèìâîëà“#”.Îáðàùåíèå ê ïåðåìåíêàìîñóùåñòâëÿåòñÿ ñïîìîùüþ çíà÷êà “$”. È÷òî æå áóäåò?set xakep [expr$xakep/3];Äëÿ âûâîäà èíôîðìàöèè(à òàêæå ïåðåìåííûõ)íà ýêðàí èñïîëüçóåòñÿîïåðàòîð puts.puts $xakep;puts “This is very smartstring”;puts [expr 2000*10];Ñèìâîëüíûå TCL ñòîèò êàê ñëåäóåòïîïàðèòüñÿ íàä ñèìâîëüíûìèïåðåìåííûìè.Äëÿ íèõ ñîçäàíîìíîãî îïåðàòîðîâ èôóíêöèé. Ðàññìîòðèìñàìûå ïîëåçíûå èçíèõ:append: äîáàâëÿåòñòðîêó ê óæå ñóùåñòâóþùåéñòðîêå. (Çâåçäî÷êàê çâåçäî÷êå, êîñòî÷êèâ ðÿä... :)set lamer “VasyaPupkin”;