Perl help!! (pack()?)


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl help!! (pack()?)
# 1  
Old 10-18-2005
Perl help!! (pack()?)

Hello everyone.

I wrote a perl script to get the two answers from a value: x.
By this, I want to do sqrt($x) in different precision.
Code:
#!/usr/bin/perl

print "Input the initial value x:\n";
chomp($x=<STDIN>);
$comp=sqrt($x);
$float_value=pack("f", $comp);
$double_value=pack("d", $comp);
print "The answer by flaot is $float_value.\n";
print "The answer by double is $double_value.\n";
exit;

I don't know how to use "pack" function.
Please tell me.

Last edited by Euler04; 10-18-2005 at 08:12 AM..
# 2  
Old 10-18-2005
No, you don't use pack() to do it. It packs the number in a binary representation that is never portable. And it's not printable.

Just use sprintf() and it should be fine. You can cast it to arbitrary precision as needed (provided that is supported):

Code:
D:\Documents and Settings\bernardchan>perl -e "print sqrt(5);"
2.23606797749979
D:\Documents and Settings\bernardchan>perl -e "print sprintf('%f', sqrt(5));"
2.236068
D:\Documents and Settings\bernardchan>perl -e "print sprintf('%.3f', sqrt(5));"
2.236

I can use printf() directly - just to show you that sprintf() returns a string representation that can be assigned to a scalar variable for later printing, storage or other processing.
# 3  
Old 10-18-2005
Thank you very much, cbkihong.
I understood a lot.
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Pack and unpack localtime in perl script

Hi I have a code like this: sub WriteEbcdicHeader { my $Htimestamp=localtime();#i need to pack and unpack this my $eheaderline = $Htimestamp; #packing has to be done here #unpacking has to be done after packing print $EOUTFILE return $eheaderline; } sub WriteEbcdicTrailer { ... (5 Replies)
Discussion started by: rbathena
5 Replies

2. Solaris

weblogic Maintenance pack

Hi ALL, I am running weblogic portal(9.2.2) on solaris and i wanted to apply maintenance pack and upgrade it to 9.2.3. Without using x-windows system how can i apply maintenance pack.? (0 Replies)
Discussion started by: gaurav183
0 Replies

3. UNIX for Dummies Questions & Answers

perl pack and unpack commands

I am using pack/unpack to encyrpt a file. syntax is below #!/bin/sh encrypt=`perl -e 'print unpack "H*","yourpassword"'` - echo $encrypt >/file/to/store/encrypted/password pass=`cat /file/to/store/encrypted/password` decrypt=`perl -e 'print pack "H*",$pass'` ... (2 Replies)
Discussion started by: erinlomo
2 Replies

4. UNIX for Advanced & Expert Users

Perl-to-Oracle performance: DBI-pack visa 'sqlplus' usage

I wondering if anybody tried already or know about the performance to process some Oracle staff from Perl. I see it could be done by the DBI pachage (so, I guess, it is interface to the OCI, but who know how sufficiant it is..,) with all gemicks around (define, open, parce, bind,.. ), or it can... (8 Replies)
Discussion started by: alex_5161
8 Replies

5. Shell Programming and Scripting

Bash equivalent of perl's pack function ?

Is there an equivalent of perl's pack function in bash ? Or in other words, how can I achieve the same thing in bash ? Much appreciated. (1 Reply)
Discussion started by: NewDeb
1 Replies

6. UNIX for Dummies Questions & Answers

perl pack and unpack commands

I have a file that contains user id and corresponding password. Lets say password is "help". The below command will create a hex value for string "help". perl -e 'print unpack "H*","help"' So now password is in encoded format. Then I decoded it in the script where am fetching the... (1 Reply)
Discussion started by: max_payne1234
1 Replies

7. UNIX for Dummies Questions & Answers

Pack current folder

How do I pack (using tar zcvf ?) the current folder inluding all files and folders ?? I need to be sure to get all files and folders/subfolders... Later I will unpack into a new folder on a new server.. Appreciate any help.. (3 Replies)
Discussion started by: WebWatch
3 Replies

8. AIX

Aix - Service Pack

I've recently installed ServicePack1 for Tecnology_Level 9 of AIX 5.2 . The result of installation is "OK" but with oslevel -s i dont see the service pack installed .... after many research i try (with many luck!!) instfix -i|grep SP and the result : All filesets for 5200-08-01_SP... (1 Reply)
Discussion started by: BabylonRocker
1 Replies

9. Shell Programming and Scripting

Perl + pack() + spaceing question

ok guys and gals at the moment i am perplexed (prolly cuz i been looking at it to long) but here it is. OS: sol8 perlver: 5.8.0 shell: ksh answer must be in perl!! issue: when i use pack() it packs the data at the front of the requested field space. normally it wouldnt be a problem if... (1 Reply)
Discussion started by: Optimus_P
1 Replies

10. Programming

How use #pragma pack() in HP unix ?

hello. i use follow sentences in include files in SCO unix is ok. #pragma pack(1) struct dddd { int iD1; char cCh1; ... }; #pragma pack() but in hp-9000 unix , not ok when compiling, cc not support #pragma pack(1) how to settle the question ? ... (1 Reply)
Discussion started by: bdyjm
1 Replies
Login or Register to Ask a Question