Sunday, June 6, 2004 Idris Samawi Hamid wrote:
> Here is the whole file once again:
> ==================================
> #!/usr/bin/perl -w
> use strict;
> use open ':utf8';
> open(NEW,">new.tex"); #opens file to print out the result
> while (<>); { #this opens the file for reading
> $_ =~ s/\x{0627}/\x{0041}/esg;
> #this is the actual conversion
> print NEW "$_";
> #and this writes the result into file "new.tex"
> }
> close(NEW);
> ==================================
My take: try the following (should work even with ActiveState
5.6)
===
#!/usr/bin/perl
use strict;
#D comment the following, I think we can do without
# use open ':utf8';
open(NEW,">new.tex"); #opens file to print out the result
while (<>); { #this opens the file for reading
$_ =~ s/\x06\x27/A/esg; #this is the actual conversion
print NEW "$_"; #and this writes the result into file "new.tex"
}
close(NEW);
===
Save as e.g. idris_conv.pl and issue as
perl idris_conv.pl < filename.txt
where filename.txt is the filename to convert.
--
Giuseppe "Oblomov" Bilotta
_______________________________________________
ntg-context mailing list
[EMAIL PROTECTED]
http://www.ntg.nl/mailman/listinfo/ntg-context
