Hi Everyone
i have a perl file below, one of the line is convert the pcho time to human readable format.
if image, if i have lots of pcho time value in a file, if i use this awk, strftime, then tr -d to remove the \n, then assign it to the variable, this process is very slow.
any way to improve it? like perl has built in function, instead of `` the awk.
...
If you are looking for the equivalent of this -
in Perl, then you may want to use the "POSIX" module, which includes the strftime function -
The POSIX module is part of Perl's standard distribution, atleast on *nix systems. Otherwise CPAN is your one-stop shop.
tyler_durden
This User Gave Thanks to durden_tyler For This Post:
Strange behaviour of the strftime() function from gawk (3.1.5):
$ awk 'BEGIN{print strftime("%T", 3600)}'
> 02:00:00
$ awk 'BEGIN{print strftime("%T", 0)}'
> 01:00:00
Obviously something with DST but I can not figure out why? To me 3600 epoch seconds remains 01:00, DST or not.
From... (2 Replies)
Hello,
I really would appreciate some help with a bash script for some string manipulation on an SQL dump:
I'd like to be able to rename "sites/WHATEVER/files" to "sites/SOMETHINGELSE/files" within the sql dump.
This is quite easy with sed:
sed -e... (1 Reply)
Thanks for giving your time and effort to answer questions and helping newbies like me understand awk.
I have a huge file, millions of lines, so perl takes quite a bit of time, I'd like to convert these perl one liners to awk.
Basically I'd like all lines with ISA sandwiched between... (9 Replies)
HI,
i wish to convert a millsec value to a readable string format.
the one option is to use strftime.
However this is a bit costly (1-5 micros).
is there a a faster way to do so with just string manipulation
(Note i have the date object which has the time details but wish o avoid strftime) (2 Replies)
hello,
I want to replace awk with a perl one liner in unix.
i use in awk REGEX and FS ( field separator) because
awk syntaxes in different unix os versions have not the same behaviour.
Awk, Nawk and GNU Awk Cheat Sheet - good coders code, great reuse
i have a file named "file" and want... (5 Replies)
Hi
I know sed and awk has options to give range of line numbers, but
I need to replace pattern in specific lines
Something like
sed -e '1s,14s,26s/pattern/new pattern/' file name
Can somebody help me in this....
I am fine with see/awk/perl
Thank you in advance (9 Replies)
I'm trying to use AWK to filter on some dates in a field by converting them to Unix Time.
mktime(strftime(format,"6-FEB-2013 08:50:03.841")What is the proper format for my date strings as they appear in my database?
My first thought is %d-%b-%Y %H:%M:%Sbut I see the following issues:
%d is... (3 Replies)
My code below will print only the email address from all lines. I want to convert it with sed or awk.. also what if i just want to find only filenames.
cat LIS_EMAIL | perl -wne'while(/+@+\w+/g){print "$&\n"}'
Hoping to extract the filename such us .exe, .bin. From file that has scrambled... (8 Replies)
Discussion started by: invinzin21
8 Replies
LEARN ABOUT MOJAVE
date::language::bulgarian5.18
Date::Language::Bulgarian(3) User Contributed Perl Documentation Date::Language::Bulgarian(3)NAME
Date::Language::Bulgarian - localization for Date::Format
DESCRIPTION
This is Bulgarian localization for Date::Format. It is important to note that this module source code is in utf8. All strings which it
outputs are in utf8, so it is safe to use it currently only with English. You are left alone to try and convert the output when using
different Date::Language::* in the same application. This should be addresed in the future.
SYNOPSIS
use strict;
use warnings;
use Date::Language;
local $=$/;
my $template ='%a %b %e %T %Y (%Y-%m-%d %H:%M:%S)';
my $time=1290883821; #or just use time();
my @lt = localtime($time);
my %languages = qw(English GMT German EEST Bulgarian EET);
binmode(select,':utf8');
foreach my $l(keys %languages){
my $lang = Date::Language->new($l);
my $zone = $languages{$l};
print $/. "$l $zone";
print $lang->time2str($template, $time);
print $lang->time2str($template, $time, $zone);
print $lang->strftime($template, @lt);
}
AUTHOR
Krasimir Berov (berov@cpan.org)
COPYRIGHT
Copyright (c) 2010 Krasimir Berov. This program is free software; you can redistribute it and/or modify it under the same terms as Perl
itself.
perl v5.18.2 2010-12-14 Date::Language::Bulgarian(3)