Thread Zurückcodieren von Zeichen (12 answers)
Opened by HP-User at 2012-06-17 17:42

topeg
 2012-06-19 23:30
#159215 #159215
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Ich kann dir wirklich ans Herz legen dich mit Funktionen (bei Perl beginnen die mit sub) auseinander zu setzen. Damit lässt sich Code strukturieren und die Funktionsnamen können auch erklären was sie machen.

Mal an dem Beispiel von hier:

Code (perl): (dl )
1
2
3
4
5
6
7
8

sub entfernt_alle_umrueche
{
  my $string = shift(@_);
  $string =~ s/\015\012|\015|\012//g;
  return $string;
}

$customstorycode = entfernt_alle_umrueche( $customstorycode );


Da weißt du auch noch nach einem Jahr was an der Stelle Passiert. Wenn man etwas Erfahung hat kann man sich Arbeit ersparen indem man Fähigkeiten von Perl nutzt:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

# es darf ein Array oder Scalar übergeben werden
sub entfernt_alle_umrueche_aus ( \[@$] )
{
  my $referenz_auf_wert = shift ( @_ );
  if(ref $referenz_auf_wert eq 'ARRAY')
  {
    s/\015\012|\015|\012//g for @$referenz_auf_wert;
  }
  else
  {
    $$referenz_auf_wert =~ s/\015\012|\015|\012//g
  }
  return 1;
}

entfernt_alle_umrueche_aus $customstorycode;

View full thread Zurückcodieren von Zeichen