Re^2: problem with File::Cat

Don't get me wrong, the -l is very nice, but not when you cat files (especially not with binary files)!
I cannot think of a situation in which this kind of behavior can be useful!!

Anyway from the suggested docs the answer to my problems was simple

{ local $\ ;
    # do 'cat' stuff here
}
[download]

Thanks a lot
LuCa

UPDATE: I checked the code from the cpan module File::Cat and I would suggest to change the following

    while (<FILE>) {
        print $handle $_;
    }
[download]

into

    while (<FILE>) {
        printf $handle $_;
    }
[download]

(not tested)

Comment on Re^2: problem with File::Cat Select or Download Code

Replies are listed 'Best First'.
Re^3: problem with File::Cat by jwkrahn (Abbot) on Apr 24, 2007 at 17:43 UTC
You definitely do not want to use printf like that! The second argument in your example is the format string so any `%` characters in it will be interpreted by printf.	[reply] [d/l]
Re^4: problem with File::Cat by jeanluca (Deacon) on Apr 24, 2007 at 17:52 UTC
hmm, thats a very good point. Then `{ local $\ ; while (<FILE>) { print $handle $_; } }` [download] would probably be the best solution, or do I miss something (again) ? LuCa	[reply] [d/l]