对存储过程表的列及值添加标记，方便修改代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】对存储过程表的列及值添加标记，方便修改

作者:oschina.net / 发布于2011/3/15/ 1448

<div>!/usr/bin/perl -w
use warnings;</div>
if(open LOGO ,"<sql.txt" or die "\ncan't find File: $!\n"){
 if(open FILEOUT , ">fileout.txt" or die "\nFile create error: $!\n"){
 $i = 0;
while(<LOGO>){
#delete \n
chomp($_);
# trim space
s/^\s+
 |
 \s+$
 //xg;
 #check start text
if(/insert into|values/i){
$i = 1;
}elsif(/;/){
$i = 0;
}
#check $_ not contain ''
if($_ ne ''&& $i!=0){
printf FILEOUT "%80s" , "$_ --$i\n";#prinf comment
$i= $i+1;
}else{
$i = 0;
print FILEOUT "$_\n";
}
}
close FILEOUT;
 }
}
close LOGO;</div>

试试其它关键字

同语言下

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

可能有用的

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

oschina.net贡献的其它代码(12)

.MySQL数据库每日自动备份的脚本
.在VIM中使用GOOGLE进行搜索或者翻译
.快速多线程ping
.通过 ODBC 连接数据库并创建表
.创建一个新的 ODBC 数据源
.列举所有的 ODBC 驱动程序
.获取 Windows 系统的版本
.对存储过程表的列及值添加标记，方便修改
.Socket 客户端获取服务器时间
.Perl 解析 HTTP Header