chomp missing Mit freundlichen Grüssen Joachim Görner
Informationsverarbeitung Systemtechnik Basisdienste (ISB) ADAC e.V., Am Westpark 8, 81373 München Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 mailto:[EMAIL PROTECTED] www.adac.de -----Ursprüngliche Nachricht----- Von: steve silvers [mailto:[EMAIL PROTECTED] Gesendet: Dienstag, 12. August 2003 15:53 An: [EMAIL PROTECTED] Betreff: What is wrong with this? I don't understand why the output of the below snippet kind of blows up.. --TEXT FILE test.txt-- 03|04|09|14|15|18|24|27 09|23|24|26|27|28|33|35 10|11|13|15|17|18|19|22 07|08|13|17|22|23|24|25 03|06|07|08|11|12|16|17 02|05|06|09|12|18|19|22 --SCRIPT #!Perl -w use strict; use vars qw(%counts $numbers @numbers); open(FILE,"test.txt") || die "Can't open file $^E"; while(<FILE>) { chomp;# <--------------------------------------------------------------------------- ----------- push(@numbers, split(/\|/,$_)); } close(FILE); # --------------------- # Get Count.. $counts{$_}++ foreach @numbers; foreach (sort { $counts{$b} <=> $counts{$a} } keys %counts) { print qq( $_ - $counts{$_} \n); } -- RESULTS -- 18 - 3 24 - 3 09 - 3 07 - 2 23 - 2 15 - 2 08 - 2 17 - 2 19 - 2 03 - 2 11 - 2 12 - 2 13 - 2 06 - 2 22 - 2 22 - 1 25 - 1 17 - 1 35 - 1 27 - 1 02 - 1 05 - 1 16 - 1 33 - 1 04 - 1 26 - 1 10 - 1 14 - 1 27 - 1 28 - 1 Why do the last numbers as it seems is blowing out and not keep a nice form like the rest of the results? It seems likes it's just the last numbers? 22 - 1 25 - 1 17 - 1 35 - 1 27 - 1 Any suggestions Steve _________________________________________________________________ MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*. http://join.msn.com/?page=features/virus _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs