问个关于正则提取的问题

nsnake

UID: 41482
帖子: 154
积分: 354
在线时间: 1 天 8 小时

1^# nsnake 发表于 2005-05-08 13:49

问个关于正则提取的问题

问个关于正则提取的问题
#!/usr/bin/perl

print "Content-type: text/html\n\n";
$o="zh-cn;cn;ok-c";
if('/^[a-z\-]+/i', $o)
{ $k=$1;
print "$k="; }
我想让它只提取$o中的第一个数据也就是zh-cn，改如何做啊

klaus

UID: 10136
帖子: 106
积分: 243
在线时间: 15 小时

2^# klaus 发表于 2005-05-08 14:57

try this:--<...
try this:

$o =~ /(\w+):/;
print $1;

klaus

UID: 10136
帖子: 106
积分: 243
在线时间: 15 小时

3^# klaus 发表于 2005-05-08 14:59

try this:--<...
try this:

$o =~ /(\w+):/;
print $1;

nsnake

UID: 41482
帖子: 154
积分: 354
在线时间: 1 天 8 小时

4^# nsnake 发表于 2005-05-08 23:04

呵呵--谢谢楼...
呵呵
谢谢楼上的
已经解决