免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
楼主: vgra

大家写过读过的perl项目最多有多少行代码 [复制链接]

论坛徽章:
0
发表于 2010-02-04 21:12 |显示全部楼层
仙子姐姐给人家留点面子啊。

倒是同意最后一句。

论坛徽章:
0
发表于 2010-02-04 21:13 |显示全部楼层
没必要过度追求精简~~
不过Ray的code的确可以简化一些,偶稍微修改一下:最后强调一下:
没有use strict的 ...
兰花仙子 发表于 2010-02-04 20:52


还是喜欢51行的代码

论坛徽章:
0
发表于 2010-02-04 21:15 |显示全部楼层
脚本语言,看懂为主。
我记得有C语言乱码大赛,写的都很有意思。

论坛徽章:
0
发表于 2010-02-04 21:31 |显示全部楼层
仙子姐姐给人家留点面子啊。

倒是同意最后一句。
dahe_1984 发表于 2010-02-04 21:12



  其实俺没有啥意思,就是简化一下。
如果是偶的话,还会把那个SQL操作更简化一下:

$dbh->selectrow_array("select ...");

省却了那些$sth等中间过程。

论坛徽章:
59
2015年亚洲杯之约旦
日期:2015-01-27 21:27:392015年亚洲杯之日本
日期:2015-02-06 22:09:41拜羊年徽章
日期:2015-03-03 16:15:432015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:50:282015元宵节徽章
日期:2015-03-06 15:50:392015年亚洲杯之阿联酋
日期:2015-03-19 17:39:302015年亚洲杯之中国
日期:2015-03-23 18:52:23巳蛇
日期:2014-12-14 22:44:03双子座
日期:2014-12-10 21:39:16处女座
日期:2014-12-02 08:03:17天蝎座
日期:2014-07-21 19:08:47
发表于 2010-02-04 22:14 |显示全部楼层
140 行也可以啊。拿上来我给你改成 14 行。
flw 发表于 2010-02-04 18:19


#!/usr/bin/perl
print "Hello World\n";

有請FLW大俠將它改為1行~~~

论坛徽章:
59
2015年亚洲杯之约旦
日期:2015-01-27 21:27:392015年亚洲杯之日本
日期:2015-02-06 22:09:41拜羊年徽章
日期:2015-03-03 16:15:432015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:50:282015元宵节徽章
日期:2015-03-06 15:50:392015年亚洲杯之阿联酋
日期:2015-03-19 17:39:302015年亚洲杯之中国
日期:2015-03-23 18:52:23巳蛇
日期:2014-12-14 22:44:03双子座
日期:2014-12-10 21:39:16处女座
日期:2014-12-02 08:03:17天蝎座
日期:2014-07-21 19:08:47
发表于 2010-02-04 22:16 |显示全部楼层
PSerl,大約寫了幾個程序,加起來<200行~~

论坛徽章:
59
2015年亚洲杯之约旦
日期:2015-01-27 21:27:392015年亚洲杯之日本
日期:2015-02-06 22:09:41拜羊年徽章
日期:2015-03-03 16:15:432015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:50:282015元宵节徽章
日期:2015-03-06 15:50:392015年亚洲杯之阿联酋
日期:2015-03-19 17:39:302015年亚洲杯之中国
日期:2015-03-23 18:52:23巳蛇
日期:2014-12-14 22:44:03双子座
日期:2014-12-10 21:39:16处女座
日期:2014-12-02 08:03:17天蝎座
日期:2014-07-21 19:08:47
发表于 2010-02-04 22:18 |显示全部楼层
没必要过度追求精简~~
不过Ray的code的确可以简化一些,偶稍微修改一下:最后强调一下:
没有use strict的 ...
兰花仙子 发表于 2010-02-04 20:52


沒有#!的Code更不是好Code~~

论坛徽章:
0
发表于 2010-02-04 23:17 |显示全部楼层
50行能变5行么?


话说回来,偶突然想用ruby写一下,真的可以变为几行(如下是6行):
  1. require "dbi"
  2. dbh = DBI.connect("...")
  3. File.open("domains.txt").each do |line|
  4.     domain=(line.split)[1]
  5.     puts "#{domain} not exists" unless dbh.select_one("select id from domains where domain='#{domain}'")
  6. end
复制代码

论坛徽章:
0
发表于 2010-02-05 08:04 |显示全部楼层
本帖最后由 hitsubunnu 于 2010-02-05 08:07 编辑

兰兰

更正确的写法应该是将

my $sth = $dbh->prepare("SELECT amt_typ FROM p_loan_typ_gl_dtl WHERE func_id=? AND amt_typ=?";

放到while外

论坛徽章:
0
发表于 2010-02-05 09:58 |显示全部楼层
回复 35# folklore

直接

print "Hello World\n";

运行的的时候”perl script.pl“就ok了吧!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会 限时8.5折

【架构革新 高效可控】2020年8月17日~19日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP