系统运维
发布时间: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;}.........【阅读全文】