Integer in Proznt angeben (Allgemeines zu Perl)

Gast Gast

2004-12-13 13:14

Hallo!

Ich muß in einem Perl-Skript gezählte Nukleotide als Integer und in Prozent formatiert nach stout schreiben.

Kann mir jemand einen Tip geben, wie ich das machen soll?

Crian

2004-12-13 13:15

User since
2003-08-04
5873 Artikel
ModeratorIn

perldoc -f printf

Beispiel:

Code: (dl )

1
2
3

my $nonuk = 4712;
my $ges = 8961;
printf "Nukleotide gesamt: %d\nNukleotide prozentual: %.2f\n", $nonuk, 100 * $nonuk / $ges;

Ausgabe:

Code: (dl )

1
2

Nukleotide gesamt: 4712
Nukleotide prozentual: 52.58

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Relais

2004-12-13 14:17

User since
2003-08-06
2254 Artikel
ModeratorIn

[quote=Crian,13.12.2004, 12:15]perldoc -f printf[/quote]
perldoc -f sprintf

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

renee

2004-12-13 14:27

User since
2003-08-04
14371 Artikel
ModeratorIn

Naja, wer sich perldoc -f printf anschaut, wird sich vermutlich auch perldoc -f sprintf anschauen...

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/

Crian

2004-12-13 14:44

User since
2003-08-04
5873 Artikel
ModeratorIn

Warum sprintf? Weil die Dokumentation zu printf selbst buggy ist? ;)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2004-12-13 14:46

User since
2003-08-04
14371 Artikel
ModeratorIn

In printf wird explizit auf sprintf hingewiesen:

Quote
[...]
See "sprintf" for an explanation of the format argument.
[...]

\n\n

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/

Crian

2004-12-13 14:58

User since
2003-08-04
5873 Artikel
ModeratorIn

Jau, das meinte ich.

Ich habe trotzdem auf printf verwiesen, weil dann die Analogie klarer wird ("zu Befehl foo verwende perldoc -f foo"). Ich traue dem OP schon zu, sich dann zu sprintf vorzuarbeiten ;)

Aber ihr habt natürlich Recht, die eigentlichen Informationen gibt es bei sprintf.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite