PPIx::Regexp::Token::Code(3) User Contributed Perl Documentation PPIx::Regexp::Token::Code(3)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.
This token may not appear inside a regex set (i.e. "(?[ ... ])". If found, it will become a "PPIx::Regexp::Token::Unknown".
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-2013 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.16.3 2014-06-10 PPIx::Regexp::Token::Code(3)
Check Out this Related Man Page
PPIx::Regexp::Token::Recursion(3) User Contributed Perl Documentation PPIx::Regexp::Token::Recursion(3)NAME
PPIx::Regexp::Token::Recursion - Represent a recursion
SYNOPSIS
use PPIx::Regexp::Dumper;
PPIx::Regexp::Dumper->new( 'qr{(foo(?1)?)}smx' )
->print();
INHERITANCE
"PPIx::Regexp::Token::Recursion" is a PPIx::Regexp::Token::Reference.
"PPIx::Regexp::Token::Recursion" has no descendants.
DESCRIPTION
This class represents a recursion to a named or numbered capture.
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-2013 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.16.3 2014-06-10 PPIx::Regexp::Token::Recursion(3)
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)
Hello All,
I have some expression:
if (/^(\d\d\d\d\d\.\d\d\d\d\d\d)\s+(.+)$/)
{
warn "$argv0(" . __LINE__ . "): rbl2ts{$2} == '$rbl2ts{$2}' \$1==$1\n" if ($debug);
$rbl2ts{$2} = $1 if (!defined($rbl2ts{$2}) or ($1 le $rbl2ts{$2}));
warn "$argv0(" . __LINE__ . "):... (3 Replies)
Hi!
I have a file with multiple lines following this format:
<a href="xxx.aaa_bbb_ccc.yyy">xxx.aaa_bbb_ccc.yyy</a>
The goal is to replace the title (not modifying the href) so the new lines looks like this:
<a href="xxx.aaa_bbb_ccc.yyy">Aaa bbb ccc</a>
The number of underscores in the... (2 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)
Consider the following code:
grep -o -e '^STEAM_::\d+$' workfile3.tmp
A sample format of a valid string for the regexp would be:
STEAM_0:1:12345678
Here is an example line from the workfile3.tmp file:
465:L 01/02/2012 - 00:05:33: "Spartan1-1-7<8><STEAM_0:1:47539638><>" connected
No... (2 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)
HI,
I'm new to perl and need simple regex for reading a file using my perl script.
The text file reads as -
filename=/pot/uio/current/myremificates.txt
certificates=/pot/uio/current/userdir/conf/user/gamma/settings/security/... (3 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)
Trying to find and replace one string with another string in a file
#!/usr/bin/perl
$csd_table_path = "/file.ntab";
$find_str = '--bundle_type=021';
$repl_str = '--bundle_type=021 --target=/dev/disk1s2';
if( system("/usr/bin/perl -p -i -e 's/$find_str/$repl_str/' $csd_table_path")... (2 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)