RE: Seemingly simple???

[Andy_Bach]

Perl uses the line ending appropriate for the platform \r\n for dos \n for 
*nix and translates the
print "hey\n"

appropriately. You can do:
$var =~ s/\r//;

to remove the ^M but you probably want to look into setting the var $/ and 
use chomp. 
perldoc -f chomp
   chomp   This safer version of "chop" removes any trailing
 string that corresponds to the current value of $/
 (also known as $INPUT_RECORD_SEPARATOR in the
 "English" module).  It returns the total number of
 characters removed from all its arguments.  It's
 often used to remove the newline from the end of an
 input record when you're worried that the final
 record may be missing its newline.  When in
 paragraph mode ("$/ = """), it removes all trailing
 newlines from the string.  When in slurp mode ("$/ =
 undef") or fixed-length record mode ($/ is a
 reference to an integer or the like, see perlvar)
 chomp() won't remove anything. 

a

Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED] 
VOICE: (608) 261-5738  FAX 264-5030

Documentation is the castor oil of programming.  Managers know it must be 
good because the programmers hate it so much.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Seemingly simple???

[Wagner, David --- Senior Programmer Analyst --- WGO]

[EMAIL PROTECTED] wrote:
> Subject: Seemingly simple???
> 
> 
> Hello,
> 
> I have a small problem, which at first seems simple, but has proven
> to be a bit of a hair puller. 
> 
> A collegue and I are importing some windows formatted ascii files
> (onto our linux systems) and extracting certain string data.  Simple
> enough.  However, our problem is that some of the string data is
> terminated with what appears to be a windows carriage return..looks
> like this:
If Windows eol then it is hex d followed by hex a, so you would need to change 
da to \n.  What you could do is, ftp the data and it should handle the changes or open 
the file then do binmode(FILE) and then you chop twice and rewrite the output using 
std \n as part of the write.

Wags ;)
> 
> somestring^M
> anotherstring^M
> 
> I tried chop(), but it does not seem to recognize that character.
> 
> Any suggestions?
> 
> Thanks,
> Dominic
> 
> 
> 
> 
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs



**
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.



___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Seemingly simple???

[Arms, Mike]

Try the Linux command: dos2unix

--
Mike Arms


> -Original Message-
> From: Maraglia, Dominicx [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, December 10, 2003 11:07 AM
> To: [EMAIL PROTECTED]
> Subject: Seemingly simple???
> 
> 
> Hello,
> 
> I have a small problem, which at first seems simple, but has 
> proven to be a bit of a hair puller.
> 
> A collegue and I are importing some windows formatted ascii 
> files (onto our linux systems) and extracting certain string 
> data.  Simple enough.  However, our problem is that some of 
> the string data is terminated with what appears to be a 
> windows carriage return..looks like this:
> 
> somestring^M
> anotherstring^M
> 
> I tried chop(), but it does not seem to recognize that character.
> 
> Any suggestions?
> 
> Thanks,
> Dominic
> 
> 
> 
> 
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Seemingly simple???

[Maraglia, Dominicx]

Hello,

I have a small problem, which at first seems simple, but has proven to be a bit of a 
hair puller.

A collegue and I are importing some windows formatted ascii files (onto our linux 
systems) and extracting certain string data.  Simple enough.  However, our problem is 
that some of the string data is terminated with what appears to be a windows carriage 
return..looks like this:

somestring^M
anotherstring^M

I tried chop(), but it does not seem to recognize that character.

Any suggestions?

Thanks,
Dominic




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs