关于单独设立perl板块的建议

软件和网站开发以及相关技术探讨
miczhang
帖子: 29
注册时间: 2008-01-02 16:37
来自: shanghai
联系:

关于单独设立perl板块的建议

#1

帖子 miczhang » 2008-03-25 16:14

建议单独设立perl板块

我们都是新人,我是因为工作需要,感觉perl的强大,才转到ubuntu桌面系统 又安全


大家学习perl的都应该交流交流 从基础学起

因为perl是有未来的,我深信不疑!
头像
yaoms
帖子: 4952
注册时间: 2007-10-19 14:51
来自: 深圳

#2

帖子 yaoms » 2008-03-25 16:18

学python吧。比perl可爱阿。呵呵
Nothing 有事请发邮件到 yms541 AT gmail.com
alias 爱慕颇雷尔='mplayer'
头像
millenniumdark
论坛版主
帖子: 4159
注册时间: 2005-07-02 14:41
系统: Ubuntu 14.04 (Kylin)
联系:

#3

帖子 millenniumdark » 2008-03-25 17:47

因为没什么人气,所以都并在一起。
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙

#4

帖子 eexpress » 2008-03-25 20:17

是罗。少人的。
py可爱什么哦。perl牛皮多了。
● 鸣学
tongttt
帖子: 444
注册时间: 2007-11-27 22:20

#5

帖子 tongttt » 2008-03-26 0:08

eexpress 写了:
perl牛皮多了。
真的?
miczhang
帖子: 29
注册时间: 2008-01-02 16:37
来自: shanghai
联系:

求去空格的函数

#6

帖子 miczhang » 2008-03-27 12:45

本人在处理文本文件

取相关字符时,想去掉字符左右2边的空格然后赋值给变量 ,怎么取?

什么函数可以去掉左右空格?
头像
BigSnake.NET
帖子: 12522
注册时间: 2006-07-02 11:16
来自: 廣州
联系:

#7

帖子 BigSnake.NET » 2008-03-27 12:47

m/\s*(.*\S)\s*/
取 $1
^_^ ~~~
要理解递归,首先要理解递归。

地球人都知道,理论上,理论跟实际是没有差别的,但实际上,理论跟实际的差别是相当大滴。
miczhang
帖子: 29
注册时间: 2008-01-02 16:37
来自: shanghai
联系:

#8

帖子 miczhang » 2008-03-27 13:20

$line=" 0 ";
$line=m/\s*(.*\S)\s*/;

取$1好像不对啊
头像
yaoms
帖子: 4952
注册时间: 2007-10-19 14:51
来自: 深圳

#9

帖子 yaoms » 2008-03-27 13:24

m/\s*(\S\S*)\s*/
这样呢?
Nothing 有事请发邮件到 yms541 AT gmail.com
alias 爱慕颇雷尔='mplayer'
头像
BigSnake.NET
帖子: 12522
注册时间: 2006-07-02 11:16
来自: 廣州
联系:

#10

帖子 BigSnake.NET » 2008-03-27 13:25

miczhang 写了:$line=" 0 ";
$line=m/\s*(.*\S)\s*/;

取$1好像不对啊
... 是
$line=~m/\s*(.*\S)\s*/;

你不会perl?
^_^ ~~~
要理解递归,首先要理解递归。

地球人都知道,理论上,理论跟实际是没有差别的,但实际上,理论跟实际的差别是相当大滴。
miczhang
帖子: 29
注册时间: 2008-01-02 16:37
来自: shanghai
联系:

#11

帖子 miczhang » 2008-03-27 14:05

ok了

正则表达式 感觉有点复杂

漏了~

呵呵 现在好了 谢谢!

本人刚学习perl,处理文本功能很强,所以喜欢
miczhang
帖子: 29
注册时间: 2008-01-02 16:37
来自: shanghai
联系:

#12

帖子 miczhang » 2008-03-27 14:09

用正则表大事怎么把“080313121750”

化为以下格式:

“2008-03-13 12:17:50"

请赐教!
头像
yaoms
帖子: 4952
注册时间: 2007-10-19 14:51
来自: 深圳

#13

帖子 yaoms » 2008-03-27 14:29

代码: 全选

$line="080313121750";
$line=~s/(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/20\1-\2-\3 \4:\5:\6/;
print $line;
这个正则好丑。。。看得眼花。 :em20
Nothing 有事请发邮件到 yms541 AT gmail.com
alias 爱慕颇雷尔='mplayer'
miczhang
帖子: 29
注册时间: 2008-01-02 16:37
来自: shanghai
联系:

#14

帖子 miczhang » 2008-03-27 14:49

呵呵 强的

果然可以的

perl的强大,伙伴们的强大啊

xx一跃 不及千里
驽马十驾 功在不舍

xx 2 个字打不出来 ,不知道有人支持吗?
头像
RegentW
帖子: 1486
注册时间: 2007-02-27 21:47
来自: NN

#15

帖子 RegentW » 2008-04-04 20:51

似乎是要 /^\s*(.*\S)\s*$/
Core i5, 512G + SSD 20G, DDRIII 8G
回复