佛山二院設(shè)備科實習(xí)報告

1、真誠關(guān)愛 患者至上 醫(yī)術(shù)精湛 追求卓越第 第 檢查為升降高度識別定位板老化模糊，更換后可正常升降； 該顯示屏為陰極射線管發(fā)光的CRT顯示器，內(nèi)部存在高壓部分，在濕度較高的環(huán)境下會造成打火現(xiàn)象； 打開顯示屏后蓋，觀察陰極射線管高壓包，發(fā)現(xiàn)其周圍存在高壓打火后留下的灼痕，且周圍氧化嚴(yán)重； 先對高壓包高壓嘴進(jìn)行放電，清除高壓嘴和椎體玻璃的氧化物后，在高壓嘴附近加上一層絕緣硅膠，扣好高壓帽，重新開機(jī)測試，打火現(xiàn)象消失；觀察到介入室內(nèi)空氣濕度較高，建議科室多購入一臺空氣抽濕機(jī)，以降低室內(nèi)濕度。 CRT顯像管六：實習(xí)工作心得體會時間過的真快，轉(zhuǎn)眼間，在佛山二院設(shè)備科的實習(xí)就要接近尾聲了。在這三個月的時間里

2、，我感到自己收獲了許多，不僅有學(xué)習(xí)方面的，而且實踐能力上也得到了提高，真的是受益非淺。當(dāng)初，在集體動員會上，系領(lǐng)導(dǎo)向我們指出，在實習(xí)中可能會經(jīng)歷一些困難，思想上也會有一些變化，但我們大學(xué)生首先要端正實習(xí)態(tài)度，踏踏實實地做好每一天的工作，要和單位同事和睦相處、坦誠相見。那時，我就在心里暗暗下了決心：一定要好好珍惜這次實習(xí)機(jī)會，努力做好工作，認(rèn)真的向老師向前輩們學(xué)習(xí)。帶著一身稚氣，帶著青春的熱情，我踏上了人生第一個工作的征途，邁入了一片更為廣闊的舞臺。那天上午，我懷著激動與忐忑的心情，來到了佛山市第二人民醫(yī)院，設(shè)備科鹿奉華科長對我們的到來表示歡迎，并向我們簡單簡紹了醫(yī)院及科室的基本情況，囑咐我們要

3、好好實習(xí)，多向前輩們?nèi)〗?jīng)。另外，她還告訴我們，我們實習(xí)的時間不是很長，有些東西是不可能在這么短的時間里完全掌握的，她建議我在實習(xí)期間多看、多想、多動手、多總結(jié)，才能盡快的了解研究室運作的體制，了解其存在的意義。我曾經(jīng)構(gòu)思過實習(xí)時的悠閑與輕松。殊不知，現(xiàn)實給我敲響了警鐘，我發(fā)現(xiàn)書本上所學(xué)的知識就像大海中的一滴水，與現(xiàn)實有很大的差距。維修室事多，電話也多，經(jīng)常是這邊還沒有維修結(jié)束，那邊就又來電報修，這使得維修室的工作節(jié)奏非?？?，絲毫沒有機(jī)關(guān)事業(yè)單位“一張報紙一杯茶”的混日子心態(tài)。此時，在鹿科長及各位指導(dǎo)老師的諄諄教導(dǎo)下，我明白了在任何時候，我們對待工作都要高標(biāo)準(zhǔn)、嚴(yán)要求，做到精益求精。我很慶幸能與

4、科室的老師相處這么長時間，他們非常重視實踐工作，處處給予我指導(dǎo)和關(guān)心。期間我經(jīng)歷了許多充實的工作，雖然很多看起來是小事，微不足道，但從中可以學(xué)到的東西不是三言兩語可以說得清的。在工作中遇到一些新情況時，幾位老師總是主動向我們說明，使我很快就融入了這個新環(huán)境。三個月的實習(xí)時間里，我越來越覺得科室的位老師對我的信任。設(shè)備科的有些文件內(nèi)容都是嚴(yán)格保密的，但老師們非常相信我們，給我們看了很多材料，從中吸收營養(yǎng)。在要做出某項決策時，老師也讓我們旁聽，我覺得他們的談話氛圍很真誠，大家的交流中毫無芥蒂，給了我很多觸動。這樣的信任越發(fā)地增強(qiáng)了我的紀(jì)律意識和責(zé)任感，感覺老師們是真的把我們當(dāng)作他們的一員了。最后，

5、衷心感謝鹿科長能給我們這個實習(xí)的機(jī)會，讓我們在這里完成了一次蛻變，破繭成蝶，成功地向社會邁出了堅實的第一步。再次感謝鹿科長，感謝鄭工，感謝維修組及倉庫的各位老師，謝謝你們！ 報告人： 2016年1月30日附錄資料：不需要的可以自行刪除 perl函數(shù)應(yīng)用一、進(jìn)程處理函數(shù)1、進(jìn)程啟動函數(shù)函數(shù)名eval調(diào)用語法eval(string)解說將string看作Perl語句執(zhí)行。正確執(zhí)行后，系統(tǒng)變量$為空串，如果有錯誤，$中為錯誤信息。例子$print = print (hello,worldn);eval ($print);結(jié)果輸出hello, world函數(shù)名system調(diào)用語法system(list

6、)解說list中第一個元素為程序名，其余為參數(shù)。system啟動一個進(jìn)程運行程序并等待其結(jié)束，程序結(jié)束后錯誤代碼左移八位成為返回值。例子proglist = (echo, hello,world!);system(proglist);結(jié)果輸出hello, world!函數(shù)名fork調(diào)用語法procid = fork();解說創(chuàng)建程序的兩個拷貝-父進(jìn)程和子進(jìn)程-同時運行。子進(jìn)程返回零，父進(jìn)程返回非零值，此值為子程序的進(jìn)程ID號。例子$retval = fork();if ($retval = 0) # this is the child process exit; # this terminat

7、es the child process else # this is the parent process結(jié)果輸出無函數(shù)名pipe調(diào)用語法pipe (infile, outfile);解說與fork合用，給父進(jìn)程和子進(jìn)程提供通信的方式。送到outfile文件變量的信息可以通過infile文件變量讀取。步驟：1、調(diào)用pipe2、用fork將程序分成父進(jìn)程和子進(jìn)程3、一個進(jìn)程關(guān)掉infile，另一個關(guān)掉outfile例子pipe (INPUT, OUTPUT);$retval = fork();if ($retval != 0) # this is the parent process clos

8、e (INPUT); print (Enter a line of input:n); $line = ; print OUTPUT ($line); else # this is the child process close (OUTPUT); $line = ; print ($line); exit (0);結(jié)果輸出$programEnter a line of input:Here is a test lineHere is a test line$函數(shù)名exec調(diào)用語法exec (list);解說與system類似，區(qū)別是啟動新進(jìn)程前結(jié)束當(dāng)前程序。常與fork合用，當(dāng)fork分成兩

9、個進(jìn)程后，子進(jìn)程用exec啟動另一個程序。例子 結(jié)果輸出函數(shù)名syscall調(diào)用語法syscall (list);解說調(diào)用系統(tǒng)函數(shù)，list第一個元素是系統(tǒng)調(diào)用名，其余為參數(shù)。如果參數(shù)是數(shù)字，就轉(zhuǎn)化成C的整型數(shù)(type int)。否則傳遞字符串的指針。詳見UNIX的幫助或Perl文檔。使用syscall必須包含文件syscall.pl，即：require (syscall.ph); 例子結(jié)果輸出2、進(jìn)程終止函數(shù)函數(shù)名Die調(diào)用語法die (message);解說終止程序并向STDERR輸出錯誤信息。message可以為字符串或列表。如果最后一個參數(shù)不包含換行符，則程序文件名和行號也被輸出。例

10、子die (Cannot open input file);結(jié)果輸出Cannot open input file at myprog line 6.函數(shù)名warn調(diào)用語法warn (message);解說與die類似，區(qū)別是不終止程序。例子warn(Danger! Danger!n);結(jié)果輸出Danger! Danger!函數(shù)名exit調(diào)用語法exit (retcode);解說終止程序并指定返回值。例子exit(2);結(jié)果輸出無函數(shù)名kill調(diào)用語法kill (signal, proclist);解說給一組進(jìn)程發(fā)送信號。signal是發(fā)送的數(shù)字信號，9為殺掉進(jìn)程。proclist是進(jìn)程ID列表

11、。詳見kill的UNIX幫助。例子結(jié)果輸出3、進(jìn)程控制函數(shù)函數(shù)名sleep調(diào)用語法sleep (time);解說將程序暫停一段時間。time是停止的秒數(shù)。返回值為實際停止的秒數(shù)。例子sleep (5);結(jié)果輸出無函數(shù)名wait調(diào)用語法procid = wait();解說暫停程序執(zhí)行，等待子進(jìn)程終止。不需要參數(shù)，返回值為子進(jìn)程ID，如果沒有子進(jìn)程，返回-1。例子結(jié)果輸出函數(shù)名waitpid調(diào)用語法waitpid (procid, waitflag);解說暫停程序執(zhí)行，等待特定的子進(jìn)程終止。procid為等待的進(jìn)程ID例子$procid = fork();if ($procid = 0) # th

12、is is the child process print (this line is printed firstn); exit(0); else # this is the parent process waitpid ($procid, 0); print (this line is printed lastn);結(jié)果輸出$ programthis line is printed firstthis line is printed last$4、其它控制函數(shù)函數(shù)名caller調(diào)用語法subinfo = caller();解說返回調(diào)用者的程序名和行號，用于Perl Debugger。返回值

13、為三元素的列表：1、調(diào)用處的包名2、調(diào)用者文件名3、調(diào)用處的行號例子結(jié)果輸出函數(shù)名chroot調(diào)用語法chroot (dir);解說改變程序的根目錄，詳見chroot幫助。例子結(jié)果輸出函數(shù)名local調(diào)用語法local($variable);解說在語句塊(由大括號包圍的語句集合)中定義局域變量，僅在此語句塊中起作用，對其的改變不對塊外同名變量造成影響。千萬不要在循環(huán)中使用，否則每次循環(huán)都定義一個新的局域變量！例子結(jié)果輸出函數(shù)名times調(diào)用語法timelist = times解說返回該程序及所有子進(jìn)程消耗的工作時間。返回值為四個浮點數(shù)的列表：1、程序耗用的用戶時間2、程序耗用的系統(tǒng)時間3、子進(jìn)

14、程耗用的用戶時間4、子進(jìn)程耗用的系統(tǒng)時間例子結(jié)果輸出二、數(shù)學(xué)函數(shù)函數(shù)名sin調(diào)用語法retval = sin (value);解說參數(shù)為弧度值。函數(shù)名cos調(diào)用語法retval = cos (value);解說參數(shù)為弧度值。函數(shù)名atan2調(diào)用語法retval = atan2 (value1, value2);解說運算并返回value1除以value2結(jié)果的arctan值，單位為弧度，范圍在-PIPI。應(yīng)用例：角度轉(zhuǎn)化成弧度子程序。sub degrees_to_radians local ($degrees) = _; local ($radians);11: $radians = atan2

15、(1,1) * $degrees / 45;函數(shù)名sqrt調(diào)用語法retval = sqrt (value);解說平方根函數(shù)。value為非負(fù)數(shù)。函數(shù)名exp調(diào)用語法retval = exp (value);解說返回e的value次方。函數(shù)名log調(diào)用語法retval = log (value);解說以e為底的自然對數(shù)。函數(shù)名abs調(diào)用語法retval = abs (value);解說絕對值函數(shù)。(Perl 4中沒有)函數(shù)名rand調(diào)用語法retval = rand (num);解說隨機(jī)數(shù)函數(shù)，返回0和整數(shù)num之間的一個浮點數(shù)。函數(shù)名srand調(diào)用語法srand (value);解說初始化隨

16、機(jī)數(shù)生成器。保證每次調(diào)用rand真正隨機(jī)。三、字符串處理函數(shù)函數(shù)名index調(diào)用語法position = index (string, substring, position);解說返回子串substring在字符串string中的位置，如果不存在則返回-1。參數(shù)position是可選項，表示匹配之前跳過的字符數(shù)，或者說從該位置開始匹配。函數(shù)名rindex調(diào)用語法position = rindex (string, substring, position);解說與index類似，區(qū)別是從右端匹配。函數(shù)名length調(diào)用語法num = length (string);解說返回字符串長度，或者說含

17、有字符的數(shù)目。函數(shù)名pos調(diào)用語法offset = pos(string);解說返回最后一次模式匹配的位置。函數(shù)名substr調(diào)用語法substr (expr, skipchars, length)解說抽取字符串（或表達(dá)式生成的字符串）expr中的子串，跳過skipchars個字符，或者說從位置skipchars開始抽取子串（第一個字符位置為0），子串長度為length，此參數(shù)可忽略，意味著取剩下的全部字符。當(dāng)此函數(shù)出現(xiàn)在等式左邊時，expr必須為變量或數(shù)組元素，此時其中部分子串被等式右邊的值替換。函數(shù)名study調(diào)用語法study (scalar);解說用一種內(nèi)部格式提高變量的訪問速度，同一

18、時刻只對一個變量起作用。函數(shù)名lcuc調(diào)用語法retval = lc(string);retval = uc(string);解說將字符串全部轉(zhuǎn)換成小/大寫字母。函數(shù)名lcfirstucfirst調(diào)用語法retval = lcfirst(string);retval = ucfirst(string);解說將第一個字母轉(zhuǎn)換成小/大寫。函數(shù)名quotameta調(diào)用語法newstring = quotemeta(oldstring);解說將非單詞的字母前面加上反斜線()。語句 ： $string = quotemeta($string);等效于：$string = s/(W)/$1/g;常用于模式

19、匹配操作中，確保字符串中沒有字符被看作匹配操作符。函數(shù)名join調(diào)用語法join (joinstr, list);解說把字符串列表(數(shù)組)組合成一個長的字符串，在每兩個列表元素間插入串joinstr。函數(shù)名sprintf調(diào)用語法sprintf (string, fields);解說與printf類似，區(qū)別是結(jié)果不輸出到文件，而作為返回值賦給變量。例子$num = 26;$outstr = sprintf(%d = %x hexadecimal or %o octaln,$num, $num, $num);print ($outstr);結(jié)果輸出26 = 1a hexadecimal or 32

20、 octal四、標(biāo)量轉(zhuǎn)換函數(shù)函數(shù)名chop調(diào)用語法$lastchar = chop (var);解說var可為變量或數(shù)組，當(dāng)var為變量時，最后一個字符被刪除并賦給$lastchar，當(dāng)var為數(shù)組/列表時，所有元素的最后一個字符被刪除，最后一個元素的最后一個字母賦給$lastchar。函數(shù)名chomp調(diào)用語法result = chomp(var);解說檢查字符串或字符串列表中元素的最后一個字符是否為由系統(tǒng)變量$/定義的行分隔符，如果是就刪除。返回值為實際刪除的字符個數(shù)。函數(shù)名crypt調(diào)用語法result = crypt (original, salt);解說用DES算法加密字符串，orig

21、inal是將要加密的字符串，salt是兩個字符的字符串，定義如何改變DES算法，以使更難解碼。返回值為加密后的串。函數(shù)名hex調(diào)用語法decnum = hex (hexnum);解說將十六進(jìn)制數(shù)(字符串形式)轉(zhuǎn)化為十進(jìn)制數(shù)。函數(shù)名int調(diào)用語法intnum = int (floatnum);解說將浮點數(shù)舍去小數(shù)部分轉(zhuǎn)化為整型數(shù)。函數(shù)名oct調(diào)用語法decnum = oct (octnum);解說將八進(jìn)制數(shù)(字符串形式)或十六進(jìn)制數(shù)(0 x.形式)轉(zhuǎn)化為十進(jìn)制數(shù)。函數(shù)名ord調(diào)用語法asciival = ord (char);解說返回單個字符的ASCII值，與PASCAL中同名函數(shù)類似。函數(shù)名c

22、hr調(diào)用語法$char = chr (asciival);解說返回ASCII值的相應(yīng)字符，與PASCAL中同名函數(shù)類似。函數(shù)名pack調(diào)用語法formatstr = pack(packformat, list);解說把一個列表或數(shù)組以在實際機(jī)器存貯格式或C等編程語言使用的格式轉(zhuǎn)化（包裝）到一個簡單變量中。參數(shù)packformat包含一個或多個格式字符，列表中每個元素對應(yīng)一個，各格式字符間可用空格或tab隔開，因為pack忽略空格。除了格式a、A和外，重復(fù)使用一種格式多次可在其后加個整數(shù)，如： $twoints = pack (i2, 103, 241);把同一格式應(yīng)用于所有的元素則加個*號，如

23、： $manyints = pack (i*, 14, 26, 11, 83);對于a和A而言，其后的整數(shù)表示要創(chuàng)建的字符串長度，重復(fù)方法如下： $strings = pack (a6 x 2, test1, test2);格式的情況比較特殊，其后必須加個整數(shù)，該數(shù)表示字符串必須的長度，如果長度不夠，則用空字符(null)補足，如： $output = pack (a 6 a, test, test2);pack函數(shù)最常見的用途是創(chuàng)建可與C程序交互的數(shù)據(jù)，例如C語言中字符串均以空字符(null)結(jié)尾，創(chuàng)建這樣的數(shù)據(jù)可以這樣做： $Cstring = pack (ax, $mystring);下

24、表是一些格式字符與C中數(shù)據(jù)類型的等價關(guān)系：字符 等價C數(shù)據(jù)類型CcharddoubleffloatiintIunsigned int (or unsigned)llongLunsigned longsshortSunsigned short完整的格式字符見下表。 格式字符 描述a用空字符(null)補足的字符串A用空格補足的字符串b位串，低位在前B位串，高位在前c帶符號字符（通常-128127）C無符號字符（通常8位）d雙精度浮點數(shù)f單精度浮點數(shù)h十六進(jìn)制數(shù)串，低位在前H十六進(jìn)制數(shù)串，高位在前i帶符號整數(shù)I無符號整數(shù)l帶符號長整數(shù)L無符號長整數(shù)n網(wǎng)絡(luò)序短整數(shù)N網(wǎng)絡(luò)序長整數(shù)p字符串指針s帶符號短

25、整數(shù)S無符號短整數(shù)u轉(zhuǎn)化成uuencode格式vVAX序短整數(shù)VVAX序長整數(shù)x一個空字節(jié)X回退一個字節(jié)以空字節(jié)(null)填充函數(shù)名unpack調(diào)用語法list = unpack (packformat, formatstr);解說unpack與pack功能相反，將以機(jī)器格式存貯的值轉(zhuǎn)化成Perl中值的列表。其格式字符與pack基本相同（即上表），不同的有：A格式將機(jī)器格式字符串轉(zhuǎn)化為Perl字符串并去掉尾部所有空格或空字符；x為跳過一個字節(jié)；為跳過一些字節(jié)到指定的位置，如4為跳過4個字節(jié)。下面看一個和X合同的例子： $longrightint = unpack (* X4 L, $pack

26、string);此語句將最后四個字節(jié)看作無符號長整數(shù)進(jìn)行轉(zhuǎn)化。下面看一個對uuencode文件解碼的例子：1 : #!/usr/local/bin/perl2 : 3 : open (CODEDFILE, /u/janedoe/codefile) |4 : die (Cant open input file);5 : open (OUTFILE, outfile) |6 : die (Cant open output file);7 : while ($line = ) 8 : $decoded = unpack(u, $line);9 : print OUTFILE ($decoded);1

27、0: 11: close (OUTFILE);12: close (CODEDFILE); 當(dāng)將pack和unpack用于uuencode時，要記住，雖然它們與UNIX中的uuencode、uudecode工具算法相同，但并不提供首行和末行，如果想用uudecode對由pack的輸出創(chuàng)建的文件進(jìn)行解碼，必須也把首行和末行輸出（詳見UNIX中uuencode幫助）。函數(shù)名vec調(diào)用語法retval = vec (vector, index, bits);解說顧名思義，vec即矢量(vector)函數(shù)，它把簡單變量vector的值看作多塊(維)數(shù)據(jù)，每塊含一定數(shù)目的位，合起來即一個矢量數(shù)據(jù)。每次的

28、調(diào)用訪問其中一塊數(shù)據(jù)，可以讀取，也可以寫入。參數(shù)index就象數(shù)組下標(biāo)一樣，提出訪問哪一塊，0為第一塊，依次類推，要注意的是訪問次序是從右到左的，即第一塊在最右邊。參數(shù)bits指定每塊中的位數(shù)，可以為1,2,4,8,16或32。例子1 : #!/usr/local/bin/perl2 : 3 : $vector = pack (B*, 11010011);4 : $val1 = vec ($vector, 0, 4);5 : $val2 = vec ($vector, 1, 4);6 : print (high-to-low order values: $val1 and $val2n);7

29、: $vector = pack (b*, 11010011);8 : $val1 = vec ($vector, 0, 4);9 : $val2 = vec ($vector, 1, 4);10: print (low-to-high order values: $val1 and $val2n); 結(jié)果high-to-low order values: 3 and 13low-to-high order values: 11 and 12函數(shù)名defined調(diào)用語法retval = defined (expr);解說判斷一個變量、數(shù)組或數(shù)組的一個元素是否已經(jīng)被賦值。expr為變量名、數(shù)組名

30、或一個數(shù)組元素。如果已定義，返回真，否則返回假。函數(shù)名undef調(diào)用語法retval = undef (expr);解說取消變量、數(shù)組或數(shù)組元素甚至子程序的定義，回收其空間。返回值始終為未定義值，此值與空串等效。五、數(shù)組和列表函數(shù)函數(shù)名grep調(diào)用語法foundlist = grep (pattern, searchlist);解說與同名的UNIX查找工具類似，grep函數(shù)在列表中抽取與指定模式匹配的元素，參數(shù)pattern為欲查找的模式，返回值是匹配元素的列表。例子list = (This, is, a, test);foundlist = grep(/tT/, list);結(jié)果foundl

31、ist = (This, test);函數(shù)名splice調(diào)用語法retval = splice (array, slipelements, length, newlist);解說拼接函數(shù)可以向列表（數(shù)組）中間插入元素、刪除子列表或替換子列表。參數(shù)skipelements是拼接前跳過的元素數(shù)目，length是被替換的元素數(shù)，newlist是將要拼接進(jìn)來的列表。當(dāng)newlist的長度大于length時，后面的元素自動后移，反之則向前縮進(jìn)。因此，當(dāng)length=0時，就相當(dāng)于向列表中插入元素，而形如語句splice (array, -1, 0, Hello);則向數(shù)組末尾添加元素。而當(dāng)newlist

32、為空時就相當(dāng)于刪除子列表，這時，如果length為空，就從第skipelements個元素后全部刪除，而刪除最后一個元素則為：splice (array, -1);這種情況下，返回值為被刪去的元素列表。函數(shù)名shift調(diào)用語法element = shift (arrayvar);解說刪去數(shù)組第一個元素，剩下元素前移，返回被刪去的元素。不加參數(shù)時，缺省地對ARGV進(jìn)行操作。函數(shù)名unshift調(diào)用語法count = unshift (arrayver, elements);解說作用與shift相反，在數(shù)組arrayvar開頭增加一個或多個元素，返回值為結(jié)果(列表)的長度。等價于splice (a

33、rray, 0, 0, elements);函數(shù)名push調(diào)用語法push (arrayvar, elements);解說在數(shù)組末尾增加一個或多個元素。等價于slice (array, array, 0, elements);函數(shù)名pop調(diào)用語法element = pop (arrayvar);解說與push作用相反，刪去列表最后一個元素，并將其作為返回值，當(dāng)列表已空，則返回“未定義值”(即空串)。函數(shù)名split調(diào)用語法list = split (pattern, string, maxlength);解說將字符串分割成一組元素的列表。每匹配一次pattern，就開始一個新元素，但pattern本身不包含在元素中。maxlength是可選項，當(dāng)指定它時，達(dá)到該長度就不再分割。函數(shù)名sort調(diào)用語法sorted =