根据日期选取目录中的文件问题

vangogh

大家好！
我有一个目录，里面的文件都是以filename.yyyymmdd的形式命名，如file.20030122
我想把这个目录中的每个月的文件合并成一个文件，比如所有可以ls *200301*的一月份的文件合并成month_200301
请问用perl语言该如何做？
thanks

hileader

应该用数据库去处理这些事情，费脑子，看到那些正则表达式就眼晕，哈

apile

cat `ls |grep 200301` >; month_200301
用shell script就可以了...用perl反而複雜..

apile

如果上面那個command 不能Work..換下面的..
cat `find . -name '*200301' -print` >;month_200301

我手邊沒有linux/unix環境..沒辦法測試...

vangogh

谢谢各位
但问题是我要自动执行，怎样要让程序知道该目录下的文件那个是当月的
就是说怎样让程序发现该月是2月，从而决定去找含有200302的文件名的文件并把他们合并？

apile

用perl的話....可以放在crontab中每個月執行...
利用
@date = localtime(time);
取得目前的年份與月份..($year,$month)...
然後將這兩個數字組合成新的string($year_month)..

然後open目前的directory...取得directory handle..
每次讀取這個handle...得到這個目錄下的檔案名稱....
然後利用=~m/$year_month/;  匹配目前的檔名是否符合條件..
如果符合...
open 一個filename叫$year_month的檔案（或者你可以自己設定）
然後..一符合馬上將這個符合的檔案寫入新開的檔案中..直到目錄全部
讀完..
大概就是上面這樣...你慢慢照著做..真的不難...

程序怎麼寫..你自己慢慢查吧..
不然你永遠學不會perl....
====================
用shell script的話...也很簡單..
利用 date、cut、取得目前的年份與月份..
然後利用find或ls取得目前目錄下的所有檔名..
利用grep或fgrep就可以filter出你要的檔案..
或者利用awk..也是一樣...

vangogh

thks!
我碰到一个问题，怎样打开目录？

我用下面的方法打开目录输出的东西有乱码，而且还重复

1. 
   
2. #!/usr/bin/perl
   
3. open (DIR,"/var/mlogs")|| die "can not open it:$!";
   
4. @contents=<DIR>;;
   
5. close(DIR);
   
6. foreach $ddd(@contents){
   
7.         print "$ddd\n";
   
8. }
   

复制代码

vangogh

原来要用opendir
读目录用readdir
太笨了，呵呵

1. #!/usr/bin/perl
   
2. opendir (DIR,"/etc/")|| die "can not open it:$!";
   
3. @contents=readdir(DIR);
   
4. close(DIR);
   
5. foreach $ddd(@contents){
   
6.         print "$ddd\n";
   
7. }

复制代码

谢谢大家，有问题我再问

流浪者

最好把当前目录改为你所要打开的目录，否则在打开文件时会提示找不到文件。
使用的命令为：chdir($path);