11-22-2006
Pretty easy with perl:
$ perl -e 'print scalar localtime(shift),"\n"' 1164876000
Thu Nov 30 03:40:00 2006
Even if you have not installed a recent version of perl, HP-UX should have an old version in /usr/contrib/bin that is good enough for this.
10 More Discussions You Might Find Interesting
1. UNIX for Advanced & Expert Users
Hello,
How do i translate datevalues in unix to normal dates.
and how do i translate normal dates in to datevalues.
I'm using the unix-date.
Sample:
1067949360 to 4-11-03 12:36
and
4-11-03 12:36 to 1067949360
I want to built a script with a question to the user: give in date... (4 Replies)
Discussion started by: Frederik
4 Replies
2. Solaris
hi all
how do we get the milli seconds in sun unix?
i am using
date +%Y%m%d%H%M%S
to get the unique id and create the file based on this.
but the problem is that if process to load the table takes only less than 1 sec i am getting errror on my table which have the primary key.
how... (2 Replies)
Discussion started by: r2b
2 Replies
3. Shell Programming and Scripting
hi all
how do we get the milli seconds in sun unix?
i am using
date +%Y%m%d%H%M%S
to get the unique id and create the file based on this.
but the problem is that if process to load the table takes only less than 1 sec i am getting errror on my table which have the primary key.
how... (1 Reply)
Discussion started by: r2b
1 Replies
4. Shell Programming and Scripting
Need a little help developing a ksh script. Have read through Perderabo's datecalc routine and it does not seem to fit the function I am looking for. Basically what I am trying to do is find any file (in a specific directory) that was created within the last five minutes. I am not a programming... (3 Replies)
Discussion started by: synergy_texas
3 Replies
5. Shell Programming and Scripting
Can i get date format in micro seconds in unix
example
2012-01-27- 12.22.04.568722
Any help is appreciable (2 Replies)
Discussion started by: srichunduru
2 Replies
6. Shell Programming and Scripting
Dear all,
I have 2 questions.
I have a file with many rows which has date of the format YYYYMMDD.
1. I need to change the date to that weeks friday date(Ex: 20120716(monday) to 20120720). Satuday/Sunday has to be changed to next week friday date too.
2. After converting the date to... (10 Replies)
Discussion started by: 2001.arun
10 Replies
7. Shell Programming and Scripting
I am trying to get date to display decimal
Desired output 1350386096256.12
I know this can be done with printf, but are not able to make it work.
I have tested this and many otherprintf "%.2f" $(($(date +%s%N)/1000000)) (8 Replies)
Discussion started by: Jotne
8 Replies
8. Shell Programming and Scripting
Hello,
I have a file with below contents and need to set seconds value to 00 (as you can see few time stamps are with 01 seconds)
18:16:00 8192 7301 89 11
18:21:00 8192 7305 89 11
18:26:00 8192 7306 89 11
18:31:00 8192 7306 ... (6 Replies)
Discussion started by: reddyr
6 Replies
9. Shell Programming and Scripting
Hi,
Need to subtract 5 seconds after syncing my Linux server from NTP like;
#ntpdate time.myorg.int.
This script will only run once in each morning at 9 AM.
Please help me. (4 Replies)
Discussion started by: refra
4 Replies
10. Shell Programming and Scripting
Hi,
I have a string date to my unix script(sun solaris). I wanted to convert it into unix date so that I can use it in a conditional statement. Please see below:
MyTest.sh -s 2018-05-09
suppdt=$1 # string date passed via arguement as 2018-04-09
curryr=`date '+%Y'`
nextyr=`expr... (2 Replies)
Discussion started by: Saanvi1
2 Replies
LEARN ABOUT OSX
tap::parser::sourcehandler::perl
TAP::Parser::SourceHandler::Perl(3pm) Perl Programmers Reference Guide TAP::Parser::SourceHandler::Perl(3pm)
NAME
TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable
VERSION
Version 3.23
SYNOPSIS
use TAP::Parser::Source;
use TAP::Parser::SourceHandler::Perl;
my $source = TAP::Parser::Source->new->raw( 'script.pl' );
$source->assemble_meta;
my $class = 'TAP::Parser::SourceHandler::Perl';
my $vote = $class->can_handle( $source );
my $iter = $class->make_iterator( $source );
DESCRIPTION
This is a Perl TAP::Parser::SourceHandler - it has 2 jobs:
1. Figure out if the TAP::Parser::Source it's given is actually a Perl script ("can_handle").
2. Creates an iterator for Perl sources ("make_iterator").
Unless you're writing a plugin or subclassing TAP::Parser, you probably won't need to use this module directly.
METHODS
Class Methods
"can_handle"
my $vote = $class->can_handle( $source );
Only votes if $source looks like a file. Casts the following votes:
0.9 if it has a shebang ala "#!...perl"
0.75 if it has any shebang
0.8 if it's a .t file
0.9 if it's a .pl file
0.75 if it's in a 't' directory
0.25 by default (backwards compat)
"make_iterator"
my $iterator = $class->make_iterator( $source );
Constructs & returns a new TAP::Parser::Iterator::Process for the source. Assumes "$source->raw" contains a reference to the perl script.
"croak"s if the file could not be found.
The command to run is built as follows:
$perl @switches $perl_script @test_args
The perl command to use is determined by "get_perl". The command generated is guaranteed to preserve:
PERL5LIB
PERL5OPT
Taint Mode, if set in the script's shebang
Note: the command generated will not respect any shebang line defined in your Perl script. This is only a problem if you have compiled a
custom version of Perl or if you want to use a specific version of Perl for one test and a different version for another, for example:
#!/path/to/a/custom_perl --some --args
#!/usr/local/perl-5.6/bin/perl -w
Currently you need to write a plugin to get around this.
"get_taint"
Decode any taint switches from a Perl shebang line.
# $taint will be 't'
my $taint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl -t' );
# $untaint will be undefined
my $untaint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl' );
"get_perl"
Gets the version of Perl currently running the test suite.
SUBCLASSING
Please see "SUBCLASSING" in TAP::Parser for a subclassing overview.
Example
package MyPerlSourceHandler;
use strict;
use vars '@ISA';
use TAP::Parser::SourceHandler::Perl;
@ISA = qw( TAP::Parser::SourceHandler::Perl );
# use the version of perl from the shebang line in the test file
sub get_perl {
my $self = shift;
if (my $shebang = $self->shebang( $self->{file} )) {
$shebang =~ /^#!(.*perl.*?)(?:(?:s)|(?:$))/;
return $1 if $1;
}
return $self->SUPER::get_perl(@_);
}
SEE ALSO
TAP::Object, TAP::Parser, TAP::Parser::IteratorFactory, TAP::Parser::SourceHandler, TAP::Parser::SourceHandler::Executable,
TAP::Parser::SourceHandler::File, TAP::Parser::SourceHandler::Handle, TAP::Parser::SourceHandler::RawTAP
perl v5.16.2 2012-10-25 TAP::Parser::SourceHandler::Perl(3pm)