hi , seems perl is a little bit easier to address your issue.
Code:
use strict;
my ($n,%hash)=(1);
open FH,"<a.txt";
while(<FH>){
chomp;
my @tmp=split("[|]",$_);
if ( not exists $hash{$tmp[1]}){
$hash{$tmp[1]}->{SEQ}=$n;
$hash{$tmp[1]}->{VAL}=$_;
$n++;
}
else{
my @t=split("[|]",$hash{$tmp[1]}->{VAL});
my $pre=join "|",@t[0..2];
my $mid=$t[3]." ".$tmp[3];
my $post=$t[4];
$hash{$tmp[1]}->{VAL}=$pre."|".$mid."|".$post;
}
}
close FH;
for my $key (sort { $hash{$a}->{SEQ} <=> $hash{$b}->{SEQ} } keys %hash){
print $hash{$key}->{SEQ}."|".substr($hash{$key}->{VAL},index($hash{$key}->{VAL},"|")+1),"\n";
}
i'm new to shell scripting and have a problem please help me
in the script i have a nawk block which has a variable count
nawk{
.
.
.
count=count+1
print count
}
now i want to access the value of the count variable outside the awk block,like..
s=`expr count / m`
(m is... (5 Replies)
HI guys,
I have created a script to read 1 column in a csv file and then place it in text file.
However, when i checked out the text file, it is not in a column format...
Example:
CSV file contains
name,age
aa,11
bb,22
cc,33
After using awk to get first column
TXT file... (1 Reply)
Hi All,
I have the following file that has computer data for various pcs in my network...
Snap of the file is as follows
*******************************************************************************
Serial
123456
Computer IP Address
lo0:... (1 Reply)
Hi All,
I have an xml file with the below format.
<a>111</a><b>222</b><c>333<c><d><e>123</e><f>234</f><d><e>456</e><f>789</f>
output needed is
111,222,333,123,234
111,222,333,456,789
nawk 'BEGIN{FS="<|>"}
{print a,b,c,e,f
a=""
... (7 Replies)
Hi! I have a file which I want to search daily for any line that contains the work 'Reason' and I want to take that line and put the data in a certain format using awk or nawk....I do not have gawk on my machine so it would have to be awk or nawk, or sed would work as well. Here are some examples... (9 Replies)
Hi all,
I try to make a awk-script, which counts lines, summarized by pdf and xml.
So far it works, but for sorting reasons, I'd like to change the format from the field $1 from dd-mm-yyyy to yyyy-mm-dd.
This works find, but: split() and sprintf() prints its output (for no reason, the results... (2 Replies)
Looking for some help and usually when I do a search this site comes up. Hopefully someone can give me a little direction as to how to use one of these two commands to achieve what I'm trying to do.
What am I trying to do?
I need to take the time value in epoch format returned from the... (5 Replies)
Hi, Guys,
There is one question about AWK format. Here is the code:
gawk -F: '/^Dan/ {print "Dan's phone number is ",$2}' lab3.data
An syntax error will come out because the quote mark between Dan and s and first quote mark are recognized as a quote pair.
I want to get the input like this:... (5 Replies)
Hi,
I have a file where I need to change the date format on the nth field from DD-MM-YYYY to YYYY-MM-DD so I can accurately sort the record by dates
From regex - Use sed or awk to fix date format - Stack Overflow, I found an example using nawk.
Test run as below:
$: cat xyz.txt
A ... (2 Replies)
Discussion started by: newbie_01
2 Replies
LEARN ABOUT OSX
mac::types
Types(3) User Contributed Perl Documentation Types(3)NAME
Mac::Types - Macintosh Toolbox Types and conversions.
DESCRIPTION
Access to Inside Macintosh is essential for proper use of these functions. Explanations of terms, processes and procedures are provided
there. Any attempt to use these functions without guidance can cause severe errors in your machine, including corruption of data. You have
been warned.
Functions
MacPack [ CONVERTERS ...] CODE, DATA ...
Convert a perl value into a Mac toolbox type. Predefined codes are:
TEXT
Text (an identity operation).
enum
type
keyw
A 4-byte string.
bool
A boolean.
shor
A short integer.
long
A long integer.
sing
A single precision float.
doub
A double precision float.
magn
An unsigned long.
qdrt
A QuickDraw "Rect".
'STR '
A pascal style string.
'STR#'
A string list.
'fss '
A file specification record.
You can pass further code mappings as hash references.
MacUnpack [ CONVERTERS ...] CODE, DATA
Convert a Mac toolbox type into a perl value. Predefined codes are as for "MacPack". You can pass further code mappings as hash
references.
XS Functions
Debugger [ MSG ]
Break into MacsBug. Don't use this if you don't know what MacsBug is.
AUTHOR
Written by Matthias Ulrich Neeracher <neeracher@mac.com>. Currently maintained by Chris Nandor <pudge@pobox.com>.
perl v5.16.2 2013-08-25 Types(3)