Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7424[/thread]

zahl kürzen (Seite 2)



<< |< 1 2 >| >> 11 Einträge, 2 Seiten
master
 2005-11-03 15:52
#59640 #59640
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$test = 2872989898322;
$test = 1234567890; #gekürzte Version

print "Vorher: $test\n";
$test = pack("L",$test);

print "Gepackt: $test\n";
$test = unpack("L", $test);

print "Nachher: $test\n";
exit;


Vorher: 1234567890
Gepackt: ÊxûI     (*)
Nachher: 1234567890


*wird im Board nicht richtig angezeigt, desshalb habe ich ein "x" dorthingemacht wo das zeichen abgeändert würde durch das board.


--------
1. Beachte Daten Binär per internet GET, kann Probleme geben.

2. Deine Zahl darf maximal 4294967295 gross sein..
Ist sie grösser, musst die sie teilen..

Z.b.  ungefähr so (funktioniert aber noch nicht so richtig):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$test = 2872989898322;

#Packen
print "Vorher: $test\n";
while($test > 4294967295)
{
    $test = $test - 4294967295;
    push(@new,pack("L",4294967295));
}
push(@new,pack("L",$test));
print "Gepackt: @new\n";


#Entpacken
$new = unpack("L$#new", @new);
print "Nachher: $new\n";
\n\n

<!--EDIT|master|1131026098-->
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
<< |< 1 2 >| >> 11 Einträge, 2 Seiten



View all threads created 2005-11-03 09:49.