/[cvs]/nfo/perl/libs/Date/Merge.pm
ViewVC logotype

Diff of /nfo/perl/libs/Date/Merge.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Sun Dec 22 14:15:59 2002 UTC revision 1.2 by joko, Mon Dec 23 13:44:53 2002 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.2  2002/12/23 13:44:53  joko
6    ##  + sub stripDayName
7    ##
8  ##  Revision 1.1  2002/12/22 14:15:59  joko  ##  Revision 1.1  2002/12/22 14:15:59  joko
9  ##  + initial check-in  ##  + initial check-in
10  ##  ##
# Line 17  require Exporter; Line 20  require Exporter;
20  our @ISA = qw( Exporter );  our @ISA = qw( Exporter );
21  our @EXPORT_OK = qw(  our @EXPORT_OK = qw(
22      mergeDayAndTime      mergeDayAndTime
23        stripDayName
24  );  );
25    
26    
# Line 58  sub mergeDayAndTime { Line 62  sub mergeDayAndTime {
62    
63  }  }
64    
65    sub stripDayName {
66      
67      my $date_raw = shift;
68      $date_raw =~ s/[^\d|-]//g;
69      
70      my $date_parsed = ParseDate($date_raw);
71      
72      my $date_full = UnixDate($date_parsed, '%Y-%m-%d %H:%M:%S');
73    
74      return $date_full;
75      
76    }
77    
78  1;  1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed