Code optimieren (Laufzeit/Geschwindigkeit) (gelöst) (Allgemeines zu Perl)

[thread]17103[/thread]

Code optimieren (Laufzeit/Geschwindigkeit) [gelöst]

Tags: perl6 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+10 replies

Gast Hans

2012-01-26 14:23

Hallo Zusammen,

bin nicht sooo fit in Perl, hab allerdings mein Problem gelöst (Elemente meherere Arrays zu vergleichen und doppelte zu erkennen). Leider ist mein Code extrem langsam / braucht ewig. Da wollt ich fragen ob es hier jemand gibt der mir helfen kann meinen Code zu optimieren.

Ich habe 9 Arrays gefüllt mit unterschiedlich vielen Elementen (kleinstes hat 23 und größtes hat 245). Nun will ich alle Elemente miteinander vergleichen und wenn eins doppelt oder mehrfach vorkommt ausgeben.

Mein bisheriger Code:

Code: (dl )

print FILELOG "File1\tFile2\tSignal\n";
for ($i=1;$i<scalar(@file_and_signals1);$i++){
	for ($j=1;$j<scalar(@file_and_signals2);$j++){
		if ($file_and_signals1[$i] eq $file_and_signals2[$j]) {
			print FILELOG "$file_and_signals1[0]\t$file_and_signals2
[0]\t$file_and_signals1[$i]\n";
		}
		for ($k=1;$k<scalar(@file_and_signals3);$k++){
			if ($file_and_signals1[$i] eq $file_and_signals3[$k]) {
				print FILELOG "$file_and_signals1[0]\t
$file_and_signals3[0]\t$file_and_signals1[$i]\n";
			}
			if ($file_and_signals2[$j] eq $file_and_signals3[$k]) {
				print FILELOG "$file_and_signals2[0]\t
$file_and_signals3[0]\t$file_and_signals2[$j]\n";
			}
			for ($l=1;$l<scalar(@file_and_signals4);$l++){
				if ($file_and_signals1[$i] eq $file_and_signals4
[$l]) {
					print FILELOG "$file_and_signals1[0]\t
$file_and_signals4[0]\t$file_and_signals1[$i]\n";
				}
				if ($file_and_signals2[$j] eq $file_and_signals4
[$l]) {
					print FILELOG "$file_and_signals2[0]\t
$file_and_signals4[0]\t$file_and_signals2[$j]\n";
				}
				if ($file_and_signals3[$k] eq $file_and_signals4
[$l]) {
					print FILELOG "$file_and_signals3[0]\t
$file_and_signals4[0]\t$file_and_signals3[$k]\n";
				}
				for ($n=1;$n<scalar(@file_and_signals5);$n++){
					if ($file_and_signals1[$i] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals1[0]\t
$file_and_signals5[0]\t$file_and_signals1[$i]\n";
					}
					if ($file_and_signals2[$j] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals2[0]\t
$file_and_signals5[0]\t$file_and_signals2[$j]\n";
					}
					if ($file_and_signals3[$k] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals3[0]\t
$file_and_signals4[0]\t$file_and_signals3[$k]\n";
					}
					if ($file_and_signals4[$l] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals4[0]\t
$file_and_signals5[0]\t$file_and_signals4[$l]\n";
					}
					for ($o=1;$o<scalar(@file_and_signals6);$o+
+){
						if ($file_and_signals1[$i] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals1
[0]\t$file_and_signals6[0]\t$file_and_signals1[$i]\n";
						}
						if ($file_and_signals2[$j] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals2
[0]\t$file_and_signals6[0]\t$file_and_signals2[$j]\n";
						}
						if ($file_and_signals3[$k] eq
$file_and_signals6[$o]) {
					  	print FILELOG "$file_and_signals3[0]\t
$file_and_signals6[0]\t$file_and_signals3[$k]\n";
			  		}
						if ($file_and_signals4[$l] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals4
[0]\t$file_and_signals6[0]\t$file_and_signals4[$l]\n";
						}
						if ($file_and_signals5[$n] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals5
[0]\t$file_and_signals6[0]\t$file_and_signals5[$n]\n";
						}
						for ($r=1;$r<scalar
(@file_and_signals7);$r++){
							if ($file_and_signals1[$i] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals1[0]\t$file_and_signals7[0]\t$file_and_signals1[$i]\n";
							}
							if ($file_and_signals2[$j] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals2[0]\t$file_and_signals7[0]\t$file_and_signals2[$j]\n";
							}
							if ($file_and_signals3[$k] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals3[0]\t$file_and_signals7[0]\t$file_and_signals3[$k]\n";
							}
							if ($file_and_signals4[$l] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals4[0]\t$file_and_signals7[0]\t$file_and_signals4[$l]\n";
							}
							if ($file_and_signals5[$n] eq
$file_and_signals7[$r]) {
					 			print FILELOG
"$file_and_signals5[0]\t$file_and_signals7[0]\t$file_and_signals5[$n]\n";
							}
							if ($file_and_signals6[$o] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals6[0]\t$file_and_signals7[0]\t$file_and_signals6[$o]\n";
							}
							for ($t=1;$t<scalar
(@file_and_signals8);$t++){
								if ($file_and_signals1[$i]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals1[0]\t$file_and_signals8[0]\t$file_and_signals1[$i]\n";
								}
								if ($file_and_signals2[$j]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals2[0]\t$file_and_signals8[0]\t$file_and_signals2[$j]\n";
								}
								if ($file_and_signals3[$k]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals3[0]\t$file_and_signals8[0]\t$file_and_signals3[$k]\n";
								}
								if ($file_and_signals4[$l]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals4[0]\t$file_and_signals8[0]\t$file_and_signals4[$l]\n";
								}
								if ($file_and_signals5[$n]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals5[0]\t$file_and_signals8[0]\t$file_and_signals5[$n]\n";
								}
								if ($file_and_signals6[$o]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals6[0]\t$file_and_signals8[0]\t$file_and_signals6[$o]\n";
								}
								if ($file_and_signals7[$r]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals7[0]\t$file_and_signals8[0]\t$file_and_signals7[$r]\n";
								}
								for ($u=1;$u<scalar
(@file_and_signals9);$u++){
									if
($file_and_signals1[$i] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals1[0]\t$file_and_signals9[0]\t$file_and_signals1[$i]\n";
									}
									if
($file_and_signals2[$j] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals2[0]\t$file_and_signals9[0]\t$file_and_signals2[$j]\n";
									}
									if
($file_and_signals3[$k] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals3[0]\t$file_and_signals9[0]\t$file_and_signals3[$k]\n";
									}
									if
($file_and_signals4[$l] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals4[0]\t$file_and_signals9[0]\t$file_and_signals4[$l]\n";
									}
									if
($file_and_signals5[$n] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals5[0]\t$file_and_signals9[0]\t$file_and_signals5[$n]\n";
									}
									if
($file_and_signals6[$o] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals6[0]\t$file_and_signals9[0]\t$file_and_signals6[$o]\n";
									}
									if
($file_and_signals7[$r] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals7[0]\t$file_and_signals9[0]\t$file_and_signals7[$r]\n";
									}
									if
($file_and_signals8[$t] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals8[0]\t$file_and_signals9[0]\t$file_and_signals8[$t]\n";
									}
								}
							}
						}
					}
				}
			}
		}
	}
}

Wenn ich das allerdings laufen lasse braucht er ewig (> 20min).

Hoffe auf alternativen.
Gruß Hans

+2 replies
lichtkind

2012-01-26 14:24

User since
2004-03-22
5679 Artikel
ModeratorIn + EditorIn

Verschoben von Raku / Perl 6 nach Allgemeines zu Perl

ist kein Perl 6
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
- Gast Hans
  
  2012-01-26 14:32
  
  sorry :(
  Last edited: 2012-01-26 14:35:15 +0100 (CET)
+2 replies
cbxk1xg

2012-01-26 14:39

User since
2003-10-20
496 Artikel
BenutzerIn

Wie sind denn die Logfiles aufgebaut? Soll das Ergebnis in eine Datei geschrieben werden oder läuft das Script als CGI? Hast Du mal mit top oder htop geguckt wo der Flaschenhals ist, also Speicher oder CPU?
- Gast Hans
  
  2012-01-26 14:47
  
  Achso, ja also das Logfile sieht so aus das es in ein XLS geschrieben wird, habs aber auch schon in ein TXT schreiben lassen. CGI?! Kenn ich nicht.
  
  Ich denke der Flaschenhals sind die 9 ineinander verhakte for Schleifen?! Kann man das irgendwie umgehen?!
  
  Gruß Hans
  Last edited: 2012-01-26 14:51:36 +0100 (CET)
pq

2012-01-26 14:57
User since
2003-08-04
12208 Artikel
Admin1
ich hab mir jetzt die einzelnen schleifen nicht genz genau angeschaut. du möchtest einfach wissen, welche elemente mehrfach vorkommen und sie ausgeben? da empfiehlt sich ein hash mit einem zähler:
Code (perl): (dl )

1 2 3 4 5 6 7

my %seen; for my $item (@array1[1..$#array1], @array2[1..$#array2], ...) { $seen{$item}++; if ($seen{$item} > 1) { print "Element $item mehrfach: $seen{$item}\n"; } }
Editiert von pq: typo, prüfung auf > 1
Last edited: 2012-01-26 15:08:16 +0100 (CET)
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+4 replies
GwenDragon

2012-01-26 15:04
User since
2005-01-17
14533 Artikel
Admin1
Igitt. Bandnudelsdalat!

Beispiel:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

my @file_and_signals1 = qw/AA BB CC/; my @file_and_signals2 = qw/22 BB 33 44/; my @file_and_signals3 = qw/jj BB CC kk oo pp 99/; my @file_and_signals4 = qw/xx kk ll/; my %count_hash; for my $a ( \@file_and_signals1, \@file_and_signals2, \@file_and_signals3, \@file_and_signals4 ) { for my $w(@$a) { $count_hash{$w}++; } } while (my ($k,$v) = each %count_hash) { print "$k $v\n" if $v>1; }
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +3 replies
- Gast Hans
  
  2012-01-26 15:47
  
  Super danke euch beiden,
  habe jetzt nur mal das erste von pq "abgeschrieben" und getestet.
  Ist ja blitzschnell.
  
  @pq: Gibts da auch die Möglichkeit das noch so abzuändern das die zwei arrays genannt werden in denen das doppelt vorkommt. Nur die Bemerkung es kommt doppelt vor reicht mir leider nicht :)
  
  @GwenDragon: Oder geht das direkt bei deinem Code?
  
  Gruß Hans
  Last edited: 2012-01-26 15:55:07 +0100 (CET)
  - +2 replies
  - pq
    
    2012-01-26 16:10
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    dafür müsstest du in dem hash jeweils das array mit abspeichern.
    hier mal ein beispiel:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    my %arrays = ( a1 => \@a1, a2 => \@a2, a3 => \@a3, ); my %seen; for my $key (keys %arrays) { my $array = $arrays{ $key }; for my $item (@$array[ 1 .. $#$array ]) { $seen{ $item }->{ $key }++; } } for my $key (sort keys %seen) { my $value = $seen{ $key }; if (keys %$value > 1) { print "multiple $key in @{[keys %$value ]}\n"; } }
    
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Gast Hans
      
      2012-01-27 08:15
      
      Ha Super! Danke pq!
      
      gruß Hans
      
      ***closed***
      Last edited: 2012-01-27 09:26:07 +0100 (CET)

View all threads created 2012-01-26 14:23.