perl替换脚本
2011-09-18 23:20
197 查看
#!/usr/bin/perl -W
$line="";
while (defined($line = <stdin>)) {
$_ = $line;
s#\$\(WINE_ROOT\)/buildtools#\$\(DEVELOPENV_ROOT\)/buildtools#g;
print "$_";
}
$line="";
while (defined($line = <stdin>)) {
$_ = $line;
s#\$\(WINE_ROOT\)/buildtools#\$\(DEVELOPENV_ROOT\)/buildtools#g;
print "$_";
}
相关文章推荐
- Perl脚本递归替换所有指定目录指定文件类型中的指定模式
- 使用 Perl 脚本做文件内容替换
- Perl脚本:递归替换目录下所有源文件中指定字符串
- perl脚本中匹配替换
- crontab中脚本调用perl
- Perl 字符替换操作-用于两个文件的合并
- linux 每日一练习编写脚本时候的替换运算符!!!!!
- Oracle11g新特性:RMAN脚本中使用替换变量
- 使用perl脚本语言处理文本文件
- perl减轻工作量(第一个perl脚本)
- Android ant脚本自动打包、自动替换包名
- 系统管理—管理脚本语言—Perl
- Hive Job log解析——perl脚本
- [Perl]FTP自动上传文件的脚本以及配置文件
- Perl脚本间传递参数
- 使用Python脚本将绝对url替换为相对url的教程
- 文件内容替换 :SED 命令 和 Perl
- (转载)使用Perl编写协议分析脚本
- 遇到的问题------perl脚本mysql新建表后字段名(列名)中文乱码
- 使用perl 实现 oracle数据库用户自动备份脚本