给定下列数据，要提取如何办呢，在线等待

[popkiler]

数据是：< gnome-user-share-0.11-6.fc8 >

我现在要提取出gnome-user-share来，不要后面的版本号，如何办呢？
$item="< gnome-user-share-0.11-6.fc8 >";

[popkiler]

TO:iambic()

因为我的数据里面有的是：

< gnome-user-share-0.11-6.fc8 >
有的是
< gnome-0.31-7.f1 >
所以要提取的数据里面不一定有"-"，请问应该如何呢

[popkiler]

这种情况也有：
< libgtop2-2.19.5-1.fc8 >
我要提取出libgtop2

[xyzxyz1111]

print $1 if $item =~ /([\w\-]+)-[\d\.]+/;

[popkiler]

$item="< gnome-user-share-0.11-6.fc8 >";
if(/^<\s(\w+)-[0-9]*/){
$item=$1;
}

是这样吗？

[iambic]

print $1 if $item =~ /([a-zA-Z-]+[a-zA-Z]+)/;