Conflict with Time::Local and Time::localtime

[Michael Barto]

I have a Perl program that gets the date of a file using 'ctime' from "use
Time::localtime;" But this program must also convert an
Epoch time to a date and time using 'localtime'
from "use Time::Local;". The
problem is it appears that only one of these modules can be used in a
single program. Not both since a localtime
subroutine exist as the same name in both modules. How can I support
using both modules in the same program?. Here are the snippits:


#!/usr/bin/perl
use Time:localtime;
use Time:Local;

#needs Time::Local
sub convertEPOCHtime ($) {
 my $time = $_[0];
 my ($seconds, $minutes, $hours, $day_of_month, $month,
$year, $wday, $yday, $isdst) = localtime
($time);
 $year += 1900;
 my @themonths =
("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
 my @weekdays = ("xxx", "Sat", "Sun", "Mon", "Tue", "Wed", "Thr",
"Fri", );
 if ($hours  10) {
  $hours = '0' . "$hours";
 }
 my $datestring = "$weekdays[$wday] $themonths[$month] $day_of_month
${hours}:${minutes} $year";
 return ($datestring);
}

# needs Time::localtime
sub FILEdate ($) {
 my $filename = $_[0];
 my $as_of_date = ctime(stat("$filename")-mtime);
 return ($as_of_date);
}

-- 





  

  
  


  Michael Barto
  Software Architect
  
  
  
  


   LogiQwest
Inc.
16458 Bolsa Chica Street, # 15
Huntington Beach, CA92649
  http://www.logiqwest.com/
  
  
  
  [EMAIL PROTECTED]
Tel:714 377 3705
Fax:714 840 3937
Cell: 714 883 1949
  
  


  'tis a gift to be
simple
   


   This e-mail may contain
LogiQwest
proprietary information and should be treated as confidential. 

  

Re: Conflict with Time::Local and Time::localtime

[Sherm Pendley]

On Dec 31, 2006, at 4:19 AM, Michael Barto wrote:

I have a Perl program that gets the date of a file using 'ctime'  
from use Time::localtime; But this program must also convert an  
Epoch time to a date and time using 'localtime' from use  
Time::Local;. The problem is it appears that only one of these  
modules can be used in a single program. Not both since a localtime  
subroutine exist as the same name in both modules.  How can I  
support using both modules in the same program?. Here are the  
snippits:



#!/usr/bin/perl
use Time:localtime;
use Time:Local;


You're importing everything by default. Instead, only import the  
specific functions you need from each module:


#!/usr/bin/perl

use Time::localtime qw(ctime);
use Time::Local qw(localtime);

Have a look at perldoc Exporter for more, especially the section  
titled How to Import.


sherm--

Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net