You can use GNU grep, or you can use perl, which is easiest I think. This prints out ONLY the ABCDDIR text when found:
In this case, you can use perl instead of sed -- this prints out the original text as you want it:
Is it possible to combine a regular expression with a aritmetical expression? For example, taking a 8-numbers caracter sequece and casting each output of a grep, comparing to a constant.
THX! (2 Replies)
What does the regular expression +~).*'] mean while using it with regexec.When the string "RCHNUSNT35C~rs07/ASM-RS07" is used with the regular expression +~).*'] regexec gives an error. I know what regexec does,but i do not understand what this expression means wrt to this string...
any help... (2 Replies)
I currently list and sort all the files in a directory which begin with an Upper Case C and end with the extension '#finished#'.
Here is the command I use:
ls -tr $currentDir/*.#finished#
what i need to do now is list all the files in a directory that begin with upper case C and end... (3 Replies)
CA_RELEASE has a value of 6. I need to check if that this is a numeric value. if not error.
source $CA_VERSION_DATA
if * ]
then
echo "CA_RELESE $CA_RELEASE is invalid"
exit -1
fi
+ source /etc/ncgl/ca_version_data
++ CA_PRODUCT_ID=samxts
++ CA_RELEASE=6
++ CA_WEEK_NO=7
++... (3 Replies)
Hi all,
How am I read a file, find the match regular expression and overwrite to the same files.
open DESTINATION_FILE, "<tmptravl.dat" or die "tmptravl.dat";
open NEW_DESTINATION_FILE, ">new_tmptravl.dat" or die "new_tmptravl.dat";
while (<DESTINATION_FILE>)
{
# print... (1 Reply)
Hello All,
I'm trying to extract the lines between two consecutive elements of an array from a file.
My array looks like:
problem_arr=(PRS111 PRS213 PRS234)
j=0
while } ]
do
k=`expr $j + 1`
sed -n "/${problem_arr}/,/${problem_arr}/p" problemid.txt
---some operation goes... (11 Replies)
Hi,
I am quite knew to scripting and I am trying to get a regular expression to work to check that a user enters a valid version number such as 1 or 1.1 or 12.3 etc. I dont seem to be able to get it to work as it picks up versions such as 1.......2. I only want it to work with a single dot.... (12 Replies)
I would like to extract "JDBC Thin Client" from (PROGRAM=JDBC Thin Client); and "C:\Python26\python.exe" from (PROGRAM=C:\Python26\python.exe); "txm_v_awsrf_db.pr" from (PROGRAM=txm_v_awsrf_db.pr).
if input line like "(PROGRAM=)", it return unknown.
Would you help suggest a regular... (4 Replies)
Discussion started by: cstsang
4 Replies
LEARN ABOUT DEBIAN
device::gsm::pdu
Device::Gsm::Pdu(3pm) User Contributed Perl Documentation Device::Gsm::Pdu(3pm)NAME
Device::Gsm::Pdu - library to manage PDU encoded data for GSM messaging
WARNING
This is C<BETA> software, still needs extensive testing and
support for custom GSM commands, so use it at your own risk,
and without C<ANY> warranty! Have fun.
NOTICE
This module is meant to be used internally by C<Device::Gsm> class,
so you probably do not want to use it directly.
SYNOPSIS
use Device::Gsm::Pdu;
# DA is destination address
$DA = Device::Gsm::Pdu::encode_address('+39347101010');
$number = Device::Gsm::Pdu::decode_address( $DA );
# Encode 7 bit text to send messages
$text = Device::Gsm::Pdu::encode_text7('hello');
DESCRIPTION
"Device::Gsm::Pdu" module includes a few basic functions to deal with SMS in PDU mode, such as encoding GSM addresses (phone numbers) and,
for now only, 7 bit text.
FUNCTIONS
decode_address( pdu_encoded_address )
Takes a PDU encoded address and decodes into human-readable mobile number. If number type is international, result will be prepended with
a `+' sign.
Clearly, it is intended as an internal function.
Example
print Device::Gsm::Pdu::decode_address( '0B919343171010F0' );
# prints `+39347101010';
encode_address( mobile_number )
Takes a mobile number and encodes it as DA (destination address). If it begins with a `+', as in `+39328101010', it is treated as an
international number.
Example
print Device::Gsm::Pdu::encode_address( '+39347101010' );
# prints `0B919343171010F0'
encode_text7( text_string )
Encodes some text ASCII string in 7 bits PDU format, including a header byte which tells the length is septets. This is the only 100%
supported mode to encode text.
Example
print Device::Gsm::Pdu::encode_text7( 'hellohello' );
# prints `0AE832...'
pdu_to_latin1($pdu)
Converts a PDU (without the initial length octet) into a latin1 string.
Example
my $pdu = 'CAFA9C0E0ABBDF7474590E8296E56C103A3C5E97E5';
print Device::Gsm::Pdu::pdu_to_latin1($pdu);
# prints `Just another Perl hacker'
latin1_to_pdu($text)
Converts a text string in latin1 encoding (ISO-8859-1) into a PDU string.
Example
my $text = "Just another Perl hacker";
print Device::Gsm::Pdu::latin1_to_pdu($text);
# prints `CAFA9C0E0ABBDF7474590E8296E56C103A3C5E97E5'
AUTHOR
Cosimo Streppone, cosimo@cpan.org
COPYRIGHT
This library is free software; you can redistribute it and/or modify it only under the terms of Perl itself.
SEE ALSO Device::Gsm(3), perl(1)perl v5.14.2 2012-03-08 Device::Gsm::Pdu(3pm)