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::multiline::ppi
Devel::REPL::Plugin::MultiLine::PPI(3pm) User Contributed Perl Documentation Devel::REPL::Plugin::MultiLine::PPI(3pm)
NAME
Devel::REPL::Plugin::MultiLine::PPI - read lines until all blocks are closed
SYNOPSIS
#!/usr/bin/perl
use lib './lib';
use Devel::REPL;
my $repl = Devel::REPL->new;
$repl->load_plugin('LexEnv');
$repl->load_plugin('History');
$repl->load_plugin('MultiLine::PPI');
$repl->run;
DESCRIPTION
Plugin that will collect lines until you have no unfinished structures. This lets you write subroutines, "if" statements, loops, etc. more
naturally.
For example, without a MultiLine plugin,
$ my $x = 3;
3
$ if ($x == 3) {
will throw a compile error, because that "if" statement is incomplete. With a MultiLine plugin,
$ my $x = 3;
3
$ if ($x == 3) {
> print "OH NOES!"
> }
OH NOES
1
you may write the code across multiple lines, such as in "irb" and "python".
This module uses PPI. This plugin is named "MultiLine::PPI" because someone else may conceivably implement similar behavior some other less
dependency-heavy way.
SEE ALSO
"Devel::REPL"
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 2012-05-19 Devel::REPL::Plugin::MultiLine::PPI(3pm)