作者qrtt1 (XD)
看板CSSE
标题Re: [心得] 简单的 SQL 简化设计
时间Thu Jun 2 18:40:26 2005
呵，我也有类似的东东。
有时要写php或jsp之类的东东，
大部份时都是在填表单变数名称，
容易填错又很无聊 :)
#!/usr/bin/perl -w
## author: qrtt1
## date: 2005/02/27
## usage: app_name < form_page
undef $METHOD;
while(<STDIN>)
{
if(/method/)
{
if(/post/)
{
$METHOD='$_POST[';
next;
}
if(/get/)
{
$METHOD='$_GET[';
next;
}
}
if(/(input|select)[^<>]*name/)
{
if(/\"([a-zA-Z][a-zA-Z0-9]*)\"/){
print '$'.$1.' = ';
print $METHOD;
print "'";
print $1;
print "']";
print "\n";
}
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.59.94.118
1F：→ qrtt1:呵，有点久之前写的，之後没再用了没有再写好一点 210.59.94.118 06/02