Perl

substitute a string

Please support our Perl advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Apr 2008

Posts: 102

Reputation: localp is an unknown quantity at this point

Solved Threads: 2

localp

Offline

Junior Poster

substitute a string

Nov 22nd, 2008

i am reading a url and inthat i have an array that has stored the value of a string as follows

Help with Code Tags

Perl Syntax (Toggle Plain Text)

address=no+3%2C+oxford+street
 
in this wat i want is to display the address as 
 
"no 3 oxford street"

some one please give me the code to write this as the output i want...

Local P ...

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: substitute a string

Nov 22nd, 2008

There are other ways, but here is one:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
my $string = 'address=no+3%2C+oxford+street';
(my $key,$value) = split(/=/,$string);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
print $value;
my $string = 'address=no+3%2C+oxford+street';
(my $key,$value) = split(/=/,$string);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
print $value;

•

Join Date: Apr 2008

Posts: 102

Reputation: localp is an unknown quantity at this point

Solved Threads: 2

localp

Offline

Junior Poster

Re: substitute a string

Nov 22nd, 2008

•

Originally Posted by KevinADC

There are other ways, but here is one:
Help with Code Tags

Perl Syntax (Toggle Plain Text)
my $string = 'address=no+3%2C+oxford+street';
(my $key,$value) = split(/=/,$string);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
print $value;
my $string = 'address=no+3%2C+oxford+street'; (my $key,$value) = split(/=/,$string); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; print $value;