Comp-3 conversion possible with Shell Scripting or PERL? Post: 67806

Sponsored Content

Top Forums Shell Programming and Scripting Comp-3 conversion possible with Shell Scripting or PERL? Post 67806 by Perderabo on Monday 28th of March 2005 11:03:56 AM

03-28-2005

Administrator Emeritus

Quote:

Originally Posted by jyoung

I don't know of anything in UNIX that will do that without using COBOL.

jyoung, meet ksh. This script will convert an integer argument to packed decimal.

Code:

#! /usr/bin/ksh
typeset -R1 dig
typeset -i8 octal
typeset -Z4 result

#
#  handle sign

number=$1
sign="C"
if ((number<0)) ; then
        ((number=-number))
        sign="D"
fi


#
#  prepend a zero if needed

((ilength=${#number}))
if ((ilength/2*2 == ilength)) ; then
        number=0${number}
        ((ilength=${#number}))
fi

#
#  conversion loop

((olength=ilength/2))
packswitch=1
char2=$sign
while ((ilength)) ; do
        dig=$number
        ((ilength=ilength-1))
        typeset -L$ilength newnumber=$number
        number=$newnumber
        if ((packswitch)) ; then
                char1=$dig
                octal=16#${char1}${char2}
                result=${octal#??}
                echo packing $olength $char1 $char2 $octal $result
                output[olength]=$(print -n \\${result})
                ((olength=olength-1))

        else
                char2=$dig
        fi
        ((packswitch=!packswitch))
done

#
#  output the packed decimal to prove it worked

olength=${#output[*]}
o=0
while ((o <= olength)) ; do
        print -n ${output[o]} | od -t x1
        ((o=o+1))
done

exit 0

Perderabo

View Public Profile for Perderabo

Find all posts by Perderabo

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Another bash shell to perl conversion

Hello everyone. I am new to linux and need help again. I need help converting this bash shell to linux: for i in `ls -l *.txt` do `./cnvidtf.pl $i` `curl -u login:pswd --disable-espv -T loadfile.seq ftp://11.1.11.1` `mysql -u login -h 11.1.11.1 -ppswd < lddocs.sql` done Thanks! Any help...

2. Shell Programming and Scripting

Should I use PERL or Shell scripting?

Hello, I have done some BASIC shell scripting/PERL scripting before so I am familiar with the languages. I am not really sure which one would lend itself better to the application I have to write. I am required to scan the message logs for possible break in attempts. If I use shell scripting...

3. Shell Programming and Scripting

Call Shell scripting from Perl Scripting.

Hi How to call a shell scripting through a Perl scripting? Actually I need some value from Shell scripting and passes in the Perl scripting. So how can i do this?

4. Shell Programming and Scripting

Linux/Unix shell scripting vs Perl

Hi, I have general question: i have good working Perl script with .pl extension, and now I have to migrate all to another Linux box, and I was told that I can use only shell scripting, so I'm not sure how different those two things are, will it work without any changes . Is there anything smart I...

5. What is on Your Mind?

Shell scripting vs Perl scripting

Hi all, I would like to start developping some good scripting skills. Do you think it would be best to start with shell scripting or Perl? I already got a fundation, really basics, in perl. but I am wondering what would be best to be good at first. Can you please help me determine which one to...

6. Shell Programming and Scripting

Conversion from Perl to Shell scripting

Hai ! I am doing a research on Bioinformatics and a part of the code in perl have to be converted to shell scripting. I am new to shell programming. Pls. kindly help me to convert this code to shell script though it is somewhat lengthy. PLS KINDLY HELP ME. THANKS IN ADVANCE. my @FreeEnergy =...

7. What is on Your Mind?

Shell Scripting vs Perl scripting

Gents, I have been working in a Solaris/Unix environment for about 9 months. I took some linux classses online before getting the job. But, I am not very good at scripting. I want to learn how to script. Do you think that I should start with Shell scripting or Perl? I wanted to continue with...

8. Web Development

Perl scripting or shell scripting?

i am going to study any one of the scripting languages mentioned above(shell 0r perl scripting) . Which is having more scope for a fresher?

9. Shell Programming and Scripting

shell or perl script needed for ldif file to text file conversion

This is the ldf file dn: sdcsmsisdn=1000000049,sdcsDatabase=subscriberCache,dc=example,dc=com objectClass: sdcsSubscriber objectClass: top postalCode: 29600 sdcsServiceLevel: 10 sdcsCustomerType: 14 givenName: Adelia sdcsBlackListAll: FALSE sdcsOwnerType: T-Mobile sn: Actionteam...

10. Shell Programming and Scripting

Help required for Oracle database shutdown script conversion from shell to perl

Please tell me how to convert below program from shell script to perl. Same commands need to use in shutdown, just need program help for startup. export ORACLE_BASE=/home/oracle1 lsnrctl start lndb1 sqlplus '/ as sysdba' startup;

LEARN ABOUT MOJAVE

tabs

TABS(1) 						    BSD General Commands Manual 						   TABS(1)

NAME

     tabs -- set terminal tabs

SYNOPSIS

     tabs [-n | -a | -a2 | -c | -c2 | -c3 | -f | -p | -s | -u] [+m[n]] [-T type]
     tabs [-T type] [+[n]] n1[,n2,...]

DESCRIPTION

     The tabs utility displays a series of characters that clear the hardware terminal tab settings then initialises tab stops at specified posi-
     tions, and optionally adjusts the margin.

     In the first synopsis form, the tab stops set depend on the command line options used, and may be one of the predefined formats or at regular
     intervals.

     In the second synopsis form, tab stops are set at positions n1, n2, etc.  If a position is preceded by a '+', it is relative to the previous
     position set.  No more than 20 positions may be specified.

     If no tab stops are specified, the ``standard'' UNIX tab width of 8 is used.

     The options are as follows:

     -n      Set a tab stop every n columns.  If n is 0, the tab stops are cleared but no new ones are set.

     -a      Assembler format (columns 1, 10, 16, 36, 72).

     -a2     Assembler format (columns 1, 10, 16, 40, 72).

     -c      COBOL normal format (columns 1, 8, 12, 16, 20, 55)

     -c2     COBOL compact format (columns 1, 6, 10, 14, 49)

     -c3     COBOL compact format (columns 1, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 58, 62, 67).

     -f      FORTRAN format (columns 1, 7, 11, 15, 19, 23).

     -p      PL/1 format (columns 1, 5, 9, 13, 17, 21, 25, 29, 33, 37, 41, 45, 49, 53, 57, 61).

     -s      SNOBOL format (columns 1, 10, 55).

     -u      Assembler format (columns 1, 12, 20, 44).

     +m[n], +[n]
	     Set an n character left margin, or 10 if n is omitted.

     -T type
	     Output escape sequence for the terminal type type.

ENVIRONMENT

     The LANG, LC_ALL, LC_CTYPE and TERM environment variables affect the execution of tabs as described in environ(7).

     The -T option overrides the setting of the TERM environment variable.  If neither TERM nor the -T option are present, tabs will fail.

EXIT STATUS

     The tabs utility exits 0 on success, and >0 if an error occurs.

SEE ALSO

     expand(1), stty(1), tput(1), unexpand(1), termcap(5)

STANDARDS

     The tabs utility conforms to IEEE Std 1003.1-2001 (``POSIX.1'').

HISTORY

     A tabs utility appeared in PWB UNIX.  This implementation was introduced in FreeBSD 5.0.

BUGS

     The current termcap(5) database does not define the 'ML' (set left soft margin) capability for any terminals.

BSD
								   May 20, 2002 							       BSD