紧急：ultraedit如何使用正则表达式搜索？！

我不大清楚你想通过什么工具或者程序提取，以下是我做的Perl脚本：
#!/usr/bin/perl
#
$str="git://android.git.kernel.org/platform/system/common-open.git";
$str2="git://android.git.kernel.org/platform/common-open.git";
$dir="platform";
print 'str:'.$str;
#1表示匹配，不输出表示不匹配
print "\ntest:".($str =~ /\/$dir\/[a-zA-Z_-]*.git$/);
print "\n##################\n";
print 'str2:'.$str2;
#1表示匹配，不输出表示不匹配
print "\ntest:".($str2 =~ /\/$dir\/[a-zA-Z_-]*.git$/);
###运行结果
str:git://android.git.kernel.org/platform/system/common-open.git
test:
##################
str2:git://android.git.kernel.org/platform/common-open.git
test:1