From bbs@floyd.upol.czThu Feb 8 16:30:15 1996 Date: Thu, 8 Feb 1996 16:31:11 +0100 From: BBS Floyd To: hubicka@limax.paru.cas.cz Subject: #7-skolicka-Perl,Seznam FN.I. (fwd) *** Forwarded file follows *** Posted By: doom (Petr Snajdr) on 'Linux' Title: #7-skolicka-Perl,Seznam FN.I. Date: Thu Feb 8 13:32:27 1996 Funkce Perlu dil I. accept(NEWSOCKET,GENERICSOKET) ============================= Vola systemovou sluzbu accept.ti kdo znaji BSD Socket jiz asi tusi o cem je rec.GENERICSocket musi byt jiz predtim zavpolan a tedy i otevren...jinak dojde k chybe ! Jedna se tedy o prikaz k sitove komunikaci,kde aplikace s accept vystupuje jako server.Tedy v Perlu muzete napsat i SERVER ! Pr. unless ($peer = accept(NS,S)) { die "Can't accept a connection: $!\n); alarm ===== alarm(EXPR) Dovolu zaslat SIGALARM za EXPR Sec. atan2 ===== atan2(x,y) Pr. $pi= atan2(1,1)*4 a mate PI ! bind ==== bind(SOCKET,NAME) Dalsi sitova fn.Tato Fn.Priradi adresu9jmeno) otevrenemu socketu,ktery ,musi byt pomoci socket() otevren. Pr:bind(S,$sockaddr); binmode ======= Tato fn.rika,ze soubor se bude cist v binarnima a ne textovem modu. caller ====== caller(EXPR) Vraci info o subruitine volajici stack. chdir ===== chdir (EXPR) vytvari adresar. chmod ===== chmod (LIST) meni pristupova prava seznamu souboru. Pr.$cnt = chmod 0755, 'foo, 'bar'; chop ==== chop(LIST) chop(VARIABLE) Opbdoba Ceckovsekeho /n chown ===== chown(LIST) obdoba unixoveho chown. chroot ====== chroot(FILENAME) provadi chroot systemove volani. Vytvari novy root adresar. Pr. chroot +(getpwnam('ftp'))[7}|| die "Can't do anonymous ftp:$!\n"; Tuto fn.muze pouzit jen root ! close ===== close(FILEHANDLE) uzavre soubor,pipe,socket... closedir ======== closedir(DIRHANDLE) Uzavira adresar otevreny pres opendir connect ======= connect(SOCKET,NAME) Fn/.pro navazanii spojeni s jinym programem po siti. Vice.Treba Programovani siti OS UNIX. Pr. connect(S,$destaddr)) || die "Can't connect to $hostname: $!"; cos === cos (EXPR) Cosinus crypt ==== crypt(PLAINTEXT,SALT); Fn.Pro sifrovani. Pr.pouziti: if (crypt($guess,$pass)eq $pass){ #guess is corecct } die === die(LIST) Vypisuje na STDERR eof === eof(FILEHANDLE) indiukace konce souboru. exec ==== exec(LIST) Sposti jine programy z perl scriptu exit ==== exit(EXPR) ukonceni a vraci EXPR. getc ==== getc(FILEHANDLE) vraci znak z FILEHANDLE getgrgid ======== getgrgid(GID) Cislo skupiny. gethostbyaddr ============= gethostbyaddr(ADDR,ADDRTYPE); Prevadi sitove adresy Petr Snajdr (DOOM) -- omlouvam za vsechny hrupky v co jsem udelal a jeste udelam ;-)))) DOOM ( alias Petr Snajdr) nebo naopak ?