Bitte überprüfe mein Perl

[Paul Guijt]

Hallo alle,

Ich bin in Perl ein Newbie, aber möchte diese Code in myUtils.pm hinzu fügen:

Code Auswählen Erweitern


#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

[igami]

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.

[marvin78]

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.

Code Auswählen Erweitern

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

[Paul Guijt]

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