perl心得(三) 小成

2021-05-23 12:17:42 字數 991 閱讀 4782

經過一天的突擊和不斷的摸索,感謝

cctv

、mtv

,終於找到了乙個俺很需要的例子,這就應了那句話了,

「例子才是王道啊」。

一下是小弟寫的乙個檔案批處理的指令碼,通過兩天的時間(我倍感慚愧,兩天就寫了這麼點東西)。簡單說下吧,其目的主要是為了:

需要處理的資料夾

->

開啟此資料夾

->

讀取子資料夾名稱(例如:東1、東

2、東3、西

1、西2)

->

將首字母相同的資料夾

copy

到以該首字母開頭的資料夾中(例如:將「東

1、東2、東

3」copy到「

東」的資料夾中)另外要在資料庫中做下處理,這裡不就貼出來了。**如下:

#!/usr/bin/perl -w

## file: file_edit.pl

# author:

趙振鈞# license: gpl-2

use strict;

use warnings;

use file::copy; #

設定系統當前路徑

my $file_path="f:/

測試";

local *wbwj_dir;

local *sjwj_dir;

local *ktxxwd;

foreach my $wjcl_dir($file_path)

/)

if(!(-e $file_first."/".$file_var) and length($file_var) > 2)

foreach my $external_file (@external_files)

}  }    

closedir(wbwj_dir);}}

#closedir(sjwj_dir);

print "/n";

} closedir(ktxxwd)};

SAN環境「三大」和「三小」

san環境 儲存區域網路 storage area network 採用網狀通道技術,通過fc交換機連線儲存陣列和伺服器主機,建立用於資料儲存的的區域網路。三大 伺服器 ibmp系列 power720 740 750 755 780 精簡指令集 耗能少 x86 複雜指令集 inter amd 速度快...

習題五第三小題

設計演算法,把十進位制整數轉換為二至九進製之間任意進製輸出 十進位制轉換其他進製,即使用短除法,再取其餘數,倒輸出,因此可以使用後進先出的棧來程式設計。標頭檔案 include using namespace std const int stacksize 100 class exchange vo...

Mind(三)小結 系統能力

1.整體流程與確定性 如果你定義自己在做的不是乙個產品,而是乙個服務的話,你的邏輯就會變成 我需要提供怎樣一種服務讓使用者的實現某種需求?以使用者獲得和使用者滿足為中心來設計,而不是想著乙個產品來改變世界。eg atm機 取現 錢是最簡單的產品,無使用者之分 1 確定性 提供的確定性就是驗證完你的i...