while continue 更新文件

最新推荐文章于 2024-07-18 17:15:48 发布

scan724

最新推荐文章于 2024-07-18 17:15:48 发布

阅读量350

点赞数

分类专栏： Perl DBI

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/49784437

版权

Perl DBI 专栏收录该内容

54 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl脚本处理文本文件。通过示例代码，解释了如何读取文件，使用`while`和`continue`语句来检查和更新文件记录。脚本根据给定条件对文件中的行进行匹配，并在不匹配时继续写入，匹配时进行修改并写入临时文件。

摘要由CSDN通过智能技术生成

zjzc01:/root/dbi# cat a1.pl 
my $a = $ARGV[0];

my $b = $ARGV[1];

my $c = $ARGV[2];

my $d = $ARGV[3];

my $f = $ARGV[4];

my $g = $ARGV[5];

open MEGADATA , ">>a.txt" or dir $!;

my $record = join (":",$a,$b,$c,$d,$e,$f,$g);
print MEGADATA "$record\n";

zjzc01:/root/dbi# cat a.txt 
::::::
a:b:c:d::e:

##########下面脚本不匹配直接跳过,continue写入,匹配进行修改,在continue里写入:



用术语来解释的话，就是说，\Q 取消所有元字符的含义直到遇见 \E 为止。

zjzc01:/root/dbi# cat a.txt 
a:b:c:d:e
1:2:3:4:5


zjzc01:/root/dbi# cat a2.pl 
my $megalithFile = $ARGV[0];

my $siteName = $ARGV[1];

my $siteMapRef = $ARGV[2];

my $tempFile = "tmp.$$";

open MEGADATA ,"<$megalithFile" or die $!;

open TMPEGADATA ,">

了解本专栏