Click here to get back home

replace some words in a file with a perl script.
 Home | NewsGroups | Search | About
Login Password
Register Now!
 comp.lang.perl.misc    Post an article   get this group's latest topics as an RSS feed add this group's latest topics to your My MSN content add this group's latest topics to your My Yahoo content
Subject Author Date
replace some words in a file with a perl script. Wang Penghui 12-12-2004
Posted by Wang Penghui on December 12, 2004, 6:15 pm
Please log in for more thread options
>>
>> [snip]
>>
>> > if I print "$1\n",
>> > the file prints just fine. But, if I do something like print "$1 after
>> > \n", the whole output is messed up. If I print "before $1\n", nothing
>> > prints at all. If I print "before $1 after\n", only after prints.
>>
>> not really sure, but could be a rogue "\r" in $1,


> There
> is a rogue carriage return (0xd) in the string

> Is there something I can do to deal with this
> situation?


Repair the corrupted file:

perl -p -i -e 'tr/\r//d' bad_file


--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas

Posted by Matt Garrish on December 12, 2004, 5:57 am
Please log in for more thread options
>>
>> [snip]
>>
>> > if I print "$1\n",
>> > the file prints just fine. But, if I do something like print "$1 after
>> > \n", the whole output is messed up. If I print "before $1\n", nothing
>> > prints at all. If I print "before $1 after\n", only after prints.
>>
>> not really sure, but could be a rogue "\r" in $1,


> There
> is a rogue carriage return (0xd) in the string

> Is there something I can do to deal with this
> situation?


Repair the corrupted file:

perl -p -i -e 'tr/\r//d' bad_file


--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas

Similar ThreadsPosted
search/replace and update the file in perl script December 16, 2004, 7:00 pm
search/replace and update the file in perl script December 16, 2004, 7:19 pm
replace words in string with hash values November 29, 2004, 1:23 pm
replace multiple spaces between words with single space. March 14, 2005, 12:40 pm
count lines,words,punctuations and characters in perl script November 11, 2006, 9:50 am
Perl script to replace awk July 26, 2004, 9:36 pm
Perl Search & Replace Script For Website August 23, 2004, 7:30 pm
replace multiple lines in a file with Perl December 15, 2004, 11:48 pm
any pointers please? combine words script July 31, 2004, 1:31 pm
[perl-python] 20050126 find replace strings in file January 26, 2005, 12:19 pm

Our other projects:

Art Dolls, Fairies and Mermaids - Sunnyfaces.net

Roy's Linux, Programming and Search Engines messages

1-Script XML SitemapXML Sitemap