Shlomi Fish wrote:
On Sat, 19 May 2012 12:04:16 -0500
Xi Chen<cxde...@gmail.com> wrote:
I have a simple code, but it doesn't work and don't know why. Please see it
below:
Input file: 1.txt which including number and letter "o" in one line.
10o10o10
Wanted output file: 2.txt in which 10 represent 10 dots and o is replaced
by letter "x".
..........x..........x..........x
The perl code I wrote is below:
#!/usr/bin/perl
use strict;
use warnings;
while(<>){
chomp;
if(/^10o|o10o|o10\z/){
s/10/.………/g;
This contains some Unicode stuff instead of ASCII dots.
If you examine the email closely you will see it is not Unicode:
Content-Type: text/plain; charset=windows-1252
Content-Transfer-Encoding: quoted-printable
s/10/.=85=85=85/g;
If you replace it with:
s/10/('.' x 10)/ge;
It should work.
Or just:
s/10/........../g;
John
--
Any intelligent fool can make things bigger and
more complex... It takes a touch of genius -
and a lot of courage to move in the opposite
direction. -- Albert Einstein
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/