PPIx::Regexp::Token::Code(3pm) User Contributed Perl Documentation PPIx::Regexp::Token::Code(3pm)NAME
PPIx::Regexp::Token::Code - Represent a chunk of Perl embedded in a regular expression.
SYNOPSIS
use PPIx::Regexp::Dumper;
PPIx::Regexp::Dumper->new(
'qr{(?{print "hello sailor
"})}smx')->print;
INHERITANCE
"PPIx::Regexp::Token::Code" is a PPIx::Regexp::Token.
"PPIx::Regexp::Token::Code" is the parent of PPIx::Regexp::Token::Interpolation.
DESCRIPTION
This class represents a chunk of Perl code embedded in a regular expression. Specifically, it results from parsing things like
(?{ code })
(??{ code })
or from the replacement side of an s///e. Technically, interpolations are also code, but they parse differently and therefore end up in a
different token.
METHODS
This class provides the following public methods. Methods not documented here are private, and unsupported in the sense that the author
reserves the right to change or remove them without notice.
ppi
This convenience method returns the PPI::Document representing the content. This document should be considered read only.
SUPPORT
Support is by the author. Please file bug reports at <http://rt.cpan.org>, or in electronic mail to the author.
AUTHOR
Thomas R. Wyant, III wyant at cpan dot org
COPYRIGHT AND LICENSE
Copyright (C) 2009-2012 by Thomas R. Wyant, III
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full
text of the licenses in the directory LICENSES.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.
perl v5.14.2 2012-06-06 PPIx::Regexp::Token::Code(3pm)
Check Out this Related Man Page
PPIx::Regexp::Token(3pm) User Contributed Perl Documentation PPIx::Regexp::Token(3pm)NAME
PPIx::Regexp::Token - Base class for PPIx::Regexp tokens.
SYNOPSIS
use PPIx::Regexp::Dumper;
PPIx::Regexp::Dumper->new( 'qr{foo}' )->print();
INHERITANCE
"PPIx::Regexp::Token" is a PPIx::Regexp::Element.
"PPIx::Regexp::Token" is the parent of PPIx::Regexp::Token::Assertion, PPIx::Regexp::Token::Backtrack, PPIx::Regexp::Token::CharClass,
PPIx::Regexp::Token::Code, PPIx::Regexp::Token::Comment, PPIx::Regexp::Token::Control, PPIx::Regexp::Token::Greediness,
PPIx::Regexp::Token::GroupType, PPIx::Regexp::Token::Literal, PPIx::Regexp::Token::Modifier, PPIx::Regexp::Token::Operator,
PPIx::Regexp::Token::Quantifier, PPIx::Regexp::Token::Reference, PPIx::Regexp::Token::Structure, PPIx::Regexp::Token::Unknown,
PPIx::Regexp::Token::Unmatched and PPIx::Regexp::Token::Whitespace.
DESCRIPTION
This class represents the base of the class hierarchy for tokens in the PPIx::Regexp package.
METHODS
This class provides no public methods beyond those provided by its superclass.
SUPPORT
Support is by the author. Please file bug reports at <http://rt.cpan.org>, or in electronic mail to the author.
AUTHOR
Thomas R. Wyant, III wyant at cpan dot org
COPYRIGHT AND LICENSE
Copyright (C) 2009-2012 by Thomas R. Wyant, III
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full
text of the licenses in the directory LICENSES.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.
perl v5.14.2 2012-06-06 PPIx::Regexp::Token(3pm)
I have a perl code that runs like
Code I
sub p
{
if ($d >= $D) {return}
printf "%3s"x$d++," ";
printf "%s%s\n",$_,$h{$_}?" ** ":"";
if (!$h{$_})
{
$h{$_}=1;
map {p($_)} @{$s{$_}}
}
$d--
}
($Set,$Job,$Num,$D) = (@ARGV);
map {shift} 0..3; (8 Replies)
Hi all,
I'm trying to do a very simple script, as you can see as follow:
#!/bin/bash
#Valorizzazione Token presenti nel file di properties
var_path_weblogic="`cat weblogic.properties | grep "dir_wl" | /usr/xpg4/bin/awk '{print $3}'`"
var_ip_address="`cat... (5 Replies)
I have a script which is supposed to log in to my vB account and print my security token, however doesn't seem to work globally. The logging in works perfectly just will not retrieve and print the security token for every forum I log in to. Code Below:
#!/usr/bin/perl
use LWP::UserAgent;
... (8 Replies)
I usually use :
Code:
awk '{gsub(/xxx/,"yyy");print}'
to substitute xxx with yyy.
I have a problem substitute an expression like
Code:
x ' y
Because of the ( ' )
Any idea on how to get over this problem?
Thanks (2 Replies)
Hi,
I have a data set as shown below:
09e757fd,22727,2012-03-01,text1,text2,to
3fd0cae7,310,2012-03-01,text3,text4,to
3fd0cae7,310,2012-03-01,text3,text5,to
3fd0cae7,311,2012-03-01,text7,text10,cc
3fd0cae7,311,2012-03-01,text7,text11,to
3fd0cae7,312,2012-03-01,text8,text15,to... (3 Replies)
Hi ,
My chunk of code is as follows:
create_db(){
isql -Usa -Paaa123 -S$DB_SERVER <<- BOF
sp_addlogin $Conf, aaa123
go
sp_addlogin mb, aaa123
go
create database $Conf on $DATA_DEVICE=800 log on $LOG_DEVICE=200
go
online database $Conf
BOF
isql -U$2 -Paaa123 -S$DB_SERVER -D$2... (5 Replies)
Hi ,
I have the below array
my @actionText = ("delivered to governor on 21/23/3345" , "deliver jllj" , "ram 2345/43");
When i am trying to grep the contents of array and if mathced substituting with the digitis or some date format from the element like below
my @action = grep { $_ =~... (7 Replies)
I would like to extract "1333 Fairlane" given the below text.
The word "Building:" is always present. The wording between Building and the beginning of the address can be almost anything. It appears the the hyphen is there most of the time.
Campus: Fairlane Business Park
Building:... (9 Replies)
Hi All,
Can some one please explain the below code. Especially the %,* How it renaming the files and removing last field
for file in *.gz.*
do
echo mv $file ${file%\.*}
done
i/p
abcd.gz.20151011.1
o/p
abcd.gz.20151011 (3 Replies)
I have this code that works great ...
#!/bin/sh
for file in "$@"
do
ext=${file##*.}
base=${file%.*}
num=${base##*v}
zeroes=${num%%*}
num=${num#$zeroes} #remove leading zeros, or it uses octal
num=$((num+1))
base=${base%v*}
... (5 Replies)