如何去掉全为0的行？

choose2005

UID: 11866
帖子: 37
积分: 85
在线时间: 2 小时

1^# choose2005 发表于 2007-09-23 22:36

如何去掉全为0的行？

0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 9 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 3 0 5 0 0 8 0 0
0 0 2 3 0 5 0 0 8 0 10

将全为0行去掉后
然后找出完全相同的行

choose2005

UID: 11866
帖子: 37
积分: 85
在线时间: 2 小时

2^# choose2005 发表于 2007-09-23 22:40

即0 0 2 3 0 5 0 0 8 0 0 行共出现3次

royalzhang

UID: 25162
帖子: 1
积分: 2
在线时间: 10 分钟

3^# royalzhang 发表于 2007-09-23 22:53

子曰：不愤不启，不悱不发，举一隅不以三隅反，则不复也。

choose2005

UID: 11866
帖子: 37
积分: 85
在线时间: 2 小时

4^# choose2005 发表于 2007-09-23 22:53

怎样把全为0的行和全为0的元素全部去掉？
己最后得到的结果是三行
2 3  5  8
2 3  5  8
2 3  5  8

kairi

UID: 9728
帖子: 111
积分: 255
在线时间: 17 小时

5^# kairi 发表于 2007-09-24 09:57

9 10为什么不留下？

kairi

UID: 9728
帖子: 111
积分: 255
在线时间: 17 小时

6^# kairi 发表于 2007-09-24 10:16

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;

my $a="D:/personal/1.txt";
open(FILE,"$a")||die;
while (my $line=<FILE>){
$line=~s/0\s//g;
unless ($line=~m/^\s*$/){
print "$line\n";
}
}
close FILE;

[Copy to clipboard] [ - ]

CODE:

1.txt:
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 9 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 3 0 5 0 0 8 0 0
0 0 2 3 0 5 0 0 8 0 10

xki

UID: 9802
帖子: 74
积分: 170
在线时间: 7 小时

7^# xki 发表于 2007-09-24 10:51

非全0的行

[Copy to clipboard] [ - ]

CODE:

my $a="test.txt";
open(FILE,"$a")||die;
while (my $line=<FILE>){
unless($line=~/[0\s]{10}0$/){
print $line;
}
}
close FILE;

test.txt

[Copy to clipboard] [ - ]

CODE:

0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 0 0 5 0 0 8 9 0
0 0 0 0 0 0 0 0 0 0 0
0 0 2 3 0 5 0 0 8 0 0
0 0 2 3 0 5 0 0 8 0 10

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

8^# perljoker 发表于 2007-09-24 11:21

QUOTE:

原帖由 royalzhang 于 2007-9-23 22:53 发表
子曰：不愤不启，不悱不发，举一隅不以三隅反，则不复也。

赞
lz和大家要细细品位先生的话啊
做练习的话，自己下去玩玩就行了

zhangzhangg

UID: 38342
帖子: 132
积分: 303
在线时间: 1 天

9^# zhangzhangg 发表于 2007-09-26 12:45

print "input filename \n";
chomp(my $zero=<>);
open(FIL,$zero) or die;
my %count;
while(<FIL>){
chomp;
unless(/^\s*0(\s0)+$/){
$count{$_}++;
}
}
print map{$_,"==>".$count{$_}."\n"} keys %count;

OK...如不想匹配开头有空白，可以见\s*去了
测试结果如下
C:\>perl test.pl
input filename
delzero.txt
0 0 2 3 0 5 0 0 8 0 10==>1
0 0 2 0 0 5 0 0 8 9 0==>1
0 0 2 0 0 5 0 0 8 0 0==>2
0 0 2 3 0 5 0 0 8 0 0==>1