Hi guys,
does anyone know how to test for a regular expression - i want to include it in a script to make sure the variable is a regexp
cheers (1 Reply)
What is the easiest way to get full address of *.jpg images from html file using perl?
example:
http://farm3.static.flickr.com/2397/2126443111_65a810004c.jpg (1 Reply)
I'd like to know if there is a catchall line for renaming the following patterns:
s01e03 -> 01x03
s4e9 -> 04x09
s10e08 ->10x08
and possibly even:
318 -> 03x18
1002 ->10x02
if its the first 3 or first digit number in the string.
thanks! (0 Replies)
Good Day,
Im new to scripting especially awk and sed. I just would like to ask help from you guys about a sed command that prints the line immediately after a regexp, but not the line containing the regexp.
sed -n '/regexp/{n;p;}' filename
What if my regexp is 3 word or a sentence. Im... (3 Replies)
Hi,
maybe it is stupid question, but is it possible to match expression like this ? :
... // ... ( there is "//" somewhere on the line and on the end of the line there ISN'T "*/" )
I've tried something like : (in SED)
sed 's/\/\/'
but I need "*/" not to be on the end of the line ...... (2 Replies)
Hello,
I'm just starting working on it. I'd like to get a tip
For istance if I have a file like:
a b c
d e f
....
and I wanna get:
1a & 2b & 3c
0d & 8e & 4f
.....
I would like to use sed and come up with a regular expression that works.... (3 Replies)
I have test string value , something like the one below
str='KUAMRJIT|GHOSH'
If I type
echo $str | grep -o -e '\|+'
it doesnt give me anything .
But on the contrary
echo $str | grep -o -e '|'
display the only one pipe character(|) thats there in the string above .
The way I understood Unix... (8 Replies)
CheckDigits::MXX_002(3pm) User Contributed Perl Documentation CheckDigits::MXX_002(3pm)NAME
CheckDigits::MXX_002 - compute check digits for CAS
SYNOPSIS
use Algorithm::CheckDigits;
$cas = CheckDigits('cas');
if ($cas->is_valid('1333-74-0')) {
# do something
}
$cn = $cas->complete('1333-74-');
# $cn = '1333-74-0'
$cd = $cas->checkdigit('1333-74-0');
# $cd = '0'
$bn = $cas->basenumber('1333-74-0');
# $bn = '1333-74-'
DESCRIPTION
ALGORITHM
1. Beginning right with the second digit all digits are weighted ascending starting with 1.
2. The sum of those products is computed.
3. The checksum is the last digit of the sum from step 2 (modulo 10).
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 and spaces.
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>
THANKS
Aaron W. West pointed me to a fault in the computing of the check digit.
HERMIER Christophe made me aware that CAS is now assigning 10-digit CAS Registry Numbers (http://www.cas.org/newsevents/10digitrn.html)
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de, www.cas.org http://www.cas.org/expertise/cascontent/registry/checkdig.html
perl v5.10.0 2008-05-17 CheckDigits::MXX_002(3pm)