12 / 2 页

论坛徽章:: 0

11楼 [报告]

发表于 2013-08-30 13:05 |只看该作者

本帖最后由范闲丶于 2013-08-30 13:06 编辑

在 @d0=split /\//,$_[0];
      @d1=split /\//,$_[1];
也要改成对应的格式比如
while (<DATA>) {
if(/[0-9]{4}-[0-9]{1,2}-[0-9]{2}/){
      $min_date="2013-9-28";
      $max_date="2013-10-3";
      print "$_" if(&com_date($&,$min_date)>=0 and &com_date($&,$max_date)<=0);
}
}
sub com_date
{
      @d0=split /\-/,$_[0];
      @d1=split /\-/,$_[1];
      for($i=0;$i<3;$i++)
      {
               next if($d0[$i] eq $d1[$i]);
         return $d0[$i]-$d1[$i];
      }
}
__DATA__
2013-9-25
2013-9-26
2013-9-27
2013-9-28
2013-9-29
2013-9-30
2013-10-01
2013-10-02
2013-10-03
2013-10-04
2013-10-05

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

feiying00917

白手起家

论坛徽章:: 0

12楼 [报告]

发表于 2013-09-21 23:22 |只看该作者

本帖最后由 feiying00917 于 2013-09-21 23:27 编辑

谢谢！很好的算法，我已经用上了，能否请请教一个问题。关于Perl多维哈希的问题，我们经常一道一种表格结构，如下，以\t分割

InstUin Netlist RefDes Component UinNum SchUinName UinName
J1:1:U3_3V_U1 1 J1 SAS_29UIN U1 3.3V_1 U3_3V_U1
J1:1:GND_U10 1 J1 SAS_29UIN U10 GND10 GND_U10
J1:1:READY_LED 1 J1 SAS_29UIN U11 READY_LED READY_LED
J1:1:GND_U12 1 J1 SAS_29UIN U12 GND11 GND_U12
J1:1:U12V_URECHARGE 1 J1 SAS_29UIN U13 12VURCHG
我想存储表格与数据的对应关系，想用一种复杂的哈希结构，$hash->{'InstUin'}->{"J1:1:U3_3V_U1"}->{"Netlist"}="1"， $hash->{'InstUin'}->{"J1:1:U3_3V_U1"}->{"Refdes"}="J1"，
这样的结构，类似是哈希的第一维键是InstUin，第二维键是J1:1:U3_3V_U1，J1:1:GND_U10....
第三维键是Netlist，Refdes......(表头），类似这样一种结构，请问这样的结构可以实现吗，求帮忙！