1 Star 0 Fork 35

iwhat/gpdb

forked from Gitee 极速下载/gpdb 
加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
克隆/下载
putversion 290 Bytes
一键复制 编辑 原始数据 按行查看 历史
#!/usr/bin/env perl
use File::Basename;
use Cwd 'abs_path';
$dirname = dirname(abs_path($0));
$foo = `cat ${dirname}/VERSION | tr '-' ' '`;
chop $foo;
$foo = quotemeta $foo;
$files = join(" ", @ARGV);
$rev = '\\$Revision.*\\$';
$bar = "perl -pi -e \'s/$rev/$foo/\' $files";
system($bar);
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
C
1
https://gitee.com/iwhat/gpdb.git
git@gitee.com:iwhat/gpdb.git
iwhat
gpdb
gpdb
6X_STABLE

搜索帮助