I have following content in the file
CancelPolicyMultiLingual3=U|PC3|EN
RestaurantInfoCode1=U|restID1|1
.....
I am trying to use following matching extression
\|(+)
to get this
PC3|EN
restID1|1
Obviously it does not work.
Any ideas? (13 Replies)
Hi Gurus,
I need help with regular expressions. I want to create a regular expression which will take only alpha-numeric characters for 7 characters long and will throw out an error if longer than that.
i tried various combinations but couldn't get it, please help me how to get it guys.
... (2 Replies)
Hi,
below is a piece of code written by my predecessor at work.
I'm kind of a newbie and am trying to figure out all the regular expressions in this piece of code.
It is really a tough time for me to figure out all the regular expressions.
Please shed some light on the regular expressions... (3 Replies)
In regular expressions with grep(or egrep), ^ works if we want something in starting of line..but what if we write ^^^ or ^ for pattern matching??..Hope u all r familiar with regular expressions for pattern matching.. (1 Reply)
#!/usr/bin/perl
$word = "one last challenge";
if ( $word =~ /^(\w+).*\s(\w+)$/ )
{
print "$1";
print "\n";
print "$2";
}
The output shows that "$1" is with result one and "$2" is with result challenge. I am confused about how this pattern match expression works step by step. I... (8 Replies)
I have a file that I'm trying to find all the cases of phone number extensions and deleting them. So input file looks like:
abc
x93825
def
13234
x52673
hello
output looks like:
abc
def
13234
hello
Basically delete lines that have 5 numbers following "x". I tried: x\(4) but it... (7 Replies)
I am new to shell scripts.Can u please help me on this req.
test_user = "Arun"
if
echo "test_user is a word"
else
echo "test_user is not a word" (1 Reply)
I need to pick a part of string lets stay started with specific character and end with specific character to replace using sed command
the line is like this:my audio book 71-skhdfon1dufgjhgf8.wav'
I want to move the characters beginning with - end before.
I have different files with random... (2 Replies)
Discussion started by: XP_2600
2 Replies
LEARN ABOUT DEBIAN
data::pager
Data::Pager(3pm) User Contributed Perl Documentation Data::Pager(3pm)NAME
Data::Pager - flexible data pager
SYNOPSIS
use Data::Pager;
my $pager = Data::Pager->new({
current => 100,
perpage => 10,
offset => 5,
limit => 2000,
});
#~ accessors:
$pager->current; # 100
$pager->next; # 101
$pager->prev; # 99
$pager->limit; # 2000
$pager->start; # 1 # not typical start of a programmer
$pager->final; #
# 400 (which denotes 2000 / 5 pager links)
$pager->end; # /
$pager->from; # 495 (may serve in SQL LIMIT clause)
$pager->to; # 500 (may serve in SQL LIMIT clause)
$pager->list; # 95 96 97 98 99 100 101 102 103 104 105
DESCRIPTION
This class implements the familiar pager where the current position is centered.
CONSTRUCTOR
new
my $pager = Data::Pager->new({
current => 1, # this is the current pager position
perpage => 10, # the pager consists of this number of links (defaults to 10)
offset => 5, # this is the number of results (fetched from the DB for example) per result
limit => 100, # how far is the pager allowed
});
# sample output from html table:
id ... ..... ...
1. ... ..... ...
2. ... ..... ...
3. ... ..... ...
4. ... ..... ...
5. ... ..... ...
1 2 3 4 5 6 7 8 9 10
Returns object or undef if current position is beyond the limit.
METHODS
current
$pager->current();
Returns the current pager position.
set_current($digit)
$pager->set_current(850);
$pager->set_current(850)->next();
Sets the current pager position. Returns the pager object on succes, undef on false.
next
Returns the next pager position or undef if this is the last one.
prev
Returns the previous pager position or undef if this is the first one.
start
Returns 1 - the start pager position.
end
Returns the end pager position.
first
Returns the first pager position for this result set.
last
Returns the last pager position for this result set.
from
'1' => {
'to' => 5,
'next' => 2,
'prev' => undef,
'from' => 0
},
'2' => {
'to' => 10,
'next' => 3,
'prev' => 1,
'from' => 5
},
...
Returns the start result this pager position refers to.
to
Returns the end result this pager position refers to.
list
@_ = $pager->list;
$_ = $pager->list;
Returns the pager links for this result set. In list context returns the resulting list. In scalar context returns reference to the
resulting list.
# note the alignment
$pager->set_current(10);
print $pager->list; # 6 7 8 9 [10] 11 12 13 14 15
$pager->set_current(33);
print $pager->list; # 28 29 30 31 32 [33] 34 35 36 37 38
SEE ALSO
Data::Page
BUGS
What BUGS?
AUTHOR
Vidul Nikolaev Petrov, vidul@cpan.org
COPYRIGHT
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.10.0 2006-04-04 Data::Pager(3pm)