substitution using perl


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting substitution using perl
# 1  
Old 05-13-2010
substitution using perl

Hi All,

I need the perl version of the below sed command:

Code:
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
# 2  
Old 05-13-2010
Code:
$
$ # The data file
$ cat -n f3
     1  abcdefghij
     2  the quick brown fox abc
     3  yet another line
     4  abcdef abcdef abcdef
     5  the abc quick brown abcd fox abcde
$
$ # conversion with sed
$ sed 's/abc.*/&.txt/g' f3
abcdefghij.txt
the quick brown fox abc.txt
yet another line
abcdef abcdef abcdef.txt
the abc quick brown abcd fox abcde.txt
$
$ # conversion with Perl
$ perl -pne 's/(abc.*)/$1.txt/g' f3
abcdefghij.txt
the quick brown fox abc.txt
yet another line
abcdef abcdef abcdef.txt
the abc quick brown abcd fox abcde.txt
$
$

tyler_durden
This User Gave Thanks to durden_tyler For This Post:
# 3  
Old 05-13-2010
should be

Code:
perl -pe 's/(abc.*)/\1.txt/'

iirc
This User Gave Thanks to Tytalus For This Post:
# 4  
Old 05-13-2010
Looks like you want to append .txt to any line which contains abc?

Code:
perl -nle 'if ($_ =~ m/abc /) { $_ =~ s/$/\.txt/; print $_}' file


Last edited by pseudocoder; 05-13-2010 at 09:33 AM.. Reason: corrected to match O/P's requirement
# 5  
Old 05-13-2010
Tytalus,

Thanks that works fine. But how to check the exact match of abc

For example if a file has

abc
abcd

the command should replace only the line that contains abc and not the abcd with .txt at the end

Thanks all for the kind reply..
# 6  
Old 05-13-2010
Code:
$
$ cat f3
abc
abcd
$
$ perl -pne 's/(abc)$/$1.txt/' f3
abc.txt
abcd
$
$

tyler_durden
# 7  
Old 05-13-2010
Tyler,

Sorry I made a mistake, I need it like

Input:

1 abcdefghij
2 the quick brown fox abc
3 yet another line
4 abcdef abcdef abcdef
5 the abc quick brown abcd fox abcde


Output

1 abcdefghij
2 the quick brown fox abc.txt
3 yet another line
4 abcdef abcdef abcdef
5 the abc quick brown abcd fox abcde.txt

Thanks again...
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Sed/awk/perl substitution with multiple lines

OSX I have been grinding my teeth on a portion of code. I am building a bash script that edits a html email template. In the template, I have place holders for SED (or whatever program is appropriate) to use as anchors for find and replace, with user defined corresponding html code. The HTML code... (3 Replies)
Discussion started by: sudo
3 Replies

2. Shell Programming and Scripting

Perl one-line substitution syntax

Hi, With the following Perl syntax, how to print the $_ value after the substitution? s/(\s*|\n)//g foreach (<>); If I use the below code, it produces some numeric output print s/(\s*|\n)//g foreach (<>); (2 Replies)
Discussion started by: royalibrahim
2 Replies

3. Shell Programming and Scripting

Perl equivalent substitution

hi Geeks, my input file contains data like => 53 - Deewana Kar Raha Hai.mp3 54 - Hale Dil.mp3 55 - Ishq Sufiyana.mp3 56 - Abhi Kuch Dino Se.mp3 57 - Pee Loon Hoto Ki Sargam.mp3 I had used sed command to remove the prefix from the file name like sed 's/^\ it gives me the perfect... (4 Replies)
Discussion started by: lohith.dutta
4 Replies

4. 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

5. Shell Programming and Scripting

re-Substitution Sed (or Perl)

I have a large text csv file that I'm working with. It will look something like this: D,",E",C O,"F,",I O,gh,R The second column always has a two digit random code (can be numbers, letters or any characters). When one of the characters happens to be a comma, the string is quoted. I want to... (5 Replies)
Discussion started by: beenny
5 Replies

6. 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

7. Shell Programming and Scripting

string substitution in perl

Hi, I have a template file and want to replace 3 parameters to the values that I want. these values are in a parameter file. Any idea how to do this in perl? the parameter file looks like: host_name = jupiter PORT = 1562 IPADDRESS = 10.1.34.10 the template file has lots of entry.... (1 Reply)
Discussion started by: melanie_pfefer
1 Replies

8. 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

9. Shell Programming and Scripting

Multi-line Substitution Gone Awry - perl

I've been working on this all night and finally have to ask for help... and not just from my coffee pot. I need to replace a line of text only when it is proceeded by a line containing only the letter "H" Input: H -2.204711 -0.922090 -0.024814 P 6-311+G(d) **** C 6-311+G(d)... (7 Replies)
Discussion started by: EmperorNorton
7 Replies

10. 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
Login or Register to Ask a Question