Hallo alle,
Ich bin in Perl ein Newbie, aber möchte diese Code in myUtils.pm hinzu fügen:
#Count or quote parts of a reading
# number 0: number of parts
# number 1 - x: part 1 - x of the reading
sub ReadingsPart($$$)
{ my ($readingstext, $divider,$number) = @_;
@readingsparts=split($divider,$readingstext);
my count=scalar @readingsparts;
count = count + 1;
if ( $number eq "0") { return counts }
else { num = ord ($number) ; num = num - 1 ; return $readingparts[num] ; }
}
Stimmt die Grammatik? Sehr viel Dank für die Mühe!
Freundliche Grüße,
Paul
Was hält dich davon ab es zu versuchen? Sollten Syntax Fehler vorhanden sein wird es dir angezeigt.
Es empfiehlt sich natürlich ein Testsystem zu haben. Das kan auch eine VM sein.
Du musst @readingsparts auf jeden Fall deklarieren, was soll "count" sein? Eine Variable beginnt mit $. Was ist dann folgend "counts"? Auch "num" ist so sinnlos.
my @readingsparts=split($divider,$readingstext);
Ansonsten gilt das, was igami schreibt. Probiere es aus und komme ggf. mit Fehlern wieder hier hin oder auch nicht, denn die Fehler erklären alles.
Zu Perl, bitte das hier lesen:
https://wiki.selfhtml.org/wiki/Perl
Hallo igami und marvin78,
Vielen Dank! Ich brauchte euere Hilfe für meine erste Schritte, und kann damit weiter.
Ich habe es schon in myUtils aufgenommen, und bin zum ausprobieren angefangen.
Freundliche Grüße,
Paul