论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2013-02-01 14:15 |只看该作者 |倒序浏览

有时候目录字符串是下面的两种情形，请问怎么获得简洁的路径。
/path1/path2/path3/path4/../path5/././././././././path6/../../../path7/file.txt
因为目录有可能不是真正的目录，而是symbolic link。
所以不能直接转换。而希望通过字符串退换的发送转换。
1）象 ./ 就是不目录，可以全部退换掉。因为重复的次数不确定，请问怎么操作最方便？
2）另外，象 ../ 这种有没有方便的办法给去掉？

谢谢！

文库|博客

cdtits

大富大贵

论坛徽章:: 2

2楼 [报告]

发表于 2013-02-01 15:26 |只看该作者

sub do_back {
my ($t) = @_;
while ($t =~ s#(?<!\.)\./|([^/]+/)\.\./##) {
print "$t\n";
}
return $t;
}
$t = '/path1/path2/path3/path4/../path5/././././././././path6/../../../path7/file.txt';
print do_back($t);

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

lwbbs

丰衣足食

论坛徽章:: 0

3楼 [报告]

发表于 2013-02-01 16:06 |只看该作者

太牛了。
非常感谢！

回复 2# cdtits

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

mcshell

富足长乐

论坛徽章:: 3

4楼 [报告]

发表于 2013-02-01 16:15 |只看该作者

本帖最后由 mcshell 于 2013-02-01 16:16 编辑

回复 1# lwbbs

s!/\.+(?=/)!!g

复制代码

楼上的会出现一个问题。。就是遇到.path或者是abc.path目录会被替换掉。{:3_189:}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

lwbbs

丰衣足食

论坛徽章:: 0

5楼 [报告]

发表于 2013-02-01 16:36 |只看该作者

2楼的结果是正确的。你的结果有问题。
2楼的运行结果：
输入：/abc.path1/.path2/path3/path4/../path5/././././././././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/././././././././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/./././././././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/././././././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/./././././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/././././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/./././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/./path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/path6/../../../path7/file.txt
/abc.path1/.path2/path3/path5/../../path7/file.txt
/abc.path1/.path2/path3/../path7/file.txt
/abc.path1/.path2/path7/file.txt
/abc.path1/.path2/path7/file.txt

4楼的运行结果：
输入： /abc.path1/.path2/path3/path4/../path5/././././././././path6/../../../path7/file.txt
/abc.path1/.path2/path3/path4/path5/path6/path7/file.txt
/abc.path1/.path2/path3/path4/path5/path6/path7/file.txt

回复 4# mcshell

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

mcshell

富足长乐

论坛徽章:: 3

6楼 [报告]

发表于 2013-02-01 17:22 |只看该作者

理解错了不好意思{:3_196:}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 请教替换字符串的问题

请教替换字符串的问题 [复制链接]