perl 删除文件中特定字符

hzdzkjly

请求那位高手给点指导：最近工作上需要用Perl来处理一个文件，文件里面含有以“fpga”开头 “，”结尾的字符，比如：fpga_usb_a,  fpga_iic_b,等，现在想要把这些字符给删掉，请问该如何写这样的脚本。我是刚刚接触perl，用了m//匹配符，想找到这些字符并提取出来，但是每次得到的都是这些字符所在的整个一行。请哪位高手给点指导，谢谢

sjtusonic

m关键字是匹配，替换需要用s关键字：
s/^fpga//
s/,$//

hzdzkjly

回复 2# sjtusonic


    看不太明白，替换使用s//，但是如何查找以fpga_开头、以,结尾的字符串，字符串中间为其他的字符。你给的这个，可以详细说一下意思吗？

sjtusonic

perl -p -e 's/^fpga_.*,$//' your_file
你试试直接在命令行输入这个吧

^ 行开头
$ 行结尾
.* 任意多个任意字符

hzdzkjly

回复 4# sjtusonic


    不行唉，在命令行里面直接键入你给的这条命令，结果是把我的文件直接打印在显示器上，没有把FPGA_的字符串去掉。朋友，有正则表达式相关的东西吗，这个东西很不好搞

sjtusonic

回复 5# hzdzkjly


       不行唉，在命令行里面直接键入你给的这条命令，结果是把我的文件直接打印在显示器上，没有把FPGA_的字符串去掉。朋友，有正则表达式相关的东西吗，这个东西很不好搞
-----------------------------------

朋友，看来你真的是对这些很生疏啊。。。

perl -p -e 's/^fpga_.*,$//i' your_file > new_file_name 你试试直接在命令行输入这个吧 ^ 行开头 $ 行结尾 .* 任意多个任意字符 i 忽略大小写 > 输出重定向

sjtusonic

回复 5# hzdzkjly


    拿出你“为技术付出一切”的勇气来，去找资料吧

比如资料区射门靴版主的帖子里：
http://bbs.eetop.cn/thread-309424-1-1.html

你找个perl教程，看看“正则表达式”那一章，你就明白啦。

legend03u8z

他那意思是不能对原文修改吧？ 用tie包试试，或输出到一个新的文件

sjtusonic

回复 8# legend03u8z


    perl加-i参数是对原文修改，我这里没有加

hzdzkjly

我还是先把基础的搞清楚，之前什么都不懂，