我想在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. 简单Grep问题
- 2. 简化perl的地图和grep
- 3. Perl open()和grep
- 4. perl grep函数
- 5. Perl简单循环
- 6. 简单的perl opendir
- 7. 的Perl:从grep的
- 8. grep的字用perl
- 9. Perl中grep变量
- 10. perl模拟grep -n?
- 11. pipe tcpdump grep into perl
- 12. Perl XML ::简单写目录
- 13. 简单的Perl代理
- 14. 翻译简单的grep到Java
- 15. 为任何一年的grep简单
- 16. grep提取简单网址 - 无计划
- 17. 简单grep的的TextWrangler更换
- 18. Linux Grep可能很简单回答
- 19. bash脚本+ grep + perl命令
- 20. Perl:哈希中的Grep键
- 21. perl中的grep错误
- 22. !grep在perl中做什么?
- 23. perl中的递归grep
- 24. Perl grep两个数组
- 25. grep -v with perl one liner
- 26. 使用perl系统grep
- 27. Grep在Perl替换(RHS)内
- 28. grep - perl中的上下文
- 29. opendns和perl lwp ::简单得到
- 30. 简单的Perl的CGI脚本从HTML
如果'$ var1'或'$ var2'包含'*'或'''或其他东西,它会被shell解释给出错误的结果。必须先用'quotemeta'引用$ var1和$ var2。 – Schwern
或者如果他们包含一个空间(更常见) – ikegami