valavanp has asked for the wisdom of the Perl Monks concerning the following question:
Hi monks,
I want to convert the entities like &ge, &le, into hexa values ≥, ≤.
The contents of the file are in $string.
I am storing the %entitylist in a separate file. This file consists of 15,000 entities and hexadecimal values e.g. '&ge' => '≥'. So from the below code it takes 20 seconds to process each file as it has to read the entitylist file and replace with hexa value.
Is there any other solution to minimise the process time. thanks monks for your suggestions.while (my ($key, $value) = each(%entitylist)){ #print $key."\n".$value."\n"; $string =~ s/$key/$value/g; }
|
---|
Back to
Seekers of Perl Wisdom