http://qs321.pair.com?node_id=1120547


in reply to Fix whitespace around symbols

What code have you already written?

Personally, I would extract the "special" symbols and their surrounding whitespace from the first sentence and then replace the elements accordingly in the second sentence:

my %symbols = (
    '/' =>  [],
    '*' =>  [],
    '-' =>  [],
);

$_= "This is a perl script/program.";

push @{ $symbols{ '/' }}, m!(\s*[/]\s*)!;
push @{ $symbols{ '*' }}, m!(\s*[*]\s*)!;
push @{ $symbols{ '-' }}, m!(\s*[-]\s*)!;

my $target= "C'est un perl script / programme";
$target =~ s!\s*([/*-])\s*!shift $symbols{ $1 }!ge;

[download]

Replies are listed 'Best First'.
Re^2: Fix whitespace around symbols
by corfuitl (Sexton) on Mar 20, 2015 at 14:49 UTC

    Hi,

    Thanks for your reply. I haven't written any code because I don't know how to start. I would like to do it in perl but other script languages are welcome.

    I have tried your code and it works when the sentence contains one symbol. In case of more symbols, they are omitted from the second sentence.

    Thanks

[reply]

      I can't replicate the problem. When I run the program with the two sentences:

      $_= "This is a perl script/program-  code.";
my $target= "C'est un perl script / programme  -  codele";

      [download]

      I get as the result in $target:

      C'est un perl script/programme-  codele

      [download]

      ... which is what I expect. If you tell us the exact input data and the exact output data you get, maybe we can work on finding the cause.

[reply]
[d/l]
[select]

        Hi,

        I don't have a standard text, but the problem appears when I have two same symbols in the same sentence. For instance,

        <p>Is this a perl script/program or a java script/program?</p>
<p>C'est un perl script / programme ou un script / programme?</p>

        [download]

        Best

[reply]
[d/l]

In Section Seekers of Perl Wisdom