Question

perl中如何初始化一长度为n的字符串

例如在程序中，str1的长度是5，我要创建一个长度与str1一样的str2（str2=“ ”，5个空格），该怎么写代码？str1 的长度不同情况有不同的值。

谢谢！
请问幽谷百合香，那个“my $string2 = " " x $len;”中的 x 是 乘号（*）吗？ 我试过，但不行。提示“Argument " " isn't numeric in multiplication (*) ”。

刚试了“x”，原来是一个字母，可以了，谢谢！

Answer 1

#! /usr/bin/perl -w

use strict;

my $string1 = <STDIN>;
chomp $string1;
my $len = length($string1);
print "Now the length for string 1 is: $len\n";
my $string2 = " " x $len;

# To know how many spaces are in string 2.
my $num = $string2 =~ tr/ //;
print "There are $num space in string 2.\n";

Answer 2

rindex (EXPR."\$", "\$");
好像perl不用初始化的吧。