I'm writing a script that replaces a value in a file. The file is formatted as follows:
[param_one] [value]
[param_two] [value]
So, for this example, I'd like to replace the value for param_two. The value for param_two can be a one, or two-digit number. It replaces the value in file.cfg, and directs the output to new_file.cfg. $p2 is a variable passed as an arg on the command line. Here's what I have:
This code works like a charm if the value for param_two is a one-digit number and $p2 is a one or two-digit number. If the value is a two-digit number, however, my code only replaces only the first digit; which is not what I want. I want to be able to replace the value with whatever is passed for $p2. Any ideas? Thanks in advance.
I would like to do this:
replace the word "prod" with the word "special" but it may occur through the file naturally without a command, I only want it to happen when it has a specific command in front of it. The command will always look like this
<IMG,###,###,##,>prod/directory/IMG/file
... (4 Replies)
From my understanding when using regex1|regex2 the matching process tries each alternative in turn, from left to right, and the first one that succeeds is used.
When im trying to extract the name from those examples:
A) name.can.be.different.20.03.2009.boom
B)... (2 Replies)
I am having trouble parsing rpm filenames in a shell script.. I found a snippet of perl code that will perform the task but I really don't have time to rewrite the entire script in perl. I cannot for the life of me convert this code into something sed-friendly:
if ($rpm =~ /(*)-(*)-(*)\.(.*)/)... (1 Reply)
Hello,
I'd like to write a regex that transforms a German base form of a noun into one of its inflected forms, namely
I want to translate "Haus" to "Häuser"
This is what I've got:
/^(.+)$/_Umlaut( $1 )_er/
where _Umlaut( x )_ is a function operating on the noun stem captured by $1 The... (1 Reply)
Hi,
I want to validate strings in perl, the string may contains characters from a-zA-Z0-9 and symbols +-_.:/\
To validate such a string I computed a regex
if ($string =~ m/^/) {
print "valid";
} else {
print "invalid";
}
but this regex also validates strings that contain... (8 Replies)
Hi,
Could you please help me in writing a regex for the following requirement?
Let following be the string format:
abc.cdef.ghij.lm
I need to check between dots, there is atleast one character{a-z,A-Z,*}.
Eg: abc1.gt2.345j is valid, but not 123.abc.vff.gth because 123 should not be... (2 Replies)
I am looking for the proper regex to match the hostname "areagc11" of this log.... Any help would be awsome:)
Oct 25 11:08:18 areagc11 961: Oct 25 18:08:17.536 GMT: %SYS-5-CONFIG_I: Configured from console by someone onvty1 (10.156.72.97) (6 Replies)
Hi,
Have to filter out string before the last underscore in the following
input: UNIX_Solaris_59_KSH
output: UNIX_Solaris_59
dummy one but :mad:
Thanks & Regards,
Sourabh Singh Khichi (4 Replies)
Hi all, please can anyone show me how to use sed and regular expressions to achieve the following.
If a line contains a capital A followed by exactly 5 or 6 characters followed by an angled bracket then insert an asterix before the angled bracket.
So:
XCONFIGA12345<X
Becomes:
... (5 Replies)
hi
i would like to say "DATABASENAME=" to "TABLESNAME="
remove "," and press enter myconfig file
thanks (1 Reply)
Discussion started by: mnnn
1 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m09_001
CheckDigits::M09_001(3pm) User Contributed Perl Documentation CheckDigits::M09_001(3pm)NAME
CheckDigits::M09_001 - compute check digits for Euro notes
SYNOPSIS
use Algorithm::CheckDigits;
$euro = CheckDigits('euronote');
if ($euro->is_valid('X07738250357')) {
# do something
}
$cn = $euro->complete('X0773825035'); # $cn = 'X07738250357'
$cd = $euro->checkdigit('X07738250357'); # $cd = '7'
$bn = $euro->basenumber('X07738250357'); # $bn = 'X0773825035'
DESCRIPTION
ALGORITHM
1. Letters are replaced with their position in the alphabet ('A' = 1, ...).
2. The total of the digits of all numbers is computed.
3. This sum is taken modulo 9.
4. The check digit is the difference between 8 and the number of step 3.
To validate the last digit of the total of the digits of all numbers inclusive check digit must be 8.
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm given
above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and concatenated to the end of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns the checkdigit of $number if $number has a valid check digit.
Return '' otherwise.
EXPORT
None by default.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de.
perl v5.10.0 2008-05-17 CheckDigits::M09_001(3pm)