Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Text strangeness after using SMB to get a file

by Paladin (Priest)
on Sep 09, 2005 at 21:24 UTC ( #490765=note: print w/replies, xml ) Need Help??


in reply to Text strangeness after using SMB to get a file

Since you mention SMB, I am assuming the files come from a Windows machine of some sort. Chances are that the files have DOS line endings, but your script is running on Solaris, which is assuming *nix line endings. Try running the file through a dos2unix utility to change the line endings first.
  • Comment on Re: Text strangeness after using SMB to get a file

Replies are listed 'Best First'.
Re^2: Text strangeness after using SMB to get a file
by ghenry (Vicar) on Sep 10, 2005 at 14:27 UTC

    Or you could just use:

    perl -i.bak -pe 's/\r\n/\n/' *

    Walking the road to enlightenment... I found a penguin and a camel on the way.....
    Fancy a yourname@perl.me.uk? Just ask!!!

      So instead of:

      chomp($csvLine);

      I could do:

      $csvLine =~ s/\r\n//;

      ?

      Never moon a werewolf!

        If you know it's always in DOS format.

        Walking the road to enlightenment... I found a penguin and a camel on the way.....
        Fancy a yourname@perl.me.uk? Just ask!!!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://490765]
help
Chatterbox?
[davido]: I find it annoying when I see "People tend to average between X and Y." .....um, that's not an average, that's a range.
[Corion]: Ask about the median ;)
[jdporter]: posts like this one make me realize, ruefully, just how much my mind has deteriorated in recent years/months.
[jdporter]: "When all your nails look like trolls, all your hammers look like trolls."

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (9)
As of 2018-06-21 16:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (118 votes). Check out past polls.

    Notices?