I don't know how to replace input char with appropriate integer Post: 302563019

Sponsored Content

Top Forums Programming I don't know how to replace input char with appropriate integer Post 302563019 by durden_tyler on Sunday 9th of October 2011 10:05:43 PM

10-09-2011

Registered User

Quote:

Originally Posted by solaris_user

...
Program must convert input character to approriate number, if you have a close look then you shell see program traslates american style of phone to numeric.

For example if I enter 1-800-COL-LECT
then output must be 1-800-265-5328
...

Code:

$
$
$
$ echo "1-800-COL-LECT" | perl -MPOSIX -lne 'while(/(.)/g) {$d = uc($1);
                                               if (grep /$d/, ("A".."Z")) {
                                                 $x = (grep /$d/, qw(S V Y Z)) ? 0 : 1;
                                                 $num .= (ceil((ord($d)-64)/3) + $x);
                                               } else {$num .= $1}
                                             }
                                             print $num'
1-800-265-5328
$
$
$
$ echo "1-800-col-lect" | perl -MPOSIX -lne 'while(/(.)/g) {$d = uc($1);
                                               if (grep /$d/, ("A".."Z")) {
                                                 $x = (grep /$d/, qw(S V Y Z)) ? 0 : 1;
                                                 $num .= (ceil((ord($d)-64)/3) + $x);
                                               } else {$num .= $1}
                                             }
                                             print $num'
1-800-265-5328
$
$
$
$ echo "1-800-ASK-USPS" | perl -MPOSIX -lne 'while(/(.)/g) {$d = uc($1);
                                               if (grep /$d/, ("A".."Z")) {
                                                 $x = (grep /$d/, qw(S V Y Z)) ? 0 : 1;
                                                 $num .= (ceil((ord($d)-64)/3) + $x);
                                               } else {$num .= $1}
                                             }
                                             print $num'
1-800-275-8777
$
$
$

tyler_durden

durden_tyler

View Public Profile for durden_tyler

Find all posts by durden_tyler

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Don't show keyboard input on terminal

I am developing a script that will run with '/bin/ksh' shell. The script is intended to receive a password by keyboard input, but for security reasons I would like to hide what the user is typing. The keyboard input is being caught by 'read' command. exmaple : echo "Please type your new...

2. Shell Programming and Scripting

Replace floating-point by integer in awk

Hi, I am trying to write a script to extract multiple sets of data from a chemistry output file. The problem section is in the following format... Geometry "geometry" -> "geometry" 1 Pd 46.0000 -0.19290971 0.00535260 0.02297606 2 P ...

3. Shell Programming and Scripting

How to replace any char with newline char.

Hi, How to replace any character in a file with a newline character using sed .. Ex: To replace ',' with newline Input: abcd,efgh,ijkl,mnop Output: abcd efgh ijkl mnop Thnx in advance. Regards, Sasidhar

4. UNIX for Advanced & Expert Users

test the string is char or integer

How will test the string contains numeric character or alphabet, is there any script to test ?

5. Programming

to compare two integer values stored in char pointers

How can I compare two integer values which is stored in char pointers? suppose I have char *a and char *b having values 10 and 20. how can i find the shorter value?

6. Programming

How i can read a long integer from standar input and a string with as many characters as specified..

how i can read a long integer from standar input and a string with as many characters as specified in the number? i thing that i must use the read command ofcourse....

7. UNIX for Dummies Questions & Answers

Input of char 's' is not possible anymore

Hello, I have a big problem and no idea how to solve it. I was looking up commands in /bin with 'man' as I found 'sh'. In mistake I started the command. Now after that I can not input the character 's' in shell anymore! Even after restarting system the problem is still there. Mysterious...

8. UNIX for Dummies Questions & Answers

Check if input is an integer or a floating point?

Hiii I actually intent to check the integer or floating point number input by user i.e. 23, 100, 55.25, 12.50 ..etc. However, when someone input strings or alpha character, my program has to show invalid input.!! Is there any Unix shell script syntax can help me to check ? Thanking you

9. Shell Programming and Scripting

Using IF statements with maths where the input is not an integer

Hi All I've made a few scripts which using GDAL extract the value of a pixel within a given raster. The purpose is to work out the combine value of every pixel. I thought there may have been an easier way to do this but alas! The code below extracts the pixel value at position X Y. The...

10. UNIX Desktop Questions & Answers

awk a integer and replace it minus X

hey, i have a list of devices that looks like so: VolumeTask(DeviceName(DeviceName(DeviceNameInfo(MultiPathType_UID(Option<GUDeviceID>(GUDeviceID(ulonglong(358271365120608989UL))),Option<ulong>())))),2098560),...

LEARN ABOUT BSD

disktab

DISKTAB(5)							File Formats Manual							DISKTAB(5)

NAME

       disktab - disk description file

SYNOPSIS

       #include <disktab.h>

DESCRIPTION

       Disktab	is a simple date base which describes disk geometries and disk partition characteristics.  The format is patterned after the term-
       cap(5) terminal data base.  Entries in disktab consist of a number of `:' separated fields.  The first entry for each disk gives the  names
       which are known for the disk, separated by `|' characters.  The last name given should be a long name fully identifying the disk.

       The following list indicates the normal values stored for each disk entry.

       Name  Type  Description
       ns    num   Number of sectors per track
       nt    num   Number of tracks per cylinder
       nc    num   Total number of cylinders on the disk
       b0    str   Filename of block zero primary bootstrap for device
       ba    num   Block size for partition `a' (bytes)
       bd    num   Block size for partition `d' (bytes)
       be    num   Block size for partition `e' (bytes)
       bf    num   Block size for partition `f' (bytes)
       bg    num   Block size for partition `g' (bytes)
       bh    num   Block size for partition `h' (bytes)
       fa    num   Fragment size for partition `a' (bytes)
       fd    num   Fragment size for partition `d' (bytes)
       fe    num   Fragment size for partition `e' (bytes)
       ff    num   Fragment size for partition `f' (bytes)
       fg    num   Fragment size for partition `g' (bytes)
       fh    num   Fragment size for partition `h' (bytes)
       pa    num   Size of partition `a' in sectors
       pb    num   Size of partition `b' in sectors
       pc    num   Size of partition `c' in sectors
       pd    num   Size of partition `d' in sectors
       pe    num   Size of partition `e' in sectors
       pf    num   Size of partition `f' in sectors
       pg    num   Size of partition `g' in sectors
       ph    num   Size of partition `h' in sectors
       se    num   Sector size in bytes (default 512)
       sf    bool  supports bad144-style bad sector forwarding
       so    bool  partition offsets in sectors
       ty    str   Type of disk (e.g. removable, winchester)

       Disktab entries may be automatically generated with the diskpart program.

FILES

       /etc/disktab

SEE ALSO

       newfs(8), diskpart(8), getdiskbyname(3)

BUGS

       This file shouldn't exist, the information should be stored on each disk pack.

4.2 Berkeley Distribution					   May 17, 1986 							DISKTAB(5)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Don't show keyboard input on terminal

Discussion started by: marianor31

2. Shell Programming and Scripting

Replace floating-point by integer in awk

Discussion started by: smadonald1

3. Shell Programming and Scripting

How to replace any char with newline char.

Discussion started by: mightysam

4. UNIX for Advanced & Expert Users

test the string is char or integer

Discussion started by: rajesh08