代码之家 › 专栏 › 技术社区 › chappar

如何在Perl一行程序中打印正在处理的文件的名称?

command-line perl

chappar · 技术社区 · 17 年前

我通常使用perl一行程序而不是grep来搜索文件。

#include <stdio.h>

perl -ne "print if(/#include\s*[\"<]stdio.h/)" */*.[ch]

但是我找不到一种方法来打印得到这些行的文件名。我试着打印 $ARGV[0]

那么,如何打印包含这些行的文件名呢?

3 回复 | 直到 17 年前

hobbs 17 年前

包含要删除的文件名的变量 *ARGV 向is开放 $ARGV 不 $ARGV[0] (哪一个是第一个元素 @ARGV

print "$ARGV: $_" if /include\s*[\"<]stdio.h/;

Pinochle 17 年前

$ARGV 是当前正在读取的文件名的特殊变量。我相信这就是你需要的。

dfa 17 年前

使用 ack ,这是对grep的一个很好的替代(用perl编写):

$ ack --cc '#include'

铌

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

2 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

2 年前

nick · 向后交换文件名

2 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

2 年前

con · 如何跳转到foreach迭代的特定点?

2 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

2 年前