Perl script to read string from file#1 and find/replace in file#2 Post: 302951662

Sponsored Content

Top Forums Shell Programming and Scripting Perl script to read string from file#1 and find/replace in file#2 Post 302951662 by pchang on Sunday 9th of August 2015 10:08:22 AM

08-09-2015

Registered User

Thanks Aia for your suggestion.

abc.sed could vary in size from 1 to maybe 10,000 records

I'm trying to find a solution that will work faster than sed. It doesn't have to be Perl specifically. If you have some other ideas to process the file faster, that would be great.

I tried your code but getting the following error:

Code:

more test.pl
#!/usr/bin/perl

use strict;
use warnings;

my %replace;

open my $fh, '<', "abc.sed" or die "$!\n";
my @gsubs = <$fh>;
close $fh;
@gsubs = map{s/^s\/|\/g|\n//g; split "/"} @gsubs;
%replace = @gsubs;

my $search = join '|', keys %replace;

open $fh, '<', "abc.dat" or die "$!\n";
while(<$fh>) {
    s/($search)/$replace{$1}/ge;
    print;
}
close $fh;

Code:

sh test.pl

test.pl: line 3: use: command not found
test.pl: line 4: use: command not found
test.pl: line 6: my: command not found
Couldn't get a file descriptor referring to the console
test.pl: line 9: syntax error near unexpected token `;'
test.pl: line 9: `my @gsubs = <$fh>;'

I made test.pl executable and /usr/bin/perl executable exists on the Linux box.

Thanks.

---------- Post updated at 10:08 AM ---------- Previous update was at 07:26 AM ----------

I'm thinking of another option to use instead of sed or Perl, how about tr?

Do you think that this will work faster?

Thanks.

pchang

View Public Profile for pchang

Find all posts by pchang

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Find/replace to new file: ksh -> perl

I have korn shell script that genretaets 100 file based on template replacing the number. The template file is as below: $ cat template file number: NUMBER The shell script is as below: $ cat gen.sh #!/bin/ksh i=1; while ((i <= 100)); do sed "s/NUMBER/$i/" template > file_${i} ((...

2. Shell Programming and Scripting

find and replace a string in a file without the use of temp file

Hi - I am looking for a replacing a string in a in multiple *.sql files in directory with a new string without using a temporary file Normally I can use sed command as below for W in ls `FILE*.sql` do sed 's/OLD/NEW/g' $W > TEMPFILE.dat mv TEMPFILE.dat $W done But Here in my...

3. Shell Programming and Scripting

Find and replace string from file which contains variable and path - SH

e.g. /home/$USER/.config replace it with "" (empty) Is this possible? I think you should play a bit with sharps ## and sed:b:

4. Shell Programming and Scripting

How to find a certain string in a file and replace it with a value from another file using sed/awk?

Hi Everyone, I am new to this forum and new to sed/awk programming too !! I need to find particular string in file1(text file) and replace it with a value from another text file(file2) the file2 has only one line and the value to be replaced with is in the second column. file 1: (assert (=...

5. Shell Programming and Scripting

find string and replace with string in other file

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

6. Shell Programming and Scripting

perl- read search and replace string from the file

Dear all, I have a number of files and each file has two sections separated by a blank line. At the top section, I have lines which describes the values of the alphabetical characters, # s #; 0.123 # p #; 12.3 # d #; -2.33 # f #; 5.68 <blank line> sssssss spfdffff sdfffffff Now I...

7. Shell Programming and Scripting

How to read file, and replace certain string with another string?

Hi all, the value in the following file is just an example. It could be a different value/network addresses. Here is my example of initial output in a file name net.txt Initial Output, net.txt The goal is to produce the following format which is to convert from CIDR to Netmask...

8. Shell Programming and Scripting

[Need help] perl script to find the occurance of string from a text file

I have two files 1. input.txt 2. keyword.txt input.txt has contents like .src_ref 0 "call.s" 24 first 0x000000 0x5a80 0x0060 BRA.l 0x60 .src_ref 0 "call.s" 30 first 0x000002 0x1bc5 RETI .src_ref 0 "call.s" 31 first 0x000003 0x6840 ...

9. UNIX for Beginners Questions & Answers

Find and replace a string in a text file

Dear all, I want to find all the "," in my text file and then replace the commas to a tab. I found a script online but I don't know how to modify the script for my case. Any one can help? Thank you. @echo off &setlocal set "search=%1" set "replace=%2" set "textfile=Input.txt" set...

10. Shell Programming and Scripting

Script to replace a string with pattern read from a file

I have two files blocks.txt and rules.txt. In blocks.txt i have the following entries Linux1 Linux2 Linux3 ..... Linux10 In rules.txt i have the lines where a filename pattern starts like 'blk-name.*' I want to replace 'blk-name' with the names read from blocks.txt file I tried...

LEARN ABOUT PLAN9

namespace

NAMESPACE(6)							   Games Manual 						      NAMESPACE(6)

NAME

       namespace - name space description file

DESCRIPTION

       Namespace  files describe how to construct a name space from scratch, an operation normally performed by the newns subroutine (see auth(2))
       which is typically called by init(8).  Each line specifies one name space operation.  Spaces and tabs separate arguments to operations;	no
       quotes or escapes are recognized.  Blank lines and lines with # as the first non-space character are ignored.  Environment variables of the
       form $name are expanded within arguments, where name is a UTF string terminated by white space, a /, or a $.

       The known operations and their arguments are:

       mount [-abc] servename old [spec]
	      Mount servename on old.

       bind [-abc]  new old
	      Bind new on old.

       import [-abc] host "[remotepath]mountpoint
	      Import remotepath from machine server and attach it to mountpoint.

       cd dir Change the working directory to dir.

       The options for bind, mount, and import are interpreted as in bind(1) and import(4).

SEE ALSO

       bind(1), namespace(4), init(8)

																      NAMESPACE(6)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Find/replace to new file: ksh -> perl

Discussion started by: McLan

2. Shell Programming and Scripting

find and replace a string in a file without the use of temp file

Discussion started by: raghutapal

3. Shell Programming and Scripting

Find and replace string from file which contains variable and path - SH

Discussion started by: hakermania

4. Shell Programming and Scripting

How to find a certain string in a file and replace it with a value from another file using sed/awk?

Discussion started by: paramad