Referenzen: Type Globs und Referenzen - #65068 (Allgemeines zu Perl)

renee

2006-04-19 18:05

User since
2003-08-04
14371 Artikel
ModeratorIn

Ein paar Anmerkungen:

Du solltest chomp statt chop benutzen, da Du nicht unbedingt ein Zeichen weghaben willst, sondern nur den Zeilenumbruch. chomp entfernt Dir den Zeilenumbruch (wenn man es ganz genau wissen will entfernt es den Inhalt von $/ - aber das ist hier egal), während chop Dir auf jeden Fall das letzte Zeichen entfernt!

Du solltest Fehlerbehandlung machen. Du prüfst z.B. gar nicht, ob Du die Datei überhaupt zum lesen öffnen konntest. Du solltest Deinen Code also so erweitern:

Code: (dl )

open(F,"<", $text) or die $!;

Du solltest mit Übergabeparametern arbeiten (Was auch von der Aufgabenstellung verlangt wird) - und die dann auch möglichst im Gültigkeitsbereich einschränken. Im Moment benutzt Du nur globale Variablen.

Vergleiche:

Code: (dl )

# ohne Übergabeparameter
my $text = "hallo";
&subroutine();
print $text;

sub subroutine{
  $text .= "perl-community.de";
  print $text;
}

und

Code: (dl )

# mit Übergabeparameter

my $text = "hallo";
&subroutine($text);
print $text;

sub subroutine{
  my ($text) = @_;
  $text .= "perl-community.de";
  print $text;
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/