wow, thankyou that solves all my problems ....perl really does have an answer for everything doesnt it
script now returns
Code:
# ./time.pl
datetime equals 2009-09-01 11:04:03
---------- Post updated at 07:38 AM ---------- Previous update was at 05:04 AM ----------
just out of interest and to save me repeating this code throughout my script when i need it, is there an easy way to functionise this ?
I tried this
Code:
#!/bin/perl -w
sub xxtime() {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $datetime = sprintf "%4d-%02d-%02d %02d:%02d:%02d\n",$year+1900,$mon+1,$mday,$hour,$min,$sec;
return $datetime;
}
xxtime();
print "\n time date equals $datetime\n";
but it returns a null value for $datetime
presumably perl has the ability to create functions that
a) i dont pass arguments to
b) return an updated value for a variable that i can use elsewhere in the script
I am trying to install GCC-3.1.1 on an SGI Indigo2. I already have MIPSpro 7.2.1 installed. However, when I try to configure GCC-3.1.1, I get the message "cc ERROR: cc -o conftest -g failed, You must set the environment variable CC to a working compiler."
What is the name of the MIPSpro c++... (1 Reply)
I am trying to install GCC-3.1.1 on an SGI Indigo2. I already have MIPSpro 7.2.1 installed. However, when I try to configure GCC-3.1.1, I get the message "cc ERROR: cc -o conftest -g failed, You must set the environment variable CC to a working compiler."
What is the name of the MIPSpro c++... (1 Reply)
I want to set a variable to be any number of dashes. Rather than doing the following:
MYVAR="------------------"
I'd like to be able to set the variable to, say, 80 dashes but don't want to have to count 80 dashes. Is there a way to do this? (2 Replies)
L=0
cat test.sh | while read line
do
L='expr $1 + 1'
echo $L
done
echo $l
>>> the echo $L at the end produces 0 but i actually want it to produce the number of lines - any idea why this is happening? (16 Replies)
How do you set a varible with information that contains a string and also another variable? For example:
subject="Attention: $name / This $type needs your attention"
The $xxxx are of course other variables that I instantiated earlier. Is it like Java where you have to use double quotes and... (1 Reply)
In my script, I have the following command....
du -sk `ls -ltd sales12|awk '{print $11}'`|awk '{print $1}'
it returns the value
383283
I want to modify my script to capture that value into a variable. So, I try doing the following...
var1=`du -sk `ls -ltd sales12|awk '{print... (5 Replies)
I am working within a while loop and i am trying to set a variable that will read out each count of the files. the problem is the count variable i have set up gives me a total and not the individual count of each file. in the data area there is 4 abc.dat and 1 def.dat.
how can i do this???
... (2 Replies)
Hi,
I already have one CPP program which invokes the C program.And the C program contains whole function definitions..!This is a working program..I have to enable the logs in both CPP as well as in the C program ..!So I am reading the enviornmental variable log path from the CPP and doing the... (2 Replies)
Hi,
i have a variable which i would like to set inside an if block
for example
IS_VAR=0
if
then
IS_VAR=1
fi
echo IS_VAR
the last echo statement gives 0.So setting variables in the if block doesnt have effect outside the block?Is there any workaround for this?
Thanks ,
Padmini (11 Replies)
This's my problem
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LC_ALL = "en_US.UTF-8",
LC__FASTMSG = "true",
LC_MESSAGES = "",
LC_CTYPE = "en_US.UTF-8",
LC_TYPE = "en_US.UTF-8",
LANG = "EN_US"... (1 Reply)
Discussion started by: bobochacha29
1 Replies
LEARN ABOUT DEBIAN
test::mocktime
Test::MockTime(3pm) User Contributed Perl Documentation Test::MockTime(3pm)NAME
Test::MockTime - Replaces actual time with simulated time
SYNOPSIS
use Test::MockTime qw( :all );
set_relative_time(-600);
# do some tests depending on time increasing from 600 seconds ago
set_absolute_time(0);
# do some more tests depending on time starting from the epoch
# epoch may vary according to platform. see perlport.
set_fixed_time(CORE::time());
# do some more tests depending on time staying at the current actual time
set_absolute_time('1970-01-01T00:00:00Z');
# do some tests depending on time starting at Unix epoch time
set_fixed_time('01/01/1970 00:00:00', '%m/%d/%Y %H:%M:%S');
# do some tests depending on time staying at the Unix epoch time
restore_time();
# resume normal service
DESCRIPTION
This module was created to enable test suites to test code at specific points in time. Specifically it overrides localtime, gmtime and time
at compile time and then relies on the user supplying a mock time via set_relative_time, set_absolute_time or set_fixed_time to alter
future calls to gmtime,time or localtime.
Functions
set_absolute_time
If given a single, numeric argument, the argument is an absolute time (for example, if 0 is supplied, the absolute time will be the
epoch), and calculates the offset to allow subsequent calls to time, gmtime and localtime to reflect this.
for example, in the following code
Time::Mock::set_absolute_time(0);
my ($start) = time;
sleep 2;
my ($end) = time;
The $end variable should contain 2 seconds past the epoch;
If given two arguments, the first argument is taken to be an absolute time in some string format (for example, "01/01/1970 00:00:00").
The second argument is taken to be a "strptime" format string (for example, "%m/%d/%Y %H:%M:%S"). If a single argument is given, but
that argument is not numeric, a "strptime" format string of "%Y-%m-%dT%H:%M:%SZ" is assumed.
for example, in the following code
Time::Mock::set_absolute_time('1970-01-01T00:00:00Z');
my ($start) = time;
sleep 2;
my ($end) = time;
The $end variable should contain 2 seconds past the Unix epoch;
set_relative_time($relative)
takes as an argument an relative value from current time (for example, if -10 is supplied, current time be converted to actual machine
time - 10 seconds) and calculates the offset to allow subsequent calls to time,gmtime and localtime to reflect this.
for example, in the following code
my ($start) = time;
Time::Mock::set_relative_time(-600);
sleep 600;
my ($end) = time;
The $end variable should contain either the same or very similar values to the $start variable.
set_fixed_time
If given a single, numeric argument, the argument is an absolute time (for example, if 0 is supplied, the absolute time will be the
epoch). All subsequent calls to gmtime, localtime and time will return this value.
for example, in the following code
Time::Mock::set_fixed_time(time)
my ($start) = time;
sleep 3;
my ($end) = time;
the $end variable and the $start variable will contain the same results
If given two arguments, the first argument is taken to be an absolute time in some string format (for example, "01/01/1970 00:00:00").
The second argument is taken to be a "strptime" format string (for example, "%m/%d/%Y %H:%M:%S"). If a single argument is given, but
that argument is not numeric, a "strptime" format string of "%Y-%m-%dT%H:%M:%SZ" is assumed.
restore()
restore the default time handling values. "restore_time" is an alias. When exported with the 'all' tag, this subroutine is exported as
"restore_time".
AUTHOR
David Dick <ddick@cpan.org>
PREREQUISITES
Time::Piece 1.08 or greater
BUGS
Probably.
COPYRIGHT
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
ACKNOWLEDGEMENTS
Thanks to a use.perl.org journal entry <http://use.perl.org/~geoff/journal/20660> by Geoffrey Young.
perl v5.10.0 2008-06-29 Test::MockTime(3pm)