/[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.3 by joko, Sun Feb 9 16:15:51 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/02/09 16:15:51  joko
6    ##  + minor update regarding module namespace refactoring
7    ##
8    ##  Revision 1.2  2002/12/23 13:44:53  joko
9    ##  + sub stripDayName
10    ##
11  ##  Revision 1.1  2002/12/22 14:15:59  joko  ##  Revision 1.1  2002/12/22 14:15:59  joko
12  ##  + initial check-in  ##  + initial check-in
13  ##  ##
# Line 17  require Exporter; Line 23  require Exporter;
23  our @ISA = qw( Exporter );  our @ISA = qw( Exporter );
24  our @EXPORT_OK = qw(  our @EXPORT_OK = qw(
25      mergeDayAndTime      mergeDayAndTime
26        stripDayName
27  );  );
28    
29    
30  use Date::Manip;  use Date::Manip;
31  use libp qw( today );  use shortcuts qw( today );
32    
33    
34  sub mergeDayAndTime {  sub mergeDayAndTime {
# Line 58  sub mergeDayAndTime { Line 65  sub mergeDayAndTime {
65    
66  }  }
67    
68    sub stripDayName {
69      
70      my $date_raw = shift;
71      $date_raw =~ s/[^\d|-]//g;
72      
73      my $date_parsed = ParseDate($date_raw);
74      
75      my $date_full = UnixDate($date_parsed, '%Y-%m-%d %H:%M:%S');
76    
77      return $date_full;
78      
79    }
80    
81  1;  1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed