Re: Substr cannot extract last special character

Hi, If i understood your question correctly, here is my coding:

my $ohm = '24Ù';
print "Before substract : $ohm";
if ($ohm =~ /[^!-~\s]/g)#This helps to find the non ascii character
{
    $unit=$&;
    $ohm=~s/$unit//e;
}
print "\nUnit : $unit\nAfter substract : $ohm";  # This will return a 
+? in my CMD be aware that you cannot see the Ohm character
[download]

I think it helps you.

Regards,
Velusamy R.

Comment on Re: Substr cannot extract last special character Download Code

Replies are listed 'Best First'.
Re^2: Substr cannot extract last special character by Samy_rio (Vicar) on Aug 19, 2005 at 05:59 UTC
Sorry juo, I misunderstood the question, here is my suggestion: `my $ohm = '24Ù 34Ã 234Æ 32Ï 23Ð 1½ 23§'; print "Before substract : $ohm\n"; while ($ohm =~ /[^!-~\s]/g)#This helps to find the non ascii character { $unit=$&; $ohm=~s/$unit//e; $foo ='&#x'.sprintf("%04X",ord($unit)).";"; print "Unit : $unit\tHex : $foo\n"; }` [download] In CMD, display the following hexadecimal values: `Hex : Ù Hex : Ã Hex : Æ Hex : Ï Hex : Ð Hex : ½ Hex : §` [download] These hexadecimal values are viewed in IE as HTML and XML file, I am getting exact symbol which are present in the code. Please, try this. Regards, Velusamy R.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Substr cannot extract last special character
by Samy_rio (Vicar) on Aug 19, 2005 at 05:59 UTC

Sorry juo, I misunderstood the question, here is my suggestion:

my $ohm = '24Ù 34Ã 234Æ 32Ï 23Ð 1½ 23§';
print "Before substract : $ohm\n";
while ($ohm =~ /[^!-~\s]/g)#This helps to find the non ascii character
{
    $unit=$&;
    $ohm=~s/$unit//e;
    $foo ='&#x'.sprintf("%04X",ord($unit)).";";
  print "Unit : $unit\tHex : $foo\n";
}
[download]

In CMD, display the following hexadecimal values:

Hex : &#x00D9;
Hex : &#x00C3;
Hex : &#x00C6;
Hex : &#x00CF;
Hex : &#x00D0;
Hex : &#x00BD;
Hex : &#x00A7;
[download]

These hexadecimal values are viewed in IE as HTML and XML file, I am getting exact symbol which are present in the code.

Please, try this.

Regards,
Velusamy R.

[reply]
[d/l]
[select]