Sponsored Content
Top Forums Shell Programming and Scripting Extract n-digits from string in perl Post 303003072 by durden_tyler on Thursday 7th of September 2017 10:37:40 AM
Old 09-07-2017
If the 8-digit number is always preceded by the word "STATE:" then you could use regular expressions as well:

Code:
$
$ cat mylog.txt
01/05/2017 10:23:41 [ABCD-22357$0]: file.log.38: database error, MODE=SINGLE, LEVEL=critical, STATE: 01170255 (mode main
$
$ perl -lne 'print $1 if /STATE:\s+(\d+)/' mylog.txt
01170255
$

If it could be preceded by more than word, then specify them all in your regular expression, like so:

Code:
$
$ cat mylog_1.txt
01/05/2017 10:23:41 [ABCD-22357$0]: file.log.38: database error, MODE=SINGLE, LEVEL=critical, STATE: 01170255 (mode main
something else
over here
01/05/2017 10:23:41 [ABCD-22357$0]: file.log.38: database error, MODE=SINGLE, LEVEL=critical, BLAH: 12345678 (mode main
some other stuff
$
$ perl -lne 'print $2 if /(STATE|BLAH):\s+(\d+)/' mylog_1.txt
01170255
12345678
$


Last edited by durden_tyler; 09-07-2017 at 11:43 AM..
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

to check if a string has only digits

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)
Discussion started by: lakshmikanth
3 Replies

2. Shell Programming and Scripting

Extract digits at end of string

I have a string like xxxxxx44. What's the best way to extract the digits (one or more) in a ksh script? Thanks (6 Replies)
Discussion started by: offirc
6 Replies

3. Shell Programming and Scripting

perl newbie: how to extract an unknown word from a string

hi, im quite new to perl regexp. i have a problem where i want to extract a word from a given string. but the word is unknown, only fact is that it appears as the second word in the string. Eg. input string(s) : char var1 = 'A'; int var2 = 10; char *ptr; and what i want to do is... (3 Replies)
Discussion started by: wolwy_pete
3 Replies

4. Shell Programming and Scripting

Isolate and Extract a Pattern Substring (Digits Only)

Hi guys, I have a text file report generated from egrepping multiple files. The text files themselves are obtianed after many succesive refinements, so they contain already the desired number, but this is surrounded by unwanted characters, newlines, spaces, it is not always at the start of the... (6 Replies)
Discussion started by: netfreighter
6 Replies

5. Shell Programming and Scripting

Perl Extract String

Hi, I have a string like "something is good wanted (bla bla)" I need to get the world "wanted" from this string and "assign it to a variable".. but it's not a static word so i want to get that word by searching the pattern as follows <space>desiredword<space>( and i tried to get that... (6 Replies)
Discussion started by: xlynx3
6 Replies

6. Shell Programming and Scripting

Perl REGEX - How do extract a string in a line?

Hi Guys, In the following line: cn=portal.090710.191533.428571000,cn=groups,dc=mp,dc=rj,dc=gov,dc=br I need to extract this string: portal.090710.191533.428571000 As you can see this string always will be bettween "cn=" and "," strings. Someone know one regular expression to... (4 Replies)
Discussion started by: maverick-ski
4 Replies

7. Shell Programming and Scripting

extract string and sending it into a new file in perl program

Hi, I have a input file with following values (test.out) I would like to grep all lines with word 'PANIC' and sent it another file using perl program with grep command. I have been trying different ways and not working. Pls advice. Thanks a lot for the help. --example--... (3 Replies)
Discussion started by: hudson03051nh
3 Replies

8. Shell Programming and Scripting

extract digits from a string in unix

Hi all, i have such string stored in a variable var1 = 00000120 i want the o/p var1 = 120 is it possible to have such o/p in ksh/bash ... thanx in advance for the help sonu (3 Replies)
Discussion started by: sonu_pal
3 Replies

9. Shell Programming and Scripting

awk extract certain digits from file with index substr

I would like to extract a digit from $0 starting 2,30 to 3,99 or 2.30 to 3.99 Can somebody fix this? awk --re-interval '{if($0 ~ /{1}{2}/) {print FILENAME, substr($0,index($0,/{1}{2}/) , 4)}}'input abcdefg sdlfkj 3,29 g. lasdfj alsdfjasl 2.86 gr. slkjds sldkd lskdjfsl sdfkj kdjlksj 3,34 g... (4 Replies)
Discussion started by: sdf
4 Replies

10. Shell Programming and Scripting

How can I extract digits at the end of a string in UNIX shell scripting?

How can I extract digits at the end of a string in UNIX shell scripting or perl? cat file.txt abc_d123_4567.txt A246_B789.txt B123cc099.txt a123_B234-012.txt a13.txt What can I do here? Many thanks. cat file.txt | sed "s/.txt$//" | ........ 4567 789 099 012 13 (11 Replies)
Discussion started by: mingch
11 Replies
LaTeXML::State(3pm)					User Contributed Perl Documentation				       LaTeXML::State(3pm)

NAME
"LaTeXML::State" - stores the current state of processing. DESCRIPTION
A "LaTeXML::State" object stores the current state of processing. It recording catcodes, variables values, definitions and so forth, as well as mimicing TeX's scoping rules. Access to State and Processing "$STATE->getStomach;" Returns the current Stomach used for digestion. "$STATE->getModel;" Returns the current Model representing the document model. Scoping The assignment methods, described below, generally take a $scope argument, which determines how the assignment is made. The allowed values and thier implications are: global : global assignment. local : local assignment, within the current grouping. undef : global if global preceded, else local (default) <name> : stores the assignment in a `scope' which can be loaded later. If no scoping is specified, then the assignment will be global if a preceding "global" has set the global flag, otherwise the value will be assigned within the current grouping. "$STATE->pushFrame;" Starts a new level of grouping. Note that this is lower level than "group"; See LaTeXML::Stomach. "$STATE->popFrame;" Ends the current level of grouping. Note that this is lower level than "egroup"; See LaTeXML::Stomach. "$STATE->setPrefix($prefix);" Sets a prefix (eg. "global" for "global", etc) for the next operation, if applicable. "$STATE->clearPrefixes;" Clears any prefixes. Values "$value = $STATE->lookupValue($name);" Lookup the current value associated with the the string $name. "$STATE->assignValue($name,$value,$scope);" Assign $value to be associated with the the string $name, according to the given scoping rule. Values are also used to specify most configuration parameters (which can therefor also be scoped). The recognized configuration parameters are: VERBOSITY : the level of verbosity for debugging output, with 0 being default. STRICT : whether errors (eg. undefined macros) are fatal. INCLUDE_COMMENTS : whether to preserve comments in the source, and to add occasional line number comments. (Default true). PRESERVE_NEWLINES : whether newlines in the source should be preserved (not 100% TeX-like). By default this is true. SEARCHPATHS : a list of directories to search for sources, implementations, etc. "$STATE->pushValue($name,$value);" This is like "->assign", but pushes a value onto the end of the stored value, which should be a LIST reference. Scoping is not handled here (yet?), it simply pushes the value onto the last binding of $name. "$boole = $STATE->isValuebound($type,$name,$frame);" Returns whether the value $name is bound. If $frame is given, check whether it is bound in the $frame-th frame, with 0 being the top frame. Category Codes "$value = $STATE->lookupCatcode($char);" Lookup the current catcode associated with the the character $char. "$STATE->assignCatcode($char,$catcode,$scope);" Set $char to have the given $catcode, with the assignment made according to the given scoping rule. This method is also used to specify whether a given character is active in math mode, by using "math:$char" for the character, and using a value of 1 to specify that it is active. Definitions "$defn = $STATE->lookupMeaning($token);" Get the "meaning" currently associated with $token, either the definition (if it is a control sequence or active character) or the token itself if it shouldn't be executable. (See LaTeXML::Definition) "$STATE->assignMeaning($token,$defn,$scope);" Set the definition associated with $token to $defn. If $globally is true, it makes this the global definition rather than bound within the current group. (See LaTeXML::Definition, and LaTeXML::Package) "$STATE->installDefinition($definition, $scope);" Install the definition into the current stack frame under its normal control sequence. Named Scopes Named scopes can be used to set variables or redefine control sequences within a scope other than the standard TeX grouping. For example, the LaTeX implementation will automatically activate any definitions that were defined with a named scope of, say "section:4", during the portion of the document that has the section counter equal to 4. Similarly, a scope named "label:foo" will be activated in portions of the document where "label{foo}" is in effect. "$STATE->activateScope($scope);" Installs any definitions that were associated with the named $scope. Note that these are placed in the current grouping frame and will disappear when that grouping ends. "$STATE->deactivateScope($scope);" Removes any definitions that were associated with the named $scope. Normally not needed, since a scopes definitions are locally bound anyway. "$sp = $STATE->convertUnit($unit);" Converts a TeX unit of the form '10em' (or whatever TeX unit) into scaled points. (Defined here since in principle it could track the size of ems and so forth (but currently doesn't)) AUTHOR
Bruce Miller <bruce.miller@nist.gov> COPYRIGHT
Public domain software, produced as part of work done by the United States Government & not subject to copyright in the US. perl v5.10.1 2009-06-11 LaTeXML::State(3pm)
All times are GMT -4. The time now is 03:27 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy