这次是要处理$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