Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.

Dismiss

Rename inside a file

2 views

Skip to first unread message

Horatiu Toma

unread,

Nov 4, 2010, 11:04:12 AM11/4/10

Hello I start to use perl and can be fun and also can help a lot but I
do not know who to make it to work have another problem

I am trying to rename a string in a file with another string I have
list
of strings in remane.txt and input file accountin.txt I try to do this
but somewere I do not know what is the problem
I have use also http://codepad.org/WlJKat0K
but no results if someone can show me
were is my misstake please advice me

[code]
use warnings;
#input data
my $filename = 'accountin.txt';
my $renamedata = 'rename.txt';
#load rename list
local @var = ($renamedata);
$var = $_;
{
local @ARG = ($renamedata);
#if data in rename file then give value to old and new value in the
accoutin file
while ( $renamedata ) {
my ($find,$replace) = split /;/, $;

#if data in account data then search for value find and replace
with$replace
local @ARGV = ($filename);
while( <> )
{
if( s/$find/$replace/ig ) {
print;
}
else {
print;
}
}
}
}
[/code] }

rename.txt
cart1;cart 1 city zip
cart2;cart 2 city zip
cart3;cart 3 city zip

0 new messages