Thread Hochzählen, bei einer bestimmten Zahl stopppen und die 5-stellige Zahl generieren. (9 answers)
Opened by alla at 2009-10-19 10:48

havi
 2009-10-19 15:21
#127135 #127135
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
2009-10-19T10:28:05 GwenDragon
@havi
dein Code läuft aber erst ab Perl 5.10!

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

#!/usr/bin/perl

use warnings;
use strict;
#use feature qw( say );

while(my $line = <DATA>) {

        chomp $line;

        my $zahl = sprintf("%05s", $line);

        #say $zahl;
         print $zahl."\n";

} # while

__DATA__
506
200


# Wollte lediglich auf die Vorzüge von Perl 5.10 aufmerksam machen!
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

View full thread Hochzählen, bei einer bestimmten Zahl stopppen und die 5-stellige Zahl generieren.