Re: 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]

Comment on Re: Fix whitespace around symbols Download Code

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]
Re^3: Fix whitespace around symbols by Corion (Patriarch) on Mar 20, 2015 at 15:00 UTC
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]
Re^4: Fix whitespace around symbols by corfuitl (Sexton) on Mar 23, 2015 at 08:34 UTC
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]
Re^5: Fix whitespace around symbols by Corion (Patriarch) on Mar 23, 2015 at 08:45 UTC
Re^6: Fix whitespace around symbols by corfuitl (Sexton) on Mar 23, 2015 at 15:34 UTC


P is for Practical
	PerlMonks