一行中连续多于一个空格替换成横线正则表达式如何写啊

zhengangzhu

UID: 39205
帖子: 1
积分: 2
在线时间: 10 分钟

1^# zhengangzhu 发表于 2007-11-13 13:49

一行中连续多于一个空格替换成横线正则表达式如何写啊

比如
hello chinaunix
替换成
hello------chinaunix
正则表达式如何写啊。

oyd_admin

UID: 41183
帖子: 5
积分: 11
在线时间: 10 分钟

2^# oyd_admin 发表于 2007-11-13 14:15

s/(\w+)\s\s+(\w+)/$1------$2/

biginner

UID: 33871
帖子: 1
积分: 2
在线时间: 10 分钟

3^# biginner 发表于 2007-11-13 14:47

s/\s+/------/g

bernana

UID: 9972
帖子: 188
积分: 432
在线时间: 2 天

4^# bernana 发表于 2007-11-13 16:08

QUOTE:

原帖由 biginner 于 2007-11-13 14:47 发表
s/\s+/------/g

应该是s/\s/-/g 吧。这样才是有多少个空格就变成多少个-

dynamic516

UID: 39951
帖子: 24
积分: 55
在线时间: 10 分钟

5^# dynamic516 发表于 2007-11-13 16:13

use strict;
use warnings;
open (OUT,">D:\\SRC\\perl\\My_OUT_File.txt") or die "open error!";
my $string;
while($string= <OUT>){
      chomp($string);
      if($string=~s/\s+/------/g)
      {
            print "$string";
            }
}
close(OUT);

按照1楼和2楼的正则，替换后文件为空！上面的代码错在哪里啊？

bernana

UID: 9972
帖子: 188
积分: 432
在线时间: 2 天

6^# bernana 发表于 2007-11-13 16:20

倒。。你读文件的符号写错了。是< 不是> 你那是生成一个新的文件。当然为空了。。。。

dynamic516

UID: 39951
帖子: 24
积分: 55
在线时间: 10 分钟

7^# dynamic516 发表于 2007-11-13 16:38

哈哈哈，楼上的正解，俺刚写perl，给你扔鲜花了

amorer

UID: 12921
帖子: 7
积分: 16
在线时间: 10 分钟

8^# amorer 发表于 2008-01-16 15:54

需要一个空白苻对应一个"-"时是
"应该是s/\s/-/g 吧。这样才是有多少个空格就变成多少个-",

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

9^# Lonki 发表于 2008-01-16 19:12

QUOTE:

原帖由 amorer 于 2008-1-16 15:54 发表
需要一个空白苻对应一个"-"时是
"应该是s/\s/-/g 吧。这样才是有多少个空格就变成多少个-",

这样不如用tr.
正则的话 s/(\s+)/'-' x length($1)/eg

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

10^# liang573728 发表于 2008-01-17 09:51

QUOTE:

原帖由 amorer 于 2008-1-16 15:54 发表
需要一个空白苻对应一个"-"时是
"应该是s/\s/-/g 吧。这样才是有多少个空格就变成多少个-",

正解