10-06-2009
Perl:Use of array elements in pattern matching
I need to use array elements while pattern matching.
@myarr = (ELEM1, ELEM2, ELEM3);
following is the statement which I am using in my code. Basically I want to replace the ELEM1/2/3 with other thing which is mentioned as REPL here.
if (condition) {
s/(ELEM1|ELEM2|ELEM3): REPL: /;
}
I need a generic code instead of hardcoding the array elements inside the code since array elements are not known & may vary.
Thanks in advance.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hi i am trying to get digits inside brackes from file , whose structure is defined below
CREATE TABLE TELM
(SOC_NO CHAR (3) NOT NULL,
TXN_AMOUNT NUMBER (17,3)
SIGN_ON_TIME CHAR (8)
TELLER_APP_LIMIT NUMBER (17,3)
FIL01 ... (2 Replies)
Discussion started by: zedex
2 Replies
2. Shell Programming and Scripting
Hello,
I have a comma delimited input feed file. The first field has directory location and the second field has file name.
Ex of input feed:
/export/appl/a,abc*.dat
/export/appl/b,xyz*.dat
/export/appl/c,pmn*.dat
Under each directory, there would be many files like...
.
.
.... (4 Replies)
Discussion started by: bperl
4 Replies
3. Shell Programming and Scripting
I would like to find a list of files in a directory less than 2 days old and put them into an array variable. And then search for each file in the array for a matching string say "Return-code= 0". If it matches, then display the array element with a message as "OK".
Your help will be greatly... (1 Reply)
Discussion started by: mkbaral
1 Replies
4. Shell Programming and Scripting
I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows:
$count = 0;
while ( $count < $#test )
{
`sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`;
`cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies
5. Shell Programming and Scripting
Hi Everyone,
I have:
my @No=qw(032106 032630 0380 034010 035110 0354801111);
my $str_No=join(';', @No);
I have a string $strA="03263033", so in order to determine this $strA area code matches with @No, I can do:
if ( (rindex($str_No,substr($strA,0,5))))== -1) ) {
print "Not... (1 Reply)
Discussion started by: jimmy_y
1 Replies
6. Shell Programming and Scripting
Hello experts,
I have a file containing the following text(shortened here).
File Begin
----------
< # Billboard.d3fc1302a677.imagePath=S:\\efcm_T4
< Billboard.d3fc1302a677.imagePath=S:\\efcm_T4
---
> # Billboard.d3fc1302a677.imagePath=S:\\efcm_Cassini
>... (2 Replies)
Discussion started by: nmattam
2 Replies
7. Shell Programming and Scripting
Hello,
I have the following perl array:
@longname = (Fasthernet0/0 Fasthernet0/1 Serial0/1/0 Serial0/2/1 Tunnel55 Tunnel77)
with the followinh array:
@shortname = (Fa0/0 Fa0/1 Se0/1/0 Se0/2/1 Tu55 Tu77)
in other words, I need to remove the following from each element in the array... (4 Replies)
Discussion started by: ahmed_zaher
4 Replies
8. Shell Programming and Scripting
Hi,
I have two files like this
file 1:
xxtcgtatccgaggga
cgcgcgggggagg
jjsjjjjsjjjdtcgtat
aaaaaaacccaaan
ggtcgtatffaadda
gggctggalllslllssdkk
file 2:
tcgtat
gctggaI want to 1) match each element of file2 to each element of file1.
2) delete all the matched alphabets and subsequent... (3 Replies)
Discussion started by: polsum
3 Replies
9. Shell Programming and Scripting
I have an array and two variables as below,
I need to check if $datevar is present in $filename.
If so, i need to replace $filename with the values in the array.
I need the output inside an ARRAY
How can this be done.
Any help will be appreciated. Thanks in advance. (2 Replies)
Discussion started by: irudayaraj
2 Replies
10. Shell Programming and Scripting
Experts,
I am looking to compare elements of 2 array using perl. Below is not the actual code but logic wise something like this.
my $version = "MYSQlcl-5.2.4-264.x86_64"; <-- split this word into array as (5 2 4 264) ( which is to extract only the version number from the package name)
my... (1 Reply)
Discussion started by: solaix14
1 Replies
LEARN ABOUT DEBIAN
devel::repl::plugin::outputcache
Devel::REPL::Plugin::OutputCache(3pm) User Contributed Perl Documentation Devel::REPL::Plugin::OutputCache(3pm)
NAME
Devel::REPL::Plugin::OutputCache - remember past results, _ is most recent
SYNOPSIS
> 21 / 7
3
> _ * _
9
> sub { die "later" }
sub { die "later" }
> _->()
Runtime error: later
DESCRIPTION
Re-using results is very useful when working in a REPL. With "OutputCache" you get "_", which holds the past result. The benefit is that
you can build up your result instead of having to type it in all at once, or store it in intermediate variables. "OutputCache" also
provides "$_REPL->output_cache", an array reference of all results in this session.
Devel::REPL already has a similar plugin, Devel::REPL::Plugin::History. There are some key differences though:
Input vs Output
"History" remembers input. "OutputCache" remembers output.
Munging vs Pure Perl
"History" performs regular expressions on your input. "OutputCache" provides the "_" sub as a hook to get the most recent result, and
"$_REPL->output_cache" for any other results.
Principle of Least Surprise
"History" will replace exclamation points in any part of the input. This is problematic if you accidentally include one in a string, or
in a "not" expression. "OutputCache" uses a regular (if oddly named) subroutine so Perl does the parsing -- no surprises.
CAVEATS
The "_" sub is shared across all packages. This means that if a module is using the "_" sub, then there is a conflict and you should not
use this plugin. For example, Jifty uses the "_" sub for localization. Jifty is the only known user.
SEE ALSO
"Devel::REPL", "Devel::REPL::Plugin::History"
AUTHOR
Shawn M Moore, "<sartak at gmail dot com>"
COPYRIGHT AND LICENSE
Copyright (C) 2007 by Shawn M Moore
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2010-05-08 Devel::REPL::Plugin::OutputCache(3pm)