Perl search and replace

J_Szucs · 08-17-2010, 04:25 PM

I have a line in a perl script, that replaces urls with an other one:
s@^(http:[^ ]*) @http://192.168.0.3/httpgetfile3.php?url=\1 @;

Could it be modified so that instead of simply substituting backreference \1, it substitutes the urlencoded backreference \1?

This is syntactically incorrect for sure, but it may help to make clear what I would like to do:
s@^(http:[^ ]*) @http://192.168.0.3/httpgetfile3.php?url=urlencode(\1) @;

estabroo · 08-17-2010, 08:29 PM

well one way you can do it is with a code regex, but that is considered experimental and probably dangerous

s@^(http:[^ ]*)(?{ $http = urlencode($^N) })( .*)@http://192.168.0.3/httpgetfile3.php?url=${http}\2@

you can leave out the \2 if you don't need the remainder of the line

perl -e '$var = "BIGLETT and small"; $var =~ s@(.*?)(?{ $lets = lc($^N) })( .*)@${lets}\2@; print "$var\n";'

konsolebox · 08-17-2010, 11:02 PM

@estabroo I had the same idea as yours. It's just too bad I didn't know how to specify the results using a variable inside the replacement expression. I've tried $1 = uri_escape($^N) but it was a wrong idea since $1 is readonly. I thought that ${var} is only evaluated before the expression starts runtime.

My example now is this:

Code:

#!/usr/bin/env perl

use URI::Escape;
use strict;

our $var;

while (<>) {
	s@(http://[^[:blank:]'"]+)(?{ $var = uri_escape($^N); })@http://192.168.0.3/httpgetfile3.php?url=${var}@g;
	print $_;
}

Code:

perl script.pl < file

Edit: I think this can be easily converted to a one-liner.

J_Szucs · 08-18-2010, 02:51 AM

Thanks for the codes, I will try them today.

Anyway, the script is going to be an url redirector for squid, so:

a) surplus part of the line (following the space) can be junked (or squid junks it),

b) it need not necessarily be a one-liner. I only try this one-liner, because I have no perl knowledge, and this one-liner is simple and works so far, whilst I remember that the multi-liners I have tried some years ago when I was faced with a similar task, only worked from the command line, but stalled squid for some reason.

The script is going to be part of a simple filtering proxy for my handheld, and its only purpose is to convert/scale down media files in order that they can be viewed on a weaker hardware and lower bandwidth. (However, all urls are passed to the filtering php script, since I want to filter based on response mime-type, rather than request url.)