代码之家 › 专栏 › 技术社区 › Keith Bentrup

如果$^I=“.bak”已存在,如何取消输出?

perl

Keith Bentrup · 技术社区 · 15 年前

在Perl中,我使用公共模式循环文件:

$^I=".bak"; 

while(<>) {
  s/pattern/replacement/g;
  print;
}

问题是,在while循环之外,我不能这样做

if (-e "$ARGV.bak") {
  # print warning and exit
}

因为$ARGV直到<>,在while循环中,$ARGV已经被替换。

那么,我是错过了什么,还是我必须用不同的方式来做?

1 回复 | 直到 15 年前

Michael Carman 15 年前

检查 @ARGV <>

die "Backup file already exists.\n" if -e $ARGV[0] . $^I;

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

2 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前