Perl在脚本中编辑(而不是一个衬垫)

概述所以,我已经习惯了perl -i来使用perl,就像我将sed和就地编辑一样. perlvar中$^ I的文档： $^I The current value of the inplace-edit extension. Use undef to disable inplace editing. 好.所以这意味着我可能会在脚本中进行“就地”编辑？ 我遇到麻烦的是这样的： 如果我跑： perl -pi 所以,我已经习惯了perl -i来使用perl,就像我将sed和就地编辑一样.

perlvar中$^ I的文档：

@H_403_13@

$^I
The current value of the inplace-edit extension. Use undef to disable inplace editing.

好.所以这意味着我可能会在脚本中进行“就地”编辑？

我遇到麻烦的是这样的：

如果我跑：

perl -pi -e 's/^/fish/' test_file

然后解析它：

BEGIN { $^I = ""; }liNE: while (defined($_ = <ARGV>)) {    s/^/fish/;}continue {    dIE "-p destination: $!\n" unless print $_;}

现在 – 如果我想在脚本中使用$^ I,请说：

foreach my $file  ( glob "*.csv" ) {     #inplace edit these files - maybe using Text::CSV to manipulate?  }

我如何“启用”这种情况发生？这是一个改变$_的问题(默认为s / something / somethingelse / do)并让perl隐式打印出来吗？或者还有其他事情发生了吗？

我的主要问题是 – 我可以执行应用CSV转换(或XML调整或类似)的“就地编辑”.

我很欣赏我可以打开单独的文件句柄,阅读/打印等.我想知道是否有另一种方式. (即使它只是在情境上有用).

解决方法 由-i命令行选项或通过设置$^启用的就地编辑行为仅适用于ARGV文件句柄.这意味着必须在命令行上命名文件,或者必须在程序中设置@ARGV

该程序将所有CSV文件中的所有小写字母更改为大写.请注意,我已将$^ I设置为非空字符串,建议您在测试时保留原始数据文件

use strict;use warnings;our $^I = '.bak';while ( my $file = glob '*.csv' ) {  print "Processing $file\n";  our @ARGV = ($file);  while ( <ARGV> ) {     tr/a-z/A-Z/;     print;  }}

总结

以上是内存溢出为你收集整理的Perl在脚本中编辑(而不是一个衬垫)全部内容，希望文章能够帮你解决Perl在脚本中编辑(而不是一个衬垫)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。