in reply to Re^3: utf8 "\xB7" does not map to Unicode at /usr/local/bin/бибс/об‰ line 112.
in thread utf8 "\xB7" does not map to Unicode at /usr/local/bin/бибс/об‰ line 112.

I will answer by example.

open( $vrm, "|-:utf8", "/usr/bin/find $put -$tip $kriteriy" ) or die "
+Can't run find: $!\n";
while( <$vrm> ){
  push @svitok, $_;
}
print "ZNAK\n";
print "\n>$svitok[0]<\n";
exit;

[download]

Gives me this:

ZNAK
Use of uninitialized value $svitok[0] in concatenation (.) or string a
+t /usr/local/src/исп/бибс/об&#137; line 122.
./svitok1
./svitok2
./svitok3

><

[download]

So:

1. >/dev/null only outputs not to terminal -- array remains the same -- and i want to output nothing to terminal.

2. Array is not filled.

3. Strange, but ZNAK mark is outputted *before* output of find though in the code it stands (executed) *after* find. Why?

I think of qx operator -- is there a way that PERL will continue the operator execution -- regardless the encodings present in its output?

Thank you for participation very much!

  • Comment on Re^4: utf8 "\xB7" does not map to Unicode at /usr/local/bin/бибс/об&#137; line 112.
  • Select or Download Code

Replies are listed 'Best First'.
Re^5: utf8 "\xB7" does not map to Unicode at /usr/local/bin/бибс/об&#137; line 112.
by graff (Chancellor) on Nov 07, 2015 at 03:16 UTC
    Looking specifically at this snippet: Is the "open" statement the very first line of your script? (In other words, is the output that you showed based on running a script that contained exactly those 6 lines of code and nothing else?) Of course, I expect that you would have at least assigned values to $put, $tip and $kriteriy. (But maybe these values are not what they should be in order for "find" to work the way you expect?)

    In any case, I suspect that you didn't include the "binmode" statements that I recommended in my early reply -- or if you did, then your file names are not encoded the way you think they are.

    Some other points:

    • If you don't want any output to go to your terminal, then you should redirect STDOUT and STDERR to output files on the command line when you run your script.
    • The output you showed did not come from the code you posted here. The best way to get help is to post a minimal BUT COMPLETE script, together with the output created BY THAT PARTICULAR complete script.
    • There's nothing strange about "ZNAK" showing up first in the output, because that is the first thing to be printed by your code. The output of the "find" command is being treated as input to your script, which is read via the "$vrm" file handle.
    As for using the "qx" operator, that's certainly an option (instead of using the pipeline "open") - you just have to make sure that you Encode::decode the string returned by "qx", so that perl can treat it properly as utf8 data.
[reply]

      Hello. Concerning the output on mistakes in Russian.

      I put to a script:

      use utf8::all;
binmode STDOUT, 'utf8';
binmode STDERR, ":encoding(UTF-8)";

print 5

      [download]

      -- to produce error because of absence of ; after print. PERL gave me on running:

      Can't modify constant item in scalar assignment at /япио/1.pl line 5, near "';"

      So, the binmode directives do not help.

      Thank you for your answers.

[reply]
[d/l]
        Your script runs ok for me, Russian or not. I don't see any assignment there. Haven't you omitted the last line when pasting here?

        I tried to create a file with non-Latin1 name with a syntax error, Perl seems to report the path correctly in the error message even without any unicode related settings. What's your OS, locale, terminal settings?

        ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom