05-30-2008
can u please check this.it didnt work for me
perl -0777 -p -i -e 's/%%Page: (4) 4(.*?)GS/%%Page: (4) 4 $1 GS setlinewidth \n 25 110 moveto \n 75 110 lineto/s' filename
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
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)
Discussion started by: Z0mby
2 Replies
2. Programming
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)
Discussion started by: anupamar
2 Replies
3. Linux
Regular expression to extract "y" from "abc/x.y.z" (2 Replies)
Discussion started by: rag84dec
2 Replies
4. UNIX for Dummies Questions & Answers
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)
Discussion started by: rkgudde
3 Replies
5. Shell Programming and Scripting
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)
Discussion started by: ketkee1985
3 Replies
6. Programming
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)
Discussion started by: jessy83
1 Replies
7. UNIX for Advanced & Expert Users
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)
Discussion started by: InduInduIndu
11 Replies
8. UNIX for Dummies Questions & Answers
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)
Discussion started by: frodo61
12 Replies
9. Shell Programming and Scripting
Can someone please explain me what does this mean?
^{1,50}$ (1 Reply)
Discussion started by: Anupam_Halder
1 Replies
10. Shell Programming and Scripting
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 MOJAVE
io::pager::page
IO::Pager::Page(3) User Contributed Perl Documentation IO::Pager::Page(3)
NAME
IO::Pager::Page - Emulate IO::Page, pipe STDOUT to a pager if STDOUT is a TTY
SYNOPSIS
Pipes STDOUT to a pager if STDOUT is a TTY
DESCRIPTION
IO::Pager was designed to programmatically decide whether or not to point the STDOUT file handle into a pipe to program specified in the
PAGER environment variable or one of a standard list of pagers.
USAGE
BEGIN {
use IO::Pager::Page;
# use I::P::P first, just in case another module sends output to STDOUT
}
print<<HEREDOC;
...
A bunch of text later
HEREDOC
If you wish to forgo the potential for a Broken Pipe foible resulting from the user exiting the pager prematurely, load IO::Pager::Page
like so:
use IO::Pager::Page hush=>1;
SEE ALSO
IO::Page, IO::Pager, IO::Pager::Unbuffered, IO::Pager::Buffered
AUTHOR
Jerrad Pierce <jpierce@cpan.org>
Florent Angly <florent.angly@gmail.com>
This module inspired by Monte Mitzelfelt's IO::Page 0.02
COPYRIGHT AND LICENSE
Copyright (C) 2003-2012 Jerrad Pierce
o Thou shalt not claim ownership of unmodified materials.
o Thou shalt not claim whole ownership of modified materials.
o Thou shalt grant the indemnity of the provider of materials.
o Thou shalt use and dispense freely without other restrictions.
Or, if you prefer:
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.0 or, at
your option, any later version of Perl 5 you may have available.
perl v5.18.2 2012-09-04 IO::Pager::Page(3)