Warum hängt sich Perl auf? - #2370 (Perl/CGI)

renee

2004-05-10 00:05

User since
2003-08-04
14371 Artikel
ModeratorIn

Mach zweischendurch immer wieder mal Ausgaben nach dem Muster

Code: (dl )

1
2
3

if($bedingung){
  print $bedingung,"\n";
}

Dann weißt Du schon mal, in welche if-Bedingung Du rein kommst...

Und das Formatieren auf 2 Nachkomma stellen

Code: (dl )

   # 2 Nachkommastellen erzeugen, falls nur eine da
   if ( $shippingCosts =~ /\.\d$/ ) {
       $shippingCosts = $shippingCosts."0";
   }
   if ( $shippingCosts =~ /^\d$/ ) {
       $shippingCosts = $shippingCosts.".00";
   }

kannst Du so einfacher schreiben:

Code: (dl )

$shippingCosts = sprintf("%.2f",$shippingCosts);

Macht genau das, was du willst...

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/