问一个关于字符串操作的问题，谢谢

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

1^# hepower 发表于 2008-06-11 17:13

问一个关于字符串操作的问题，谢谢

问一个关于字符串操作的问题，描述如下
$aa是一个字符串变量，我想判断这个字符串的末尾一位字符是不是"\\",如果是就不操作，如果不是就要加上"\\"字符，请问如何写这段代码，谢谢！

Jester

UID: 24888
帖子: 93
积分: 213
在线时间: 12 小时

2^# Jester 发表于 2008-06-11 17:25

$aa.='\' unless ($aa~/\\$/)

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

3^# hepower 发表于 2008-06-11 18:03

楼上的你好，你这个能保证是判断最后一个字符么？还是在整个字符串里匹配"\\"字符，谢谢

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

4^# hepower 发表于 2008-06-11 18:27

unless ($aa= ~/\\$/)
{
$aa.='\';
}

这样写似乎不行，~/\\$/ 有问题！

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-06-11 20:45

[Copy to clipboard] [ - ]

CODE:

$aa =~ s/\\\\$/\\/;

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

6^# hepower 发表于 2008-06-12 09:49

楼上的大哥，还是有错啊，错误如下：
Backslash found where operator expected at C:\NeuStar\src\VFui\AppUi\sis\Package
.pl line 432, near "/\\\\$/\"
(Missing operator before \?)
syntax error at C:\NeuStar\src\VFui\AppUi\sis\Package.pl line 432, near "/\\\\$/
\"

我的代码如下：
unless ($curSDKPath = ~/\\\\$/\\/)
{
$curSDKPath.='\';
}

cobrawgl

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

7^# cobrawgl 发表于 2008-06-12 10:00

你还是先去巩固一下正则式的基础吧

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

8^# hepower 发表于 2008-06-12 10:18

我看了啊按道理说应该是
unless ($aa= ~/\\$/)
{
$aa.='\';
}

在结尾匹配一个'\'字符么，我初学perl，我是C++程序员，领导最近让我写一些配置管理脚本，还请各位大哥帮帮忙啊，呵呵。

cobrawgl

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

9^# cobrawgl 发表于 2008-06-12 10:24

你把你问题描述清楚一些，然后你再拿几行示例出来。

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

10^# hepower 发表于 2008-06-12 10:33

楼上的大哥，我的需求就是
$aa是一个字符串，确切一点的说，是一个路径，这个字符串是从别处获取的，因此有可能末尾会少一个'\'的分隔符，我是想对这个字符串check一下，它末尾的一个字符是不是'\',如果是就不操作，如果不是就给它加上一个'\',字符，就是这点东西，我用C++代码描述如下：
CString str;
if(str[str.len()-1] != '\')
{
str = str+'\';
}

就是这个意思了，谢谢