99_myutils wie muss ich es schreiben

[jostmario]

Hallo

würde das gern immer ausführen auser bei 000 und  005 als Wert.
Wie füge ich hier noch das oder 005 ein ?

Code Auswählen Erweitern

sub CalcDauer_h(@)
{
my ($Laufzeit_h,$Status) = @{shift()}; 
my $Dauer_h;  unless ($Status eq "000") {$Dauer_h = $Laufzeit_h; }  return $Dauer_h; }

sub CalcDauer_m(@)
{
my ($Laufzeit_m,$Status) = @{shift()};  my $Dauer_m;  unless ($Status eq "000") {$Dauer_m = $Laufzeit_m; }  return $Dauer_m; }


sub CalcDauer_min(@)
{
my ($Dauer_min,$Status) = @{shift()};  my $Laufzeit;  unless ($Status eq "000") {$Dauer_min = $Laufzeit; }  return $Dauer_min; }


Gruß Josty

[JoWiemann]

($Status eq "000" || $Status eq "005")


Grüße Jörg

[jostmario]

Hallo,

Dankeschön hatte es so versucht ging aber irgendwie nicht.

Code Auswählen Erweitern

sub CalcDauer_h(@)
{
my ($Laufzeit_h,$Status) = @{shift()};  my $Dauer_h;  unless ($Status eq "000") {$Dauer_h = $Laufzeit_h; }  return $Dauer_h; }

sub CalcDauer_m(@)
{
my ($Laufzeit_m,$Status) = @{shift()};  my $Dauer_m;  unless ($Status eq "000") {$Dauer_m = $Laufzeit_m; }  return $Dauer_m; }


Gruß Josty

[betateilchen]

Code Auswählen Erweitern


my ($Laufzeit_h,$Status) = @_;


[jostmario]

Hallo,

was ist der unterschied zu     

Code Auswählen Erweitern

my ($Laufzeit_h,$Status) = @{shift()};

Gruß Josty

[betateilchen]

Perfomance...

@_ ist ein ohnehin vorhandenes array, aus dem die Werte einfach gelesen werden können,
@{shift()} konstruiert erst ein zusätzliches array, das dann verwendet wird.

Außerdem ist @_ leichter lesbar und schneller einzutippen

[amenomade]

Der Unterschied ist, dass die Version von betateilchen eine Chance hat, zu funktionieren...

Probier mal einfach selbst, z.B. auf https://www.tutorialspoint.com/execute_perl_online.php

Code Auswählen Erweitern

sub CalcDauer_h(@)
{
my ($Laufzeit_h,$Status) = @_;
my $Dauer_h;  unless ($Status eq "000") {$Dauer_h = $Laufzeit_h; }  return $Dauer_h; }

print CalcDauer_h(10,"005"); ergibt 10

Code Auswählen Erweitern

sub CalcDauer_h(@)
{
my ($Laufzeit_h,$Status) = @{shift()};
my $Dauer_h;  unless ($Status eq "000") {$Dauer_h = $Laufzeit_h; }  return $Dauer_h; }

print CalcDauer_h(10,"005"); ergibt nichts

UNd letztendlich

Code Auswählen Erweitern

sub CalcDauer_h(@)
{
my ($Laufzeit_h,$Status) = @_;
my $Dauer_h;  unless ($Status eq "000" || $Status eq "005") {$Dauer_h = $Laufzeit_h; }  return $Dauer_h; }

print "\nMit 000: ".CalcDauer_h(10,"000");
print "\nMit 005: ".CalcDauer_h(10,"005");
print "\nMit 007: ".CalcDauer_h(10,"007");
print "\nMit 010: ".CalcDauer_h(10,"010");
ergibt

Code Auswählen Erweitern

Mit 000:
Mit 005:
Mit 007: 10
Mit 010: 10

[jostmario]

Hallo amenomade,

Dank dir haste gut erklärt.
jetzt verstehe ich was er da macht denke bekomme es jetzt hin.
werd es die woche mal umbasteln versuchen.

Gruß Josty