perl - 命令截断文件中带引号的字符串?

标签 perl sed awk

我有一个包含几行的文件:

revision="abcdabcdabcd0000111122223333"
revision="0000111122223333444455556666"

我想像这样截断带引号的字符串(例如截断为 8):

revision="abcdabcd"
revision="00001111"

如何使用 sed/awk/perl 来实现这一点?

最佳答案

也许:

sed -i 's/\(revision="........\)[^"]*"/\1"/' file

关于perl - 命令截断文件中带引号的字符串?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9756287/

相关文章:

java - 使用 shell 命令传递 Python/JAVA/Perl 选项

linux - 如何 sed 或 grep 2 个特殊字符之间的内容并修改输出

perl - 删除空格,但保留制表符

sed - 使用sed从文件中删除^ M个字符

Perl:文本连接后编码困惑

Perl - 包/模块问题

regex - 使用 SED 将字符串附加到现有文本行?

linux - Grep 运行超过 x 分钟的进程计数

perl - Perl 中左值子例程的用途是什么?

bash - 将与模式匹配的行移动到上一行