Visit Our UNIX and Linux User Community


Perl + pack() + spaceing question


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl + pack() + spaceing question
# 1  
Old 10-01-2002
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 people followed the standard for EDI but nooooo so now this is my problem. heh

I need it to pack the data from the back.

Here is an example.

i have a number $a=12
I have to manually add ".00" onto it and pack it with spaces to fit in a 12 char field which is then assiged to a variable so i can use it later on.

so:
$a=12
$b="${a}.00"
$c="xxxxxxx12.00" (x represents a space) BUT I CANT FIGURE IT OUT.


Code:
        }
        elsif ($_ =~ /^33/ ) {
                $pad=(length($jackpot[$COUNT][2])-9);
                $aqty=pack A12, "$jackpot[$COUNT][2].00"; #THIS PACKS IT THE WRONG WAY
                substr($_,92,12)="${aqty}";
                print FILEOUT "$_\n";
        $COUNT++;


Last edited by Optimus_P; 10-02-2002 at 12:04 PM..
# 2  
Old 10-02-2002
and the answer lies within

Code:
        elsif ($_ =~ /^33/ ) {
                $pad="         $jackpot[$COUNT][2].00";
                $aqty=pack A12, substr($pad,-12,12) ;
                substr($_,92,12)="${aqty}";
                print FILEOUT "$_\n";
        $COUNT++;
       }


Previous Thread | Next Thread
Test Your Knowledge in Computers #479
Difficulty: Medium
A address usually refers to a single byte of memory (called bitwise-addressing).
True or False?

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. Programming

Python, struct.pack

Hello, I found some code on line. Is a python function that bring up an Internet interface, here the code: # Get existing device flags ifreq = struct.pack('16sh', 'wlan0', 0) flags = struct.unpack('16sh', fcntl.ioctl(sockfd, SIOCGIFFLAGS, ifreq)) I'm starting... (1 Reply)
Discussion started by: Dedalus
1 Replies

5. 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

6. 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

7. 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

8. 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

9. Shell Programming and Scripting

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. #!/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);... (2 Replies)
Discussion started by: Euler04
2 Replies

10. Shell Programming and Scripting

spaceing in an shell alias

ok this is my problem. I have a variable that is very specific in spaceing but when ever i try to use the variable i only get 1 empty space vs 3 for example. $ list="list me" $ echo $list list me $ list2="one two three" $ echo $list2 one two three i have tried... (7 Replies)
Discussion started by: Optimus_P
7 Replies

Featured Tech Videos