代码之家 › 专栏 › 技术社区 › tavalendo

基于位置替换字符串中的字符

substr perl string

tavalendo · 技术社区 · 7 年前

以下是我所做的:

my ($pos, $rep) = @ARGV;

print ("Give me the string: ");
chomp(my $string = <STDIN>);

print ("The modified string is ", substr($seq, $pos, 1, $rep),"\n");

在终端运行时:

perl myprogram.pl 4 B
Give me the string: eeeeee
The modified string is e

我想要的输出是:

有什么不对劲的线索吗?

1 回复 | 直到 7 年前

melpomene 7 年前

引用 perldoc -f substr :

使用的替代方法 substr 作为左值,将替换字符串指定为第4个参数。这允许您替换EXPR和 把以前的东西还给我 splice .

换句话说, 子字符串

substr $seq, $pos, 1, $rep;
# or alternatively:
#  substr($seq, $pos, 1) = $rep;
print "The modified string is $seq\n";

推荐文章

Manny · 如何比较Perl中的字符串?

3 年前

BioRod · 我不能用Perl打印键和值

3 年前

user17227456 · Perl CLI代码无法追加字符串行

3 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

7 年前

Pranay Nanda · 使用regex解析许可证文件

7 年前