[問題] 這次是關於檔案開啟

看板Perl作者itemark (妳只知道我會做家事)時間19年前 (2006/01/08 14:26)推噓0(0推 0噓 3→)

留言3則, 2人參與討論串1/1

這次是要處理$dir下的檔案但結果要放在其它目錄（令作$dir1）下然而我要在打開$dir後的while迴圈中執行開啟檔案時它卻去找$dir1下的檔案這樣變成我得先將$dir下的檔案cp到$dir1下實在很奇怪下面是我寫的程式碼 error message 說是open(file, $file)那行開不了我猜它真的是跑去$dir1找檔案了OA #!/usr/bin/perl $dir="/mnt/data/tcc_300edu_8_8/nctu/f_newg1"; opendir(DIR,$dir) or die "Can't open"; print "#\!MLF$\!#\n"; while(defined ($file=readdir DIR)) { next if $file =~ /^\.\.?$/; open(file, $file) or die "Can't open"; print "\"\*/$file\"\n"; print "sil\n"; $i=0; while(<file>) { $i++; if(($i%4)==3) { foreach $word (split) { if($word !~ m/，/ && $word !~ m/。/ && $word !~ m/《/ & $word !~ m/》/ && $word !~ m/「/ && $word !~ m/」/ && $word !~ m/、/ && $word !~ m/：/ && $word !~ m/！/) { print "$word\n"; } } } } print "sil\n"; print "\.\n"; close(file); } closedir(DIR) -- 最近最好節制些，沒事別買一些既浪費錢又佔空間的東西，最近跟朋友聚餐吃飯的機會不少，找他們到家裡作客倒是不錯的選擇。趁這個機會，魚兒可以好好布置與整理一下自己的房子，但如果很想買一些令自己左右為難的東西，建議到下周再做決定吧。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.117.169.200