awk cannot be longer than 3,000 bytes.

y331044508

HP-UX c3700 B.11.00 A 9000/785 2008697521 two-user license

-bash-3.2$ awk "NR>492115" FmServer.log.1_02_42_55
awk: Input line 00:15:08.608 INFO  [ cannot be longer than 3,000 bytes.
The input line number is 18316. The file is FmServer.log.1_02_42_55.
The source line number is 1.

请问这个问题在HP服务器如何解决，或者是否有其他的途径可以实现以下操作？？？


awk "NR>492115" FmServer.log.1_02_42_55|grep "queue size"|awk -F'=' '{print$2}'

waker

用nawk或gawk试试
或者 sed -e 1,492115d urfile

jils2013

好像没什么办法，hp上面awk 单行超过这个限制就会报错，但是不会影响下一行处理

当时搞得一个脚本aix 上跑没什么问题，搞到hp上处理某些行就会报错

y331044508

回复 2# waker


用nawk或gawk试试
-----------这两个命令在HP上没有
或者 sed -e 1,492115d urfile
-----------这个命令是可以分析小点的文件，文件大了还是不行，结果出不来；

jason680

回复 1# y331044508

Would you want to try below:

1:  awk -F'=' 'NR>492115{if(match($0,"queue size"))print $2}' FmServer.log.1_02_42_55
2:  awk -F'=' '{if(NR>492115&&match($0,"queue size"))print $2}' FmServer.log.1_02_42_55

3: perl -F'=' -lane '{if($.>492115){print $F[1] if/queue size/}}' FmServer.log.1_02_42_55

Note:
  awk: NR > 492115  
  perl:  $. > 492115

  grep: grep "queue size"
  perl : if/queue size/

  awk use $1, $2, $3, ...
  perl use $F[0], $F[1], $F[2], ...

y331044508

回复 5# jason680

-bash-3.2$ awk -F'=' '{if(NR>492115&&match($0,"queue size"))print $2}' FmServer.log.1_02_42_55
awk: Input line 00:15:08.608 INFO  [ cannot be longer than 3,000 bytes.
The input line number is 18316. The file is FmServer.log.
The source line number is 1.
-bash-3.2$ awk -F'=' 'NR>492115{if(match($0,"queue size"))print $2}' FmServer.log.1_02_42_55
awk: Input line 00:15:08.608 INFO  [ cannot be longer than 3,000 bytes.
The input line number is 18316. The file is FmServer.log.
The source line number is 1.
-bash-3.2$ perl -F'=' -lane '{if($.>492115){print $F[1] if/queue size/}}' FmServer.log.1_02_42_55
Unrecognized switch: -F=.
   

jason680

回复 6# y331044508

try below
$ perl  -lane '{if($.>492115){print ((split(/=/))[1]) if/queue size/}}' FmServer.log.1_02_42_55

or
$ perl  -lane '{if($.>492115){@F=(split(/=/);print $F[1] if/queue size/}}' FmServer.log.1_02_42_55

   

y331044508

回复 7# jason680

$ perl  -lane '{if($.>492115){print ((split(/=/))[1]) if/queue size/}}' FmServer.log.1_02_42_55
这条命令可以执行，但执行的结果有点问题。。。

-bash-3.2$ a=30
-bash-3.2$ perl -lane '{if($.>"$a"){print ((split(/=/))[1]) if/queue size/}}' FmServer.log
0
0
0
21
0
22
1
0
0
0
39

-bash-3.2$ a=1000
-bash-3.2$ perl -lane '{if($.>"$a"){print ((split(/=/))[1]) if/queue size/}}' FmServer.log
0
0
0
21
0
22
1
0
0
0
39
-bash-3.2$ a=10000
-bash-3.2$ perl -lane '{if($.>"$a"){print ((split(/=/))[1]) if/queue size/}}' FmServer.log
0
0
0
21
0
22
1
0
0
0
39
$ perl  -lane '{if($.>492115){@F=(split(/=/);print $F[1] if/queue size/}}' FmServer.log.1_02_42_55

这个命令执行不成

   

jason680

回复 8# y331044508

That's your fault not my ...

1. use '{...' $a ' ...}' for shell to explain the $a
perl -lane '{if($.>'$a'){print ((split(/=/))[1]) if/queue size/}}' FmServer.log   

2. use $ENV{a} in perl for environment $a
perl -lane '{if($.>$ENV{a}){print ((split(/=/))[1]) if/queue size/}}' FmServer.log
Note: you need to 'export $a' before use it

e_member

我也在HP 的Unix系统上遇到过这样的问题， 最简单的处理就是分治， 根据某一个条件差分split 成若干个小文件，然后用同样的操作处理每一个小文件块，得到的结果就是要的了。