如何使用Perl对同一变量执行多次替换 [英] How do I perform multiple substitution for same variable using Perl

问题描述

我想用perl对同一个变量做两个不同的替换？我怎么能执行它？。在下面的代码中我单独完成了。如何使用perl使它变得简单？



我尝试过：

I want to do two different substitution for the same variable using perl?How can i perform it ?.In the below code i had done it separately .How can i make it still simple using perl?

What I have tried:

open my $IN, '<', $data_file or die $!;
while (my $line = <$IN>) {
    chomp $line;
    #$line=~ s/COMMENT//g;
    $line=~ s/[\\\_\@\_]//g;
    $line=~s/COMMENT//g;

推荐答案

IN，'<'，

IN, '<',

data_file或die

data_file or die

！;
while（我的

!; while (my

这篇关于如何使用Perl对同一变量执行多次替换的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！