[quote=Relais,12.11.2003, 16:12]Jein, schon richtig, daß es dem Skript an sich nciht weh tut, aber ein Shell-Skript, welches das Perl-Skript aufruft wird annehmen, daß dieses nicht korrekt ausgeführt wurde.[/quote]
wieso sollte es das tun?

[quote=pq,12.11.2003, 16:20][quote=Relais,12.11.2003, 16:12]Jein, schon richtig, daß es dem Skript an sich nciht weh tut, aber ein Shell-Skript, welches das Perl-Skript aufruft wird annehmen, daß dieses nicht korrekt ausgeführt wurde.[/quote]
wieso sollte es das tun?[/quote]
Weil's binär-0 erwartet.

[quote=Relais,12.11.2003, 16:27][quote=pq,12.11.2003, 16:20]
wieso sollte es das tun?[/quote]
Weil's binär-0 erwartet.[/quote]
wie kommst du darauf? als exit-value vielleicht, aber sonst ist es doch der shell
schnurz-piep-egal, was das skript als letzte zeile hat.

[quote=pq,12.11.2003, 17:54]als exit-value vielleicht, aber sonst ist es doch der shell
schnurz-piep-egal, was das skript als letzte zeile hat.[/quote]
Dachte ich bisher auch, bzw. denke ich immer noch...

Gruss\n\n

<!--EDIT|havi|1068701996-->

Hallo,

mir wurde das englischsprachige Perlbuch "Perl Cookbook" von O`Reilly zur Verfügung gestellt.
Da ich mit dem von euch geposteten Vergleich-Algorythmus noch nicht richtig zufriden war,
hab ich mal in diesem Buch nachgesehen und einen Vergleich von 2 Arrays gefunden, der
die symmetrische Differenz von 2 Arrays bestimmt.
Der macht genau dass, was ich haben will.
Zur Information möchte ich ihn hier kurz posten, damit ihr ihn auch sehen könnt.



Schönen Gruss.
:)

Bearbeitet von Crian: Code-Tags hinzugefügt\n\n

<!--EDIT|Crian|1068718553-->

Auf jeden Fall sollte man es in Perlskripten weglassen, es sei denn man möchte, dass das Skript einen bestimmten Wert zurückliefert, den man in einem Shellskript, das das Perlskript aufruft, auswertet.

In Perlskripten im Gegensatz zu Paketen finde ich es im Allgemeinen einfach fehl am Platz und häßlich :-)

[quote=Arasiel,13.11.2003, 11:04]Hallo,

mir wurde das englischsprachige Perlbuch "Perl Cookbook" von O`Reilly zur Verfügung gestellt.
Da ich mit dem von euch geposteten Vergleich-Algorythmus noch nicht richtig zufriden war,
hab ich mal in diesem Buch nachgesehen und einen Vergleich von 2 Arrays gefunden, der
die symmetrische Differenz von 2 Arrays bestimmt.
Der macht genau dass, was ich haben will.
Zur Information möchte ich ihn hier kurz posten, damit ihr ihn auch sehen könnt.

...
my @union = my @isect = my @diff = ();
my %union = my %isect = ();
my %count = ();
my $e;

foreach $e (@array1, @array2)
{
$count{$e}++
}

foreach $e (keys %count)
{
push(@union, $e);

if ($count{$e} == 2)
{
push @isect, $e;
}
else
{
push @diff, $e;
}
}

$listbox->insert('end', @diff); # Ausgabe in Listbox (Perl/TK)
...

Schönen Gruss.
:)[/quote]
Tip: Verwende doch die Code-Funktion wenn du Code postest.
Sieht imho besser aus!

Gruss

Tip : dafür musst Du keinen Vollquote machen
Tip2: Du bist auch Moderator, also setz die Tags doch einfach rein ... diesmal mach ich es ;^)

>> Tip : dafür musst Du keinen Vollquote machen

Klar

>> Tip2: Du bist auch Moderator, also setz die Tags doch einfach rein ... diesmal mach ich es ;^)

Danke.

[quote=pq,12.11.2003, 17:54][quote=Relais,12.11.2003, 16:27][quote=pq,12.11.2003, 16:20]
wieso sollte es das tun?[/quote]
Weil's binär-0 erwartet.[/quote]
wie kommst du darauf? als exit-value vielleicht, aber sonst ist es doch der shell
schnurz-piep-egal, was das skript als letzte zeile hat.[/quote]
Hmm, spannend. Ich hatte angenommen, daß ein

1;

am Ende einem

exit 1;

gleichkäme. Tut es aber nicht wie ich jetzt festgestellt habe. Also stimmt das Behauptete nicht, bis auf den Teil, wo ich meine, es trägt zur Verwirrung bei ;)