Linux and UNIX Man Pages

Linux & Unix Commands - Search Man Pages

ppix::regexp::token::code(3) [centos man page]

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)
Man Page

15 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Converting Perl code to shell

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)
Discussion started by: zainravi
8 Replies

2. Red Hat

Concatenating variables

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)
Discussion started by: idro
5 Replies

3. UNIX for Dummies Questions & Answers

Perl Meta character understanding

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)
Discussion started by: suvenduperl
3 Replies

4. Shell Programming and Scripting

Help with Regexp replace in vim/sed

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)
Discussion started by: ericjohansson
2 Replies

5. Shell Programming and Scripting

Q:Perl Extracting & Printing Security Token

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)
Discussion started by: AndrewTwain
8 Replies

6. UNIX for Dummies Questions & Answers

Grep Regexp not working correctly

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)
Discussion started by: spinner0205
2 Replies

7. Shell Programming and Scripting

warning: here-document delimited by end-of-file

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)
Discussion started by: sankasu
5 Replies

8. Shell Programming and Scripting

Perl regular expression

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)
Discussion started by: ragilla
7 Replies

9. Shell Programming and Scripting

perl regular expression not inbetween issue

Dear All, perl -e 'if($ARGV =~ /\A^{10}\z/){print "Valid string\n"}else{print "Invalid string\n"}' '1234567899' Valid string perl -e 'if($ARGV =~ /\A^{8}\z/){print "Valid string\n"}else{print "Invalid string\n"}' '12345678' Valid string individually both works, anyway to combine both... (3 Replies)
Discussion started by: jimmy_y
3 Replies

10. Programming

Perl regex

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)
Discussion started by: jhamaks
3 Replies

11. Shell Programming and Scripting

Regexp

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)
Discussion started by: bbaker@copesan.
9 Replies

12. How to Post in the The UNIX and Linux Forums

Help: code

Why am i getting notifications to use codes? What are they ? How to choose a Code? What is their purpose? Regards, Chandu (2 Replies)
Discussion started by: chandrakanth
2 Replies

13. Shell Programming and Scripting

find and Replace String in Perl - Regexp

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)
Discussion started by: cillmor
2 Replies

14. UNIX for Beginners Questions & Answers

How to remove /*...*/ ?

Sample code from apple's xnu code: struct radix_node { struct radix_mask *rn_mklist; /* list of masks contained in subtree */ struct radix_node *rn_parent; /* parent */ short rn_bit; /* bit offset; -1-index(netmask) */ char rn_bmask; /* node: mask for bit test*/ u_char rn_flags; /*... (5 Replies)
Discussion started by: cmdcmd
5 Replies

15. UNIX for Beginners Questions & Answers

Query on Code

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)
Discussion started by: nag_sathi
3 Replies