Ad:

Perl Discussion Thread
Unsolved
Views: 1645

Nov 22nd, 2008

substitute a string

Expand Post »

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

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...

Similar Threads

localp

Reputation Points: 1

Solved Threads: 3

Junior Poster

Offline

190 posts
since Apr 2008

Permalink

Nov 22nd, 2008

Re: substitute a string

There are other ways, but here is one:

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;

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Nov 22nd, 2008

Re: substitute a string

Click to Expand / Collapse Quote originally posted by KevinADC ...

There are other ways, but here is one:
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;

it worked thanks !!

localp

Reputation Points: 1

Solved Threads: 3

Junior Poster

Offline

190 posts
since Apr 2008

Permalink

Nov 22nd, 2008

Re: substitute a string

actually there was an error in this line:

(my $key,$value) = split(/=/,$string);

should have been:

my($key,$value) = split(/=/,$string);

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: perl beginner question

Next Thread in Perl Forum Timeline: generating 'infinite' strings

DaniWeb Message

Cancel Changes

User Name
Password