|
|
Sponsored Content
Top Forums
Shell Programming and Scripting
If not ...then
Post 99087 by sabercats on Tuesday 14th of February 2006 02:26:50 PM
02-14-2006
I can not use sed in this case because sed look for a file, but I look for a field.
here is my code:
========
#!/bin/ksh
cd /DATA
for file in MainCD*log; do
newFile=`ls -1 $file|awk -F. '{ \
y = substr($1,7,4); \
m = substr($1,11,2); \
d = substr($1,13,2); \
printf "irv-%s%s%s.dat",y,m,d \
}'`
grep "," $file |
sort -t"|" +1 -2 +5 -6 |
awk -F"," '{
if (($5 == "002") && ($6 == "FE")) {
ani = $7;
logdate = $3;
logtime = $4;
lastloc = $10;
acc = $9;
if ($19 !~ /^FE|^MN/)
sub(/^:/,"",firstloc)
printf "%s|%s|%s|%s|%s|%s\n",ani,logdate,logtime,firstloc,lastloc,acc;
}
}' |
sort -t, +0 -1 > /NEWDIRECT/$newFile
done
============
I really want the firstloc have only
firstloc=SV-SvcMenu
or
firstloc= BP-FinStatus
Please show me what trick you will use
Thanks,
here is my code:
========
#!/bin/ksh
cd /DATA
for file in MainCD*log; do
newFile=`ls -1 $file|awk -F. '{ \
y = substr($1,7,4); \
m = substr($1,11,2); \
d = substr($1,13,2); \
printf "irv-%s%s%s.dat",y,m,d \
}'`
grep "," $file |
sort -t"|" +1 -2 +5 -6 |
awk -F"," '{
if (($5 == "002") && ($6 == "FE")) {
ani = $7;
logdate = $3;
logtime = $4;
lastloc = $10;
acc = $9;
if ($19 !~ /^FE|^MN/)
sub(/^:/,"",firstloc)
printf "%s|%s|%s|%s|%s|%s\n",ani,logdate,logtime,firstloc,lastloc,acc;
}
}' |
sort -t, +0 -1 > /NEWDIRECT/$newFile
done
============
I really want the firstloc have only
firstloc=SV-SvcMenu
or
firstloc= BP-FinStatus
Please show me what trick you will use
Thanks,
|
|
LEARN ABOUT CENTOS
perl::critic::policy::builtinfunctions::prohibitlvaluesubstr
Perl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSuUser(Contributed Perl DocumPerl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSubstr(3) NAME
Perl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSubstr - Use 4-argument "substr" instead of writing "substr($foo, 2, 6) = $bar". AFFILIATION
This Policy is part of the core Perl::Critic distribution. DESCRIPTION
Conway discourages the use of "substr()" as an lvalue, instead recommending that the 4-argument version of "substr()" be used instead. substr($something, 1, 2) = $newvalue; # not ok substr($something, 1, 2, $newvalue); # ok The four-argument form of "substr()" was introduced in Perl 5.005. This policy does not report violations on code which explicitly specifies an earlier version of Perl (e.g. "use 5.004;"). CONFIGURATION
This Policy is not configurable except for the standard options. SEE ALSO
"substr" in perlfunc (or "perldoc -f substr"). "4th argument to substr" in perl5005delta AUTHOR
Graham TerMarsch <graham@howlingfrog.com> COPYRIGHT
Copyright (c) 2005-2011 Graham TerMarsch. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.16.3 2014-06-09 Perl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSubstr(3)