工具小指令碼
#!/bin/perl
usefile
::find;
uselog
::file******;
#use strict;
#use warnings;
# 說明:
# 遍歷出 "/cygdrive/c/documents and settings/administrator/"
# 滿足 "^.*\.txt$" 新增檔案
# 並執行 "ls -l $fileallname "
# 執行日誌 ./log
## perl this.pl
# "ls -l $fileallname "
# "/cygdrive/c/documents and settings/administrator/"
# "^.*\.txt$"
# ./log
## run_comm 引數1 替換說明：
# $filepath 為輸入引數2，遍歷根目錄 "/cygdrive/c/documents and settings/administrator/"
# $fileallname 為當前遍歷，滿足正則條件的 全路徑+檔名
# $logicfileallname 為當前遍歷，滿足正則條件的 邏輯路徑+檔名
# $logicfilepath 為當前遍歷，邏輯路徑
# $logicfilename 檔名稱
# $logicfileexp 檔案字尾
# （test.txt 檔案
# $logicfilename 為 test
# $logicfileexp 為 txt
# ）
my$run_comm
=$ar**[0
];my
$file_path
=$ar**[1
];my
$file_find_rex
=$ar**[2
];my
$logfile
=$ar**[3
];my
$log
=new
log::
file******(name
=>
'log::file****** logs',
file
=>
"$logfile",
mask
=>-1
,autoflush
=>0,
);sub
filethumb
#print $_tmp_run_comm,"\n";
my@return
=eval;if
( $return
[(@return-1
)] !=0)
else}}
}find(
\&filethumb
,$file_path);
小指令碼 小指令碼記錄本
目錄 1 c 計算程式耗時 2 c 計算程式耗時 基於opencv，需要標頭檔案 3 c 讀寫txt檔案 4 c 中執行終端指令 複製 移動檔案等 5 c 建立資料夾 判斷資料夾是否存在，不存在則建立 6 批量刪除資料夾中0位元組的檔案 shell指令碼 include clock t start ...
shell小指令碼
前言 可能這些指令碼看起來很簡單，很多人都不屑於去寫，但是一切複雜的東西都是由乙個個簡單的東西組合起來的。shell的語法比較怪異，和一般的程式語言有很大的區別，真的要多動手去寫才能學會的 1.要求 1.設定變數file的值為 etc passwd 2.依次向 etc passwd中的每個使用者問好...
python小指令碼
匹配文件內容的關鍵字，並取得該關鍵字所在行所有內容 find the row where need keyword def getcontent tfile,sstr global keyword f1 open tfile readlines for i,j in enumerate f1 if ...