On 12-02-18 11:40 AM, lina wrote:
>> elsif ( $xpm_file =~ /^"(\S+)[",]$/) {
Are there some possibilities that something can be done for the part [",]?
Make it recognize both end with " or ",
elsif( $xmp_file =~ /^\"([A-Za-z]+)\"\,?$/ ){
my $keys = $1;
my @result = ();
for my $key ( $keys =~ /(.)/g ){
if( defined( $dict{$key} )){
push @result, $dict{$key};
}
}
$xmp_file = join( q{ }, @result );
}
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
It's Mutual Aid, not fierce competition, that's the dominate
force of evolution. Of course, anyone who has worked in
open source already knows this.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
