Adapted code from perl FAQ in shell functions for single string and for a file (does not need rev):
Code:
#!/usr/bin/env bash
# @(#) s2 Demonstrate commify a numeric string, perl in shell # functions.
# See: perldoc -q commas
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
cs() { echo "$1" | perl -wp -e '1 while s/^([-+]?\d+)(\d{3})/$1,$2/; ' ; }
cf() { perl -wp -e '1 while s/^([-+]?\d+)(\d{3})/$1,$2/; ' "$1" ; }
C=$HOME/bin/context && [ -f $C ] && $C perl
FILE=${1-data1}
pl " With single string:"
for number in 1 12 123 1234 12345 123456 -1 -12 -123 -1234 +1 +12 +123 +1234
do
pe " for $number, result is $( cs $number )"
done
pl " With contents of a file:"
head $FILE
pe
cf $FILE
exit 0
producing:
Code:
% ./s2
Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution : Debian GNU/Linux 5.0.8 (lenny)
bash GNU bash 3.2.39
perl 5.10.0
-----
With single string:
for 1, result is 1
for 12, result is 12
for 123, result is 123
for 1234, result is 1,234
for 12345, result is 12,345
for 123456, result is 123,456
for -1, result is -1
for -12, result is -12
for -123, result is -123
for -1234, result is -1,234
for +1, result is +1
for +12, result is +12
for +123, result is +123
for +1234, result is +1,234
-----
With contents of a file:
999
1000
-1000
+1000
12345
1234567.1234
-1234567.1234
+1234567.1234
12345678911234567
999
1,000
-1,000
+1,000
12,345
1,234,567.1234
-1,234,567.1234
+1,234,567.1234
12,345,678,911,234,567
Hi,
I remember once seeing a way to get the left most string in a word.
Let's say: a="First.Second.Third" (separated by dot)
echo ${a#*.} shows --> Second.Third
echo ${a##*.} shows --> Third
How do I get the the left most string "First" Or "First.Second" ???
Tried to replace #... (2 Replies)
Hi guys,
I am not very experienced in writing ksh scripts and I am trying to write a piece of code that indicates if a given string contains only digits and no alphabet (upper or lower case). If i write it my way it would turn out to have a lot of comparisons.. :eek:
Thanks a lot in... (3 Replies)
Hi Experts,
I have called some.txt with the following content.
oracle HYRDSRVIHUB01 pts/0 TESTIHUB 07-JUN-10 CREATE TABLE
TESTIHUB PHONE ... (12 Replies)
I would like to search between two a string. I thought this would be easy. The is always at the beginning of a line.
The code:
gawk '/^/{d=$1},/searchstring/,/^(d+1)/'
or
gawk '/^/,/searchstring/,/^/'
did not return the desired result.
inputfile.txt
999 some text searchstring some... (6 Replies)
I have a awk file which consists of the follwoing code in file select.awk :
/xxx/ {
time = gensub(/xxx \*\*\*(.*)/, "\\1", "g")
printf("%s\n",time)
next
}
and an input file with the following file file.txt :-
xxx ***Wed May 2 18:00:00 CDT 2012
AAA AAAA AAAA xxx... (4 Replies)
Hi Guys,
I want to search for a specific file in a directory which have a "b" letter as the 3rd character in the name of the file.
For Example :
/abc/efg/ldbjfblkj.sh
/abc/efg/erublkd.sh
/abc/efg/eibueora.sh
/abc/efg/kfvnmnb.sh
Since we have 2 files with "b" as a 3rd character in... (5 Replies)
hello
i have file with 100k records and each one has certain value that starts at 28th column and certain value that starts at 88th column
e.g. 1st file
<25>1234567 ..... <88> 8573785485
i have aditional file with values which are related to value that starts at 88th column of the... (1 Reply)
Hello,
I have a log file with logs such as
01/05/2017 10:23:41 : file.log.38: database error, MODE=SINGLE, LEVEL=critical, STATE: 01170255 (mode main
how can i use perl to extract the 8-digit number below from the string
01170255
Thanks (7 Replies)
Discussion started by: james2009
7 Replies
LEARN ABOUT PHP
ctype_xdigit
CTYPE_XDIGIT(3) 1 CTYPE_XDIGIT(3)ctype_xdigit - Check for character(s) representing a hexadecimal digitSYNOPSIS
bool ctype_xdigit (string $text)
DESCRIPTION
Checks if all of the characters in the provided string, $text, are hexadecimal 'digits'.
PARAMETERS
o $text
- The tested string.
RETURN VALUES
Returns TRUE if every character in $text is a hexadecimal 'digit', that is a decimal digit or a character from [A-Fa-f] , FALSE otherwise.
EXAMPLES
Example #1
A ctype_xdigit(3) example
<?php
$strings = array('AB10BC99', 'AR1012', 'ab12bc99');
foreach ($strings as $testcase) {
if (ctype_xdigit($testcase)) {
echo "The string $testcase consists of all hexadecimal digits.
";
} else {
echo "The string $testcase does not consist of all hexadecimal digits.
";
}
}
?>
The above example will output:
The string AB10BC99 consists of all hexadecimal digits.
The string AR1012 does not consist of all hexadecimal digits.
The string ab12bc99 consists of all hexadecimal digits.
NOTES
Note
If an integer between -128 and 255 inclusive is provided, it is interpreted as the ASCII value of a single character (negative val-
ues have 256 added in order to allow characters in the Extended ASCII range). Any other integer is interpreted as a string contain-
ing the decimal digits of the integer.
SEE ALSO ctype_digit(3).
PHP Documentation Group CTYPE_XDIGIT(3)