Click here to get back home

Tricky Merge task in Perl - Pls help
 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
Tricky Merge task in Perl - Pls help dbone 06-05-2005
Get Chitika Premium
Posted by dbone on June 5, 2005, 3:41 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 John Bokma on June 6, 2005, 12:28 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
FAQ 1.10: Can I do [task] in Perl? October 25, 2004, 5:03 pm
FAQ 1.10: Can I do [task] in Perl? November 13, 2004, 6:03 am
FAQ 1.10: Can I do [task] in Perl? January 1, 2005, 12:03 pm
FAQ 1.10 Can I do [task] in Perl? January 11, 2005, 6:03 pm
FAQ 1.10 Can I do [task] in Perl? May 7, 2005, 11:03 pm
FAQ 1.10 Can I do [task] in Perl? July 23, 2005, 4:03 pm
FAQ 1.10 Can I do [task] in Perl? August 12, 2005, 10:03 am
FAQ 1.10 Can I do [task] in Perl? October 27, 2005, 4:03 pm
FAQ 1.10 Can I do [task] in Perl? November 14, 2005, 5:03 am
FAQ 1.10 Can I do [task] in Perl? January 15, 2006, 11:03 am

Our other projects:

Art Dolls, Fairies and Mermaids - Sunnyfaces.net

Roy's Linux, Programming and Search Engines messages

1-Script XML SitemapXML Sitemap