如何打印perl一行命令之后的文件的文件名

vio

例如：perl -ne 'print $ARGV[0]' file1
我想打印出file1，但是$ARGV[0]没有值，请问在一行命令中怎么打印出后面的文件的名字
谢谢！

py

perl -e 'print $ARGV[0]' file1

vio

perl -e 'print $ARGV[0]' file1
py 发表于 2010-05-03 12:17

    谢谢！

但是我想对文件file1作一些改动，同时需要知道它对应的文件名

例如:
file1:
1
2
3
4

1. perl -ne 'print "$_ $ARGV[0]" ' file1文件名

复制代码

打印出:
1 file1文件名
2 file1文件名
3 file1文件名
4 file1文件名
...
## 类似，中间会作其他处理

不知道如何获得后面的文件名？

yybmsrs

回复 3# vio


    perl -ne 'print "$_,$ARGV"' file1

ulmer

例如：perl -ne 'print $ARGV[0]' file1
我想打印出file1，但是$ARGV[0]没有值，请问在一行命令中怎么打印 ...
vio 发表于 2010-05-03 11:56

Using BEGIN{} or END{} block, sample:

perl -ne 'BEGIN{print qq($ARGV[0]\n\n);} print' /etc/passwd

vio

Great thanks, yybmsrs  and ulmer !