实在想不出办法来了，求助CU大神

tianshanzh

很简单的一个问题，就是我水平太次啊。
我有一个a.txt文档，里面的内容比较乱，像下面


NAME1 SYS_TESTCLK ACPI_SYSRSTn EJTAG_TCK SYS_BAKCLK
d1 = 0.0
d2 = 0.5

NAME2 PLL_DVO_DGND USB0_DM NAND_D7 NAND_D6 NAND_D5
d1 = 0.0
d2 = 0.5

...
@

EQNSET 1 "WFT"
WAVETBL "WFT"
CHECK all

我想写个脚本删除里面的一些字符，比如PLL_DVO_DGND ，USB0_DM EJTAG_TCK...

求大神指点。

dav_

1. open FILE, "a.txt";
   
2. print "Enter: ";
   
3. chomp(my $keyword = <>);
   
4. open W, '> out.txt';
   
5. while(<FILE>){
   
6.         $_ =~ s/$keyword//g if $_ =~ /$keyword/;
   
7.         print W $_;
   
8. }
   
9. close (FILE);

复制代码

tianshanzh

回复 2# dav_
大哥！

   

tianshanzh

大哥不成啊，我只能从键盘输入一个字符，然后删除一个字符，可是我要删除很多字符啊，几十个。能不能直接写在脚本里面，把所有要删除的字符？

dav_

用空白隔开每个字
或把$keyword写死

1. open FILE, "a.txt";
   
2. print "Enter: ";
   
3. chomp(my $keyword = <>);
   
4. my @keyword = split '\s+', $keyword;
   
5. open W, '> out.txt';
   
6. while(<FILE>){
   
7.         for(@keyword){
   
8.                 $_ =~ s/$keyword//g if $_ =~ /$keyword/;
   
9.         }
   
10.         print W $_;
    
11. }
    
12. close (FILE);

复制代码

jason680

回复 4# tianshanzh


s/string1|string2|string3|...//g

it will remove string1, string2, string3, ...  <== your key word

sjdy521

回复 1# tianshanzh


    你想不出来具体是因为卡在哪个环节上？而不是把问题全部丢出来就不管了

substr函数

大哥？是不是？
my @delete = qw/PLL_DVO_DGND USB0_DM EJTAG_TCK/;
my $delete = join '|', @delete;
while (<DATA>) {
    if (/^NAME/) {
        s/$delete//g;
    }
    print;
}

__DATA__
NAME1 SYS_TESTCLK ACPI_SYSRSTn EJTAG_TCK SYS_BAKCLK
d1 = 0.0
d2 = 0.5

NAME2 PLL_DVO_DGND USB0_DM NAND_D7 NAND_D6 NAND_D5
d1 = 0.0
d2 = 0.5