Search Results

could probably be simplified a bit, but it's a start...
awk -f rath.awk wevlogFile where rath.awk is:

BEGIN {
FS=OFS="|"
fA[4];fA[5]
}
function uniq(f, s,a,at,i)
{
s=""
...

Hi ratheeshjulk,
On my system, with the sample input provided in post#1 in this thread, vgersh99's code produces the output:
abc|xyz|123|agentcode=sample code abcdeeess|agentadd=abcd stereet 23343...

Try:
ps axo user,pid,ppid,pcpu,%mem,vsz,rss,tt,stat,start,time,command

ps -eo cmd,user,pid,ppid,pcpu,pmem,vsz,rss,start,stat

These are just thumb rules to start with. The real rule is simple, the swap should be large enough to avoid being out of swap and might be much larger with no negative effect. This is essentially...

The virtual addresses add up to about 6 GB. The resident memory is about 2 GB.

If a program allocates a 5 GB array its virtual address space utilization instantly increases by 5 GB because...

If the CPU is fully utilized, the performance slow down linearily with the extra load.
If the RAM is fully utilized, SWAP will start to be used. The performance might slow down much more intensively...

Another awk approach:
awk '
!(n) {
n = sub ( />\$ABCD</, ">$XXXXXX<" )
}
n {
sub ( />ABCD</, ">XYZZ<" )
sub ( />\$ddd</,...

$ cat subrecord.awk

BEGIN { RS="<"; ORS="<"; P=1 }

NR==1 { printf("%s",ORS); }
FNR==1 && (!$1) { next }

NR==FNR { D[++L]=$0; next }
/^SubRecord>/ {
T++;
if(T == 2)
...

check this.

But the below will match the incorrect date also ( eg. 88/99/99 xx:xx:xx )

check the regex pattern and correct it


nawk '{if(match($0,"[0-9][0-9]\/[0-9][0-9]\/[0-9][0-9]...

ok. make it simpler


nawk -F: -v OFS=":" '{$1=substr($1,length($1)-10,11)}1' input.txt

Looks like movie's subtitles.

gawk -v i=30 'function t(x){ split(x,a,":|,")
str=mktime("2011 1 1 " a[1] FS a[2] FS a[3])+i
return strftime("%H:%M:%S",str) "," a[4]}
...

$ perl -lane 'if($_ =~ /[AP]M$/){print $_ . "\{\}";}else{print $_}' infile
22113350444356|Status:Assigned,Notes:
APP PRD |Sep 28 2011 12:12:55:660PM{}
22113350398356|Status:Assigned,Notes:
APP...

Yes,
it appends {} to the lines ending by a semicolon, 3 digits and 2 word characters:

\d{3} - 3 digits
\w{2} - 2 word characters
$ - end of line

perl -i -pe's/:\d{3}\w{2}$/$&\{\}/' infile

You have not any lines with 8 fields. But
awk -F, -vN=8 '
NF == N { print > "file1" }
NF != N { print > "file2" }
' INPUTFILE

Example has up to 9 columns.


$> awk -F, 'NF==9 {print > "file_1"; next} {print > "file_2"}' infile
$> cat file_1
a,s,d,f,g,h,j,k,l
1,2,3,3,4,5,6,7,6
$> cat file_2
a,2,3
4,5,6,7

-0lne reads the whole file.
s/\n//g replaces all new line charecters and makes it into a single line.

print "$1\n" while /(.*?{})/g' this will try to do a minimalistic pattern match for any...

If {} marks the end of line, try this


perl -0lne 's/\n//g;print "$1\n" while /(.*?{})/g' input file.