Hi all
I want to do a simple substitution in awk but I am getting unexpected output. My function accepts a time and then prints out a validation message if the time is valid. However some times may include a : and i want to strip this out if it exists before i get to the validation. I have shown a small sample of my function below which is giving the unexpected output. When this function is called with 23:01 the first print time gives 23:01 but the second gives a 1. What i want is simply 2301.
Can anyone let me know what im doing wrong.
Thanks
Hi all,
This problem has cost me half a day, and i still do not know how to do.
Any help will be appreciated. Thanks advance.
I want to use a variable as the first parameters of gsub function of awk.
Example:
{
...
arri]=gsub(i,tolower(i),$1)
(which should be ambraced by //)
...
} (1 Reply)
Hello,
I have a variable that displays the following results from a JVM....
1602100K->1578435K
I would like to collect the value of 1578435 which is the value after a garbage collection. I've tried the following command but it looks like I can't get the > to work. Any suggestions as... (4 Replies)
Hi,
Can some one please explain the following line please throw some light on the ones marked in red
awk '{print $9}' ${FTP_LOG} | awk -v start=${START_DATE} 'BEGIN { FS = "." } { old_line1=$0; gsub(/\-/,""); if ( $3 >= start ) print old_line1 }' | awk -v end=${END_DATE} 'BEGIN { FS="." } {... (3 Replies)
I want to replace comma with space and "*646#" with space.
I am using the following code:
nawk -F"|" '{gsub(","," ",$3); gsub(/\*646\#/"," ",$3);print}' OFS="|" file
I am getting following error:
Help is appreciated (5 Replies)
Being new to awk, I am still running into little stupid things. For this issues I am trying to search for all occurrences of a string in a file and replace all of those occurrences with a replacement string. I tried doing
awk '{gsub("|750101|", "|000000|", $0)}' infile > outfile
Unix... (3 Replies)
Hey,
I would like to replace a string by a new one. Teh problem is that both strings should be variables to be flexible, because I am having a lot of files (with the same structure, but in different folders)
for i in daysim_*
do
cd $i/5/
folder=`pwd |awk '{print $1}'`
awk '{ if... (3 Replies)
Hi, I want to print the first column with original value and without any double quotes
The output should look like
<original column>|<column without quotes>
$ cat a.txt
"20121023","19301229712","100397"
"20121023","19361629712","100778"
"20121030A","19361630412","100838"... (3 Replies)
Hello,
I'm trying to substitute a string with leading zero for all the records except the trailer record using awk command and with variables. The input file test_med1.txt has data like below
1234ABC...........................9200............LF... (2 Replies)
Hello, I had some difficulty to understand the gsub function and maybe the regex in this script to remove all the punctuations:
awk 'gsub(//, " ", $0)' text.txtFile text.txt:
This is a test for gsub
I typed this random text file
which contains punctuation like ,.;!'"?/\ etc.
The script... (6 Replies)
Discussion started by: yifangt
6 Replies
LEARN ABOUT MOJAVE
date::language::bulgarian
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)