我想在perl中創建一個簡單的grep調用。 我有2個變量。 $ VAR1,$ VAR2 ,我想所有的文件名與$ var1的啓動和文件的結尾是$ VAR2 這將是對Perl中的grep命令,做的是語法的文件。perl簡單grep
-1
A
回答
1
獲取與$var1
開始和$var2
結束在當前目錄中的所有文件名:
my @matchingFileNames = <$var1*$var2>;
編輯:要處理空格和特殊字符作爲@Schwern和@ikegami正確地指出:
my @matchingFileNames = <\Q$var1\E*\Q$var2\E>;
0
opendir(DIR, "yourDIR");
my @FILES= readdir(DIR);
my @matching_files;
for my $file (@FILES) {
push(@matching_files, $file) if ($file =~ /\A$var1/ and $file =~ /$var2\z/)
}
+1
,對於循環是寫'我@matching_files = {grep的時間越長,速度較慢的方式m {\ A $ var1}和m {$ var2 \ z}} @ files'。 – Schwern
1
相關問題
- 1. 簡化perl的地圖和grep
- 2. Perl open()和grep
- 3. 簡單的perl opendir
- 4. Perl中grep變量
- 5. 的Perl:從grep的
- 6. grep的字用perl
- 7. perl模擬grep -n?
- 8. pipe tcpdump grep into perl
- 9. 簡單的Perl代理
- 10. 翻譯簡單的grep到Java
- 11. grep提取簡單網址 - 無計劃
- 12. 簡單grep的的TextWrangler更換
- 13. grep - perl中的上下文
- 14. Perl grep兩個數組
- 15. bash腳本+ grep + perl命令
- 16. Grep在Perl替換(RHS)內
- 17. Perl:哈希中的Grep鍵
- 18. perl中的grep錯誤
- 19. grep -v with perl one liner
- 20. 什麼是最簡單的方法來grep'男人grep'的標誌
- 21. 添加字符litterals perl(非常簡單)
- 22. 解析簡單的JSON數組在Perl
- 23. 簡單的Perl腳本:兩個問題
- 24. perl,使用XML解析XML ::簡單
- 25. perl的淨SIP簡單TCP寄存器
- 26. Amazon SNS(簡單通知服務)Perl庫
- 27. Perl的XML ::簡單XMLout功能
- 28. 簡單的Perl腳本幫助需要
- 29. Perl的簡單的XML問題
- 30. perl foreach循環數組,簡單問題
如果'$ var1'或'$ var2'包含'*'或'''或其他東西,它會被shell解釋給出錯誤的結果。必須先用'quotemeta'引用$ var1和$ var2。 – Schwern
或者如果他們包含一個空間(更常見) – ikegami