求助：请教两个正则表达式的写法

jxgghost

1、如何判断一个变量的前四位是不是都是字母，后两位都是数字？
比如‘asds32’为有效的，‘s4dst5’为无效字符串
2、如何将一个字符串中的汉字标点转换为英文标点符号呢？
比如‘hello！world。’要转换为‘hello!world.’
谢谢！

兰花仙子

原帖由 jxgghost 于 2006-3-2 22:14 发表
1、如何判断一个变量的前四位是不是都是字母，后两位都是数字？
比如‘asds32’为有效的，‘s4dst5’为无效字符串
2、如何将一个字符串中的汉字标点转换为英文标点符号呢？
比如‘hello！world。’要转换为‘h ...

1. /[a-zA-Z]{4}\d{2}/

2. 建立一个全角与半角的hash映射？如%interpunction = ( '！' => '!',
                                                                                    '。' => '.',
                                                                                    ...);
再去匹配这个全角，然后替换成半角。

jxgghost

原帖由 兰花仙子 于 2006-3-2 22:25 发表



2. 建立一个全角与半角的hash映射？如%interpunction = ( '！' => '!',
                                                                                    '。' =>  ...

先表示感谢！

对于第二个问题，这样写只能应对已知的特殊字符情况，问题是我不知道事先会出现什么字符，需要写成自动判断的。
谢谢！

apile

仙子已经说啦....你用个对应表...的hash..把所有可能的全角符号的对应都建立好..
然後用
=~s/([！|。...])/&replace($1)/eg;
sub replace(){
   return $hash{shift};
}

应该没有几个吧.....

jxgghost

原帖由 apile 于 2006-3-3 18:53 发表
仙子已经说啦....你用个对应表...的hash..把所有可能的全角符号的对应都建立好..
然後用
=~s/([！|。...])/&replace($1)/eg;
sub replace(){
   return $hash{shift};
}

应该没有几个吧.....

这个应该怎么写呢？
我是初学者，请赐教。
能写的详细点吗？

谢谢！

shappen

模仿仙子给出的形式
%interpunction = ( '！' => '!',
                               '。' => '.',
                                             ...);
里面已经有了！和。的转换，其它的你可以再加到这个Hash后面
再用apile的替换函数，将你要换的全角内容放到[]内，然后在需要测试替换的地方加入下面这句就可以了
=~s/([！|。...])/&replace($1)/eg;
sub replace(){
   return $hash{shift};
}

jxgghost

原帖由 shappen 于 2006-3-6 13:42 发表
模仿仙子给出的形式
%interpunction = ( '！' => '!',
                               '。' => '.',
                                             ...);
里面已经有了！和。的转换，其它的你可以再加 ...

但是hash%interpunction 和$hash{shift}是如何关联的呢？
能否讲讲！
谢谢！

jxgghost

非常着急！
谢谢！

兰花仙子

原帖由 jxgghost 于 2006-3-6 13:49 发表

但是hash%interpunction 和$hash{shift}是如何关联的呢？
能否讲讲！
谢谢！

shift就是shift @_呀，@_就是传递给子函数的参数列表，shift返回参数列表的第一个元素。