Help with PHP code conversion to PERL

[vahagn]

Hi!

I'm totally new to PHP and try to understand the syntax. Could anyone say what:

//Specify your URL
$URL = "http://www.exampleurl.com";

//Open a stream in READ mode
$handle = fopen ($URL, "r");

//It's this one I don't get
$key = str_replace(' ', '%20',fread($handle, 1000000));

converts into PERL? Can I rewrite this code syntax in PERL?

Thanks in advance,

/V

[sde]

summary: this code reads in the text of the web page exampleurl. com and replaces all spaces with %20.


//Specify your URL
$URL = "http://www.exampleurl.com";

$ before a string indicates a variable in PHP. this line of code just assigns example.url.com to the variable: $URL


//Open a stream in READ mode
$handle = fopen ($URL, "r");

The comment says it all.


//It's this one I don't get
$key = str_replace(' ', '%20',fread($handle, 1000000));

you're calling 2 functions here. fread() reads the resource you send in and returns a string up to 1000000 bytes.

str_replace() just replaces the first argument with the second argument in the string defined in the third argument.

to make it easier to understand, look at it like this:

PHP Code:

$buffer = fread($handle, 1000000);

$key = str_replace(' ', '%20', $buffer); 


also, remember PHP: Hypertext Preprocessor is your friend. use their function search when you need more information as to what functions like str_replace() and fread() do. it's an awesome resource.

[vahagn]

Thanks!

You don't happen to know how this could be done in PERL, would you? I mean the part with openning an handle to an URL and reading its reply...

[sde]

sorry, no. just out of curiosity, what is the situation that you need it done in perl? is it to be used in a perl cgi web app or is it just a perl script?

[vahagn]

It's a existing webshop written in PERL for which my friend wants to get an card-payment package. The company supports only ASP and PHP libraries and has examples for how the integration can be done. So what I need now is to convert this PHP code that they require to a PERL function call that reads the required URL call to the server, reads the replied answer and use it.

[teknomage1]

in perl

use LWP::Simple;

my $URL = "http://www.exampleurl.com";
my $content = get($URL);
$content =~ s/ /%20/g;

Also perl isn't an acronym, so don't put it in all caps.