Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: string substitution in perl
Top Forums Shell Programming and Scripting string substitution in perl Post 302286222 by quirkasaurus on Tuesday 10th of February 2009 01:33:58 PM
Old 02-10-2009
i'm not a perl monk . . . but this works:

Code:
#!/usr/bin/perl

#----------------------------------------------------------------------#
# Read both files into arrays...                                       #
#----------------------------------------------------------------------#
$param_file = "parameters.dat";

unless ( open FIN, "$param_file" ){
  print "cannot open $param_file \n";
  exit(1);
  }

@a_parameters = <FIN>; chomp @a_parameters; close FIN;

$template_file = "template.dat";

unless ( open FIN, "$template_file" ){
  print "cannot open $template_file \n";
  exit(1);
  }

@a_template = <FIN>; chomp @a_template; close FIN;

#----------------------------------------------------------------------#
# Peruse one array...                                                  #
#----------------------------------------------------------------------#
for $x ( 0 .. scalar( @a_parameters ) - 1 ){
  ( $var_name, $equals, $var_value ) = split( / /, $a_parameters[$x] );
  $var_name = uc( $var_name );
#----------------------------------------------------------------------#
# Looking for values in the other...                                   #
#----------------------------------------------------------------------#
  for $y ( 0 .. scalar( @a_template ) - 1 ){
    next unless ( $template[$y] = m/CX_*$var_name = / );
#----------------------------------------------------------------------#
# Substitute the template with the parameter...                        #
#----------------------------------------------------------------------#
    $a_template[$y] =~ s/= .*$/= $var_value/;
    }
  }

#----------------------------------------------------------------------#
# ... and print.                                                       #
#----------------------------------------------------------------------#
for $y ( 0 .. scalar( @a_template ) - 1 ){
  print "template entry " . ( $y + 1 ) . ": $a_template[$y] \n";
  }

Last edited by quirkasaurus; 02-10-2009 at 02:35 PM.. Reason: clean up...
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Sed String Substitution

Hi! I've the following script code with an input parameter: sed 's/oldstring/$1/g' myfile > newfile (I launch it with comman line: $ MyShell newstring) Problem: the substituion doesn't work (oldstring becomes $1, instead of newstring). How could I solve this situation? Thanks, ... (2 Replies)
Discussion started by: pciatto
2 Replies

2. Shell Programming and Scripting

Perl Substitution

I have lines in a file that look like this: machine: machinea machine: machineb machine: randomwhatevermachine I want to replace the machine lines with: machine: machinec I tried perl -pi -e "s/#machine:\?*/machine: machinec/" filename But this ended up doing this: ... (2 Replies)
Discussion started by: Lindarella
2 Replies

3. UNIX for Advanced & Expert Users

String Substitution

Hey ppl, Could u tell me how to replace such a string xyz->x with XYZ(x), where x can be any variable accessible by pointer to structure, xyz in an entire file? (1 Reply)
Discussion started by: laxmi
1 Replies

4. Shell Programming and Scripting

string substitution

Hey ppl, Could u tell me how to replace such a string xyz->x with XYZ(x), where x can be any variable accessible by pointer to structure, xyz in an entire file? (3 Replies)
Discussion started by: laxmi
3 Replies

5. Shell Programming and Scripting

String substitution

Hi, I have a properties file (myprop.properties) which contains some values: @oneValue@==tcp://localhost:1234 @twoValue@==tcp://localhost:4563 @threeValue@==tcp://localhost7895 I have a xml file (myXmlFile.xml)which contains some tokens: <application name="aTest"> <NameValuePair> ... (3 Replies)
Discussion started by: ctrl-alt-del
3 Replies

6. Shell Programming and Scripting

Perl:string substitution Pattern: ='abc...',

Hi friends, I want to substitute "a ='....'," with ":" in everywhere in a string using Perl. Details: ---------- my $str= " c1='fgfasfgasggfgff.,akhkhahha', c2='bbbn', c3='hg5 sh' "; Required o/p: $str= " c1:c2:c3 " I tried as below: $str=~ s/=\'.*\',/:/g ; print "str=... (14 Replies)
Discussion started by: Niroj
14 Replies

7. Shell Programming and Scripting

substitution using perl

Hi All, I need the perl version of the below sed command: sed 's/abc.*/&.txt/g' <filename> Because I'm trying to do some replacement recursively using perl and the above replacement is replacing the abc* with "&.txt" exactly. Thanks, Arun (9 Replies)
Discussion started by: arun_maffy
9 Replies

8. Shell Programming and Scripting

perl substitution

Hello all I have a strings like " Watch news 24x7 "."x-wars is glowing" " Watch news like 24 x 7"."x-mas will be celebrated" " Dimensions of box is 24x23x47 ". I have to remove the x(by) in between the number. If i just replace x, it will also remove all x's from text which i do not want.... (1 Reply)
Discussion started by: vasuarjula
1 Replies

9. Shell Programming and Scripting

Perl substitution

Hi, I'm new to Perl, and I want to change a few columns in a file in order to insert them into a database. The input file looks like this: 00001,"01/1234567" ,"Tst2" 00002,"01/4545646" ,"Tst123456" 00003,"01/8979898" ,"" The output should look like this: 01-1234567,00001... (2 Replies)
Discussion started by: Subbeh
2 Replies

10. Programming

COBOL: Substitution in string

We have a formatted screen system where a driver program passes the locations of a list of files that called programs may be using. It will look something like this: /{number of characters varies}/DATA/MASTERFILEBecause of the size of some files we will be splitting older records into a history... (2 Replies)
Discussion started by: wbport
2 Replies

LEARN ABOUT OSX

extutils::command

ExtUtils::Command(3pm)					 Perl Programmers Reference Guide				    ExtUtils::Command(3pm)

NAME

       ExtUtils::Command - utilities to replace common UNIX commands in Makefiles etc.

SYNOPSIS

	 perl -MExtUtils::Command -e cat files... > destination
	 perl -MExtUtils::Command -e mv source... destination
	 perl -MExtUtils::Command -e cp source... destination
	 perl -MExtUtils::Command -e touch files...
	 perl -MExtUtils::Command -e rm_f files...
	 perl -MExtUtils::Command -e rm_rf directories...
	 perl -MExtUtils::Command -e mkpath directories...
	 perl -MExtUtils::Command -e eqtime source destination
	 perl -MExtUtils::Command -e test_f file
	 perl -MExtUtils::Command -e test_d directory
	 perl -MExtUtils::Command -e chmod mode files...
	 ...

DESCRIPTION

       The module is used to replace common UNIX commands.  In all cases the functions work from @ARGV rather than taking arguments.  This makes
       them easier to deal with in Makefiles.  Call them like this:

	 perl -MExtUtils::Command -e some_command some files to work on

       and NOT like this:

	 perl -MExtUtils::Command -e 'some_command qw(some files to work on)'

       For that use Shell::Command.

       Filenames with * and ? will be glob expanded.

   FUNCTIONS
       cat
	       cat file ...

	   Concatenates all files mentioned on command line to STDOUT.

       eqtime
	       eqtime source destination

	   Sets modified time of destination to that of source.

       rm_rf
	       rm_rf files or directories ...

	   Removes files and directories - recursively (even if readonly)

       rm_f
	       rm_f file ...

	   Removes files (even if readonly)

       touch
	       touch file ...

	   Makes files exist, with current timestamp

       mv
	       mv source_file destination_file
	       mv source_file source_file destination_dir

	   Moves source to destination.  Multiple sources are allowed if destination is an existing directory.

	   Returns true if all moves succeeded, false otherwise.

       cp
	       cp source_file destination_file
	       cp source_file source_file destination_dir

	   Copies sources to the destination.  Multiple sources are allowed if destination is an existing directory.

	   Returns true if all copies succeeded, false otherwise.

       chmod
	       chmod mode files ...

	   Sets UNIX like permissions 'mode' on all the files.	e.g. 0666

       mkpath
	       mkpath directory ...

	   Creates directories, including any parent directories.

       test_f
	       test_f file

	   Tests if a file exists.  Exits with 0 if it does, 1 if it does not (ie.  shell's idea of true and false).

       test_d
	       test_d directory

	   Tests if a directory exists.  Exits with 0 if it does, 1 if it does not (ie. shell's idea of true and false).

       dos2unix
	       dos2unix files or dirs ...

	   Converts DOS and OS/2 linefeeds to Unix style recursively.

SEE ALSO

       Shell::Command which is these same functions but take arguments normally.

AUTHOR

       Nick Ing-Simmons "ni-s@cpan.org"

       Maintained by Michael G Schwern "schwern@pobox.com" within the ExtUtils-MakeMaker package and, as a separate CPAN package, by Randy Kobes
       "r.kobes@uwinnipeg.ca".

perl v5.16.2							    2012-10-11						    ExtUtils::Command(3pm)
All times are GMT -4. The time now is 05:16 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy