已完成 谢谢 怎么得到其中一列最大数的行?

shijiang1130

file1

select * from a | 33
select * from a | 3
select * from a | 5
select * from a | 6
select * from a | 7
select * from a | 7
select * from b
select * from b
select * from b
select colmn from a
select * from a
要得到file2
file2
select * from a | 33
select * from b
select colmn from a
select * from a

[ 本帖最后由 shijiang1130 于 2009-2-10 10:03 编辑 ]

ynchnluiti

看错题目了。以为是去掉重复的呢。

[ 本帖最后由 ynchnluiti 于 2009-2-6 20:13 编辑 ]

shijiang1130

谢谢回复.要重复的归类,而且放在一条命令行是不行的.我是分析SPY.LOG文件.

[ 本帖最后由 shijiang1130 于 2009-2-6 20:23 编辑 ]

ynchnluiti

原帖由 shijiang1130 于 2009-2-6 20:17 发表
谢谢回复.要重复的归类

不太清楚要怎么处理。下面理解的对吗？
1
带"| 数字"的行取数字最大值的行，
select * from a | 33
select * from a | 3
select * from a | 5
保留 select * from a | 33

2 不带| 数字的行，去掉重复行
select * from b
select * from b
select * from b
保留一行 select * from b

还有没有别的情况。

shijiang1130

open (FILE,"spy.log")||die ("failed!"); @file=(<FILE>); close(FILE); foreach $file(@file) { ($date,$realtime,$num,$statement,$sql,$sample)=split(/\|/,"$file"); $file="$sql|$realtime|$sample"; } @file=sort(@file); foreach $file(@file){ ($sql,$realtime,$sample)=split(/\|/,"$file"); checkRecord($file); } sub checkRecord() { $record=$_[0]; open (USERNAME,">>new.txt"); print USERNAME $record; close(USERNAME);    }

没有别的情况了.是这个样子的.原来是重复的少.我把每个重复的写进一个文件.再分析单个文件.这次重复的太多了.

[ 本帖最后由 shijiang1130 于 2009-2-6 20:31 编辑 ]

shijiang1130

@array = ('Apple', 'Orange', 'Apple', 'Banana');%hashTemp = map { $_ => 1 } @array;@array_out = sort keys %hashTemp;# @array_out contains ('Apple', 'Banana', 'Orange')

ynchnluiti

原帖由 shijiang1130 于 2009-2-6 20:42 发表
@array = ('Apple', 'Orange', 'Apple', 'Banana');%hashTemp = map { $_ => 1 } @array;@array_out = sort keys %hashTemp;# @array_out contains ('Apple', 'Banana', 'Orange')

可以用这段代码中的方法

shijiang1130

my %u = (); @uniqed = grep {defined} map {if (exists $u{$_}) { undef; } else { $u{$_}=undef;$_; }} @list; undef %u;

但是不知道怎么把那个最大的给取出来

[ 本帖最后由 shijiang1130 于 2009-2-6 20:48 编辑 ]

ynchnluiti

原帖由 shijiang1130 于 2009-2-6 20:46 发表
my %u = ();
@uniqed = grep {defined} map {if (exists $u{$_}) { undef; } else { $u{$_}=undef;$_; }} @list;
undef %u;但是不知道怎么把那个最大的给取出来

看你的代码有一行是：

1. $file="$sql|$realtime|$sample";

复制代码

但你1楼的例子是:
select * from a | 33
...
select * from a

$realtime, $sample为0或空时结果是什么样的。不是下面：
select * from a||
select * from a|12|
这种形式？ 也许$realtime, $sample不会为空

结果是不是要根据$realtime排序，$realtime一样的按$sample排序。$realtime，$sample都相同的是重复记录。

可能我把问题想复杂了

ynchnluiti

说的有点乱。我不了解SPY.LOG