perl小问题

[wzw200]

问题是这样的
我的一个变量字符串如
$Line="Key1=abc";
我现在想把他改成
$Line="Key1=feg";
也就是想怎么确定$Line里面有"Key1="这个串啊 ----if($Line抱含"Key1="){......}
这样我就可以
$=Line="Key1=".Myparam;

谢谢各位的 我找了字符串操作函数里没找到这个样的功能！

[plaeks]

其实不用判断，直接做替换，如果存在Key1=就会替换，如果不存在就不会替换啦：

my $line="Key1=abc";
my $Myparam="feg";
$line =~ s/(Key1=)(.*)/$1$Myparam/;

[wzw200]

哎 谢谢你的代码 我也是 刚学习perl我也想着用正则表达式，可是自己就是写不出来
我要好好学习正则表达式

[wzw200]

对了 楼上大哥 如$line="Key1=abc";
可以得到"abc"这个串吗
$mystr="abc"
就是从$里提取"abc"赋值给一个变量$mystr
谢谢了

[plaeks]

当然可以，很容易：

my $line="Key1=abc";
$line =~ /Key1=(.*)/;
my $mystr=$1;

[wzw200]

谢谢谢 谢了