发布时间：2013-05-26 21:01:44

点击(此处)折叠或打开use strict;open(FH,"......【阅读全文】

发布时间：2013-05-26 20:25:47

点击(此处)折叠或打开$maximum = &max( 3, 5, 10, 4, 6 );sub max {    my ($myx_so_far) = shift @_;    foreach (@_) {        if (.........【阅读全文】

发布时间：2013-05-26 20:21:46

00014367423811520328285王小勇-109.00C0024367423811520214121刁晓用-7.2500034367423811520214071喻大森409.0010014367423811520212695吕二青234.1810036227003818620017835王得丹679.49D0046227003813550029454刘小波767.22R0054367423811520212943徐小明559.32希望得到：1︱4367423811520328285︱王小勇 | 0.........【阅读全文】

发布时间：2013-05-26 20:12:49

$str = "abc;efg;ddd; fdd";需求：将$str分割成 "abc",  "efg",  "ddd; fdd" 三个元素（碰到分号分割，而碰到分号加空格不分割）点击(此处)折叠或打开while(<DATA>){my @list = split /;(?=w)/;print join ",",@list;}.........【阅读全文】

发布时间：2013-05-26 19:46:30

5个员工，进行抽奖，分一等奖，二等奖...五等奖，即每个员工均有机会被抽中，直到一轮结束。......【阅读全文】