Another option is to escape the `/'
Running Perl inside Perl by invoking a system call is like running a virtual machine inside a virtual machine, to list the content of a file system. By the way, I do not believe it does what you think it does, neither.
Hi,
I have a file named "Test_2008_01_21"
The file contains a string "manual" that occurs many times in the file
How can i find the positions of the string "manual" in the file
Ex: if the string " manual " occurs three times in the file. i want to replace the second occurance of string... (6 Replies)
find . -type f -name "*.sql" -print|xargs perl -i -pe 's/pattern/replaced/g'
this is simple logic to find and replace in multiple files & folders
Hope this helps.
Thanks
Zaheer (0 Replies)
Hi,
I have string like this:
$query="#1,apple";
$string=$query;
I want to replace #1 with fruit. I tried like this:
string=~s/#\d+/$query/ig;
print "\n string: $string\n";
It is working only when there is single #1 or #2 but when i give like #1,#2,#3,apple the above code... (2 Replies)
Hi,
I am taking the current time using localtime function in perl. For example if the time is:
#Using localtime
$time = "12:3:10";
I have to replace the value 3 (03) i.e second position to be 03.
The output should be:
12:03:10
But if the other string for example:
$str:... (1 Reply)
hello,
I want to replace awk with a perl one liner in unix.
i use in awk REGEX and FS ( field separator) because
awk syntaxes in different unix os versions have not the same behaviour.
Awk, Nawk and GNU Awk Cheat Sheet - good coders code, great reuse
i have a file named "file" and want... (5 Replies)
Dear all,
I need your help, I have file like this:
file1:23456
01910964830098775635
34567
01942809546554654323
67589
26546854368698023653
09778
58716868568576876878
08675
86178546154065406546
08573
54165843543054354305
.
.file2:
23456 25
34567 26
67589 27 (2 Replies)
Hi,
Here's my dilemma.
I need to replace the string Sept_2012 to Oct_2012 in all *config.py files within the current directory and below directories
Is this possible?
Also I am trying to find all instances of the string Sept_2012 within files in the current directory and below
I have... (13 Replies)
Dear All
I need to find and replace a string in a set of files. I try as :
#find / -name "*"|xargs grep "Tektra"|grep -v "Tektra GSM BTS"
But it doesn't work. It just finds the string in the files. I need to find and replace it.Can you please let me know how to correct it?
Thank you (2 Replies)
I need help with a regexp to find out the ip address which can possibly be present in a URL.
The URLs can be in any of the following form
<domain>?a=12345&d=somestring1
<domain>?c=10.10.10.100&d=somestring1
<domain>?a=12345&b=somestring1&c=10.1.2.4d=somestring2... (3 Replies)
Hello Forum.
I have a file called abc.sed with the following commands;
s/1/one/g
s/2/two/g
...
I also have a second file called abc.dat and would like to substitute all occurrences of "1 with one", "2 with two", etc and create a new file called abc_new.dat
sed -f abc.sed abc.dat >... (10 Replies)
Discussion started by: pchang
10 Replies
LEARN ABOUT DEBIAN
ppix::regexp::token::grouptype::code
PPIx::Regexp::Token::GroupType::Code(3pm) User Contributed Perl Documentation PPIx::Regexp::Token::GroupType::Code(3pm)NAME
PPIx::Regexp::Token::GroupType::Code - Represent one of the embedded code indicators
SYNOPSIS
use PPIx::Regexp::Dumper;
PPIx::Regexp::Dumper->new( 'qr{(?{print "hello world!
")}smx' )
->print();
INHERITANCE
"PPIx::Regexp::Token::GroupType::Code" is a PPIx::Regexp::Token::GroupType.
"PPIx::Regexp::Token::GroupType::Code" has no descendants.
DESCRIPTION
This method represents one of the embedded code indicators, either '?' or '??', in the zero-width assertion
(?{ print "Hello, world!
" })
or the old-style deferred expression syntax
my $foo;
$foo = qr{ foo (??{ $foo }) }smx;
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::GroupType::Code(3pm)