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

[itemark (妳只知道我會做家事)]

這次是要處理$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
→ wutanliao:不太清楚你的問題耶，請問你這 script 是在 dir1 下執行
→ wutanliao:嗎？
→ itemark:是的 我是在$dir1下執行的