Question

PERL提取指定字符串的问题

这样一串字符串 XYjkjk.dddf.ewrwe=333=332-111.323-ada.k/1 截取XY到第一个=号之间的字段串 XYjkjk.dddf.ewrwe 怎么写，感谢各位大侠。

Answer 1

my $str='XYjkjk.dddf.ewrwe=333=332-111.323-ada.k/1';
my @strs=split/\=/,$str;
print $strs[0];

Answer 2

$str='_/hhh111/ih%$/hjkkk';$str=~/_\/(hhh111)(.*)/;$a=$1;$b=$2;print "$a\n";print "$b\n";

追问

我自己找到解决办法了，谢谢。