AWK Script Problem

[Darren Etheridge_2]

I am trying to code a awk script (I'm a newbie) that will parse a file and spit the exceptions to a file; I can get it to display to the screen but not ONLY the exceptions listed in the if statement.. on a second note, if I have lots of values to compare in a if statement, is there a was to code a CASE statement in awk? Any help would be greatly appreciated and points will be awarded for all help :) below is my code:


cat /pei/peifas/ws/wsdata.dat |
awk 'BEGIN { FS=" "; }

value1 = substr($0, 1, 14)
gl_acct = 1234
#acct = substr($0, 4, 8)
damt = substr($0, 93, 13)
camt = substr($0, 105, 13)
desc = "W&S BATCH-" b_month""b_day""b_year
transamt = damt-camt
{
if (value1 = "4111151000000")
{ fund=411
acct=2071130


printf("||%s|%s||||%s||%s|%s|N|%s/%s/%s|WSIMPORT|WS%s%s%s|||\n", fund, acct, gl_
acct, desc, transamt, b_month, b_day, b_fullyear, b_month, b_day, b_year)
}

}'


Darren

[Rodney Hills · Accepted solution]

Try changing your if statement to-

if (value1 == "411115100000")

Rather then using a case statement for multiple tests, you can use the the array syntax-
a["411115100000"]="411,2071130"
a["411222200000"]="511,3082240"
...
split(a[value1],b,",")
fund=b[1]
acct=b[2]
...

HTH

-- Rod Hills

[Darren Etheridge_2]

How would I kick the true values of the if statement to a file?

[Darren Etheridge_2]

BTW, attached is my data file

[H.Merijn Brand (procura]

You need perl. First, you know awk, so, the way to learn perl from awk is to use a2p (awk to perl translator)

Simplified output from a2p

--8<---
#!/usr/bin/perl

$[ = 1; # set array base to 1

$FS = ' ';

while (<>) {
chomp; # strip record separator
print $_ if $value1 = substr($_, 1, 14);
print $_ if $gl_acct = 1234;
#acct = substr($0, 4, 8)
print $_ if $damt = substr($_, 93, 13);
print $_ if $camt = substr($_, 105, 13);
print $_ if $desc = 'W&S BATCH-' . $b_month . '' . $b_day . '' . $b_year;
print $_ if $transamt = $damt - $camt;

if ($value1 = '4111151000000') {
$fund = 411;
$acct = 2071130;

printf "||%s|%s||||%s||%s|%s|N|%s/%s/%s|WSIMPORT|WS%s%s%s|||\n",

$fund, $acct, $gl_acct, $desc, $transamt, $b_month, $b_day,

$b_fullyear, $b_month, $b_day, $b_year;
}
}
-->8---

I know perl much better than awk, and looking at that code, it's probably not what you want

I also don't see b_month, b_day, b_year, and b_fullyear being defined anywhere

In the if statement, you are using = instead of ==, causing an asignment instead of a comparison

--8<---
#!/usr/bin/perl

while (<>) {
chomp;

my ($b_day, $b_month, b_year) = (localtime)[3,4,5];
my $b_fullyear = $b_year + 1900;

my $gl_acct = 1234;
my ($value1, $damt, $camt) = unpack "A14 x79 A13 A13", $_;
my $transamt = $damt - $camt;
my $desc = sprintf "W&S BATCH-%4d%02d%02d", $b_fullyear, $b_month + 1, $b_day;

$value1 eq "4111151000000" or next;

my $fund = 411;
my $acct = 2071130;

printf "||%s|%s||||%s||%s|%s|N|%s/%s/%s|WSIMPORT|WS%s%s%s|||\n",
$fund, $acct, $gl_acct, $desc, $transamt, $b_month, $b_day, $b_fullyear, $b_month, $b_day, $b_year;
}
-->8---

Do my comments make any sense?

Enjoy, Have FUN! H.Merijn

[Rodney Hills]

A typical way to select certain data and print to a file would be-

awk 'if (substr($0,0,4) == "abcd") { print $0 }' outputfile

By redirecting STDOUT to a file, then the lines will be printed to a file...

If you want to get more complicated, like several output files, then you can add "> file" to the print statement.

HTH

-- Rod Hills

[H.Merijn Brand (procura]

Just to make sure I got the numbers right, I took the file from your other post and tested

--8<--- 246551.pl
#!/usr/bin/perl

use strict;
use warnings;

while (<>) {
my ($b_day, $b_month, $b_year) = (localtime)[3,4,5];
my $b_fullyear = $b_year + 1900;

my $gl_acct = 1234;
my ($value1, $damt, $camt) = unpack "A14 x79 A13 A11", $_;
#print;
#print "$value1|$damt|$camt|\n";
my $transamt = $damt - $camt;
my $desc = sprintf "W&S BATCH-%4d%02d%02d", $b_fullyear, $b_month + 1, $b_day;

$value1 eq "4111151000000" or next;

my $fund = 411;
my $acct = 2071130;

printf "||%s|%s||||%s||%s|%s|N|%s/%s/%s|WSIMPORT|WS%s%s%s|||\n",
$fund, $acct, $gl_acct, $desc, $transamt,
$b_month, $b_day, $b_fullyear, $b_month, $b_day, $b_year;
}
-->8---

lt09:/tmp 117 > perl 246551.pl 246551.dat
||411|2071130||||1234||W&S BATCH-20050527|-16.48|N|4/27/2005|WSIMPORT|WS427105|||
lt09:/tmp 118 >

Enjoy, Have FUN! H.Merijn

[Gopi Sekar]

ok the problem seems to be simple:

for any statement which is not covered by brackets, awk prints the entire record. so to fix your problem

start '{' after BEGIN block.

eg:

awk 'BEGIN { FS=" "; "
{
value1 = substr
...

}'

also the if condition value being used is one character short in length in the dat file you have given. check that too.

as far as i know there is no switch case functionality in awk.

Regards,
Gopi

[Jean-Luc Oudart]

Darren,

If you are only interested in "4111151000000" at the beginning of your record you should code a grep and pipe into awk :

grep ^"4111151000000" /pei/peifas/ws/wsdata.dat | awk '{
...
}'
also the test will be
if(value1=="...")

Regards
Jean-Luc

[Hein van den Heuvel]

[ 0 points for this nitpicking/debate reply ]

I respectfully disagree with Jean-Luc's suggestion to filter through grep first.

AWK is good at, and happy to, look for the match itself? Why shove the data through grep, into a pipe, into awk?

The same applies to Darren's suggested use of 'cat' to read the file and feed it to awk.

Awk is perfectly happy to read the file itself! Furthermore, awk (or perl) will have the actual filename available which may be useful for more elaborte scripts with error handlers.

And a field seperator of " " is default.
So the basic awk syntax for this problem is simply:

awk '/^4111151000000/ { fund=... print...}' pei/peifas/ws/wsdata.dat

fwiw,
Hein.