Click here to get back home

distinguish between binary text and regular text
 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
distinguish between binary text and regular text zvika 12-12-2004
Get Chitika Premium
Posted by zvika on December 12, 2004, 3:52 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

Posted by Anno Siegel on December 12, 2004, 5:20 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 Jürgen Exner on December 12, 2004, 5:20 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

Similar ThreadsPosted
Regular Expression to Replace UPPER Case Text with lower case text February 17, 2008, 9:42 pm
How to read from a file with both text and binary June 26, 2006, 12:26 pm
use binary operator on ascii text string June 23, 2006, 2:08 pm
Parsing and formatting text, Text::Beautify and/or similar modules December 2, 2006, 6:25 am
Assistance parsing text file using Text::CSV_XS September 1, 2004, 10:47 am
Problem with global text search using Regular Expressions September 13, 2004, 4:52 pm
FAQ 6.11 Can I use Perl regular expressions to match balanced text? March 1, 2005, 6:03 pm
FAQ 6.11 Can I use Perl regular expressions to match balanced text? April 16, 2005, 11:03 am
FAQ 6.11 Can I use Perl regular expressions to match balanced text? July 2, 2005, 10:03 am
FAQ 6.11 Can I use Perl regular expressions to match balanced text? September 15, 2005, 10: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