Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: [Perl] Accessing array elements within a sed command in Perl script
Top Forums Shell Programming and Scripting [Perl] Accessing array elements within a sed command in Perl script Post 302242996 by otheus on Friday 3rd of October 2008 10:51:25 AM
Old 10-03-2008
First, why would you use such a sed script within Perl? But whatever. Second, the second back-ticked command, while functionally correct, is not as good or as clear as:
Code:
rename(0, ${test[$count]});

Third, the last one in the array never gets converted. That's because $#test is the last index in the array of @test, and you're telling the while loop to stop before count is equal to this.

Now to your actual question. I dont know. This worked when I ran sample code and on the files (except for the last). However, better code would be as follows:

Code:
for (@test)
{
        system("sed -i -e 's/BIOGRF  321/BIOGRF  332/g' $_");
}

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl - New line in array elements

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

2. Shell Programming and Scripting

Accessing single elements of a awk array in END

How do I access one of the indices in array tst with the code below? tst=sprintf("%5.2f",Car / 12) When I scan thru the array with for ( i in tst ) { print i,tst } I get the output of: vec-7 144 But when I try this in the END print tst It looks like it's not set. What am... (6 Replies)
Discussion started by: timj123
6 Replies

3. Shell Programming and Scripting

Accessing array elements

Hi, My doubt is how to access array elements.. Situation is as below: #!/bin/ksh set -x typeset -i x=0 typeset -i y=0 typeset -i BID=0 typeset -i count=0 while ] ; do x=`expr $x + 1`; hwmgr show scsi > scsi.tmp while read line; do set... (1 Reply)
Discussion started by: mansa
1 Replies

4. Shell Programming and Scripting

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... (3 Replies)
Discussion started by: deo_kaustubh
3 Replies

5. Shell Programming and Scripting

sed command in perl script

What is wrong with this line in a perl script? $amc_data = `sed -n '/\/,/\/p' "$config_file"` I ran the above from command line and it works fine from unix command prompt. The code should produce output between the and tags. The config_file is as follows: Sun ... (2 Replies)
Discussion started by: som.nitk
2 Replies

6. Shell Programming and Scripting

Perl Array Elements Replacement

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

7. Shell Programming and Scripting

Problem accessing array elements

Hi all, I can’t resolve an array element access issue on (Linux/pdksh) .. So I’m positing for advice.By the way - a friend demonstrated to me - same script works as expected under Solaris. I have been working on a documentation project where many *.jpg screen shots are used in the... (4 Replies)
Discussion started by: njdpo
4 Replies

8. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

9. Shell Programming and Scripting

Array elements comparison using perl

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

10. Shell Programming and Scripting

Storing the Linux command output to an array in perl script

Hi I am trying to store the output of a command into an array in perl script. I am able to store but the problem is i am unable to print the array line with one line space. i mean i inserted the \n in loop ...but not getting the result. I have written like this #!/usr/bin/perl @a =... (2 Replies)
Discussion started by: kumar85shiv
2 Replies

LEARN ABOUT DEBIAN

mimedefang.pl

MIMEDEFANG.PL(8)					      System Manager's Manual						  MIMEDEFANG.PL(8)

NAME

       mimedefang.pl - Perl script to scan MIME messages.

SYNOPSIS

       mimedefang.pl [-f filter] dir

DESCRIPTION

       mimedefang.pl  is  a Perl script designed to work with mimedefang(8).  It takes a single argument which is a directory which should contain
       files laid out as described in mimedefang(8).

OPTIONS

       -f filter
	      Specifies the name of the file containing the filter.  If this option is omitted, the default filter /etc/mimedefang-filter is used.

OPERATION

       mimedefang.pl evaluates the file /etc/mimedefang-filter as a Perl fragment.  This file should define the filter procedure.  For	each  part
       of  a  MIME message, mimedefang.pl calls filter and disposes of the part as instructed by the filter.  The various modes of disposition are
       described in mimedefang-filter(5).

TESTING FILTERS

       You are strongly recommended to test your filter before installing it in /etc/mimedefang-filter.  To test the filter, save  it  in  a  file
       (e.g. test-filter) and run this command:

	    mimedefang.pl -f test-filter -test

       This  tests the filter for syntactic correctness.  If it passes, you can install it as a production filter.  (Note that the test tests only
       for correct Perl syntax; it doesn't make sure your filter does something sensible.)

MISCELLANEOUS OPTIONS

       There are a few other ways to invoke mimedefang.pl:

	    mimedefang.pl -structure < mime_message

       parses a message on stdin and prints lots of debugging information.

	    mimedefang.pl -prettyprint < mime_message

       parses a message on stdin and prints it in a "nice" format (depending on your definition of "nice".)

	    mimedefang.pl -features

       prints a list of detected optional Perl modules.  The output looks something like this:

	    SpamAssassin: yes

	    mimedefang.pl -validate

       calls the function filter_validate, if it is defined in your filter.  filter_validate should return an integer; this becomes the exit code.
       If filter_validate does not exist, an error message is printed and mimedefang.pl exits with an exit code of 1.

AUTHOR

       mimedefang.pl was written by David F. Skoll <dfs@roaringpenguin.com>.  The mimedefang home page is http://www.mimedefang.org/.

SEE ALSO

       mimedefang(8), mimedefang-filter(5), mimedefang-protocol(7)

4th Berkeley Distribution					  8 February 2005						  MIMEDEFANG.PL(8)
All times are GMT -4. The time now is 02:12 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy