How can I add a variable to a regexp? (Perl) -

-

so here's sample

while (<fh>) {    $line = $_;   chomp($line);    $marksearchpat= "href=\"\@x\@embeddedfile\.requesturlstub\@x\@bbcswebdav\/xid";         $markreplacepat= "href=\"http:\/\/www\.facepalm\.org\/bbcswebdav\/xid";       ## (mark)  duplicate input file lines "altered" file, making substitutions necessary.   $linenumber++;         print "line $linenumber has been read\n";   $line2=$_;       $line2=~s/$marksearchpat/$markreplacepat/eig;     print whout $line2;        print whlog 'at '.localtime().', replaced '. $marksearchpat .' '. $markreplacepat .' @ line '.$linenumber.' of file '.$file."\n";

how add regex variable (a regex match variable)to $marksearchpat , $markreplacepat

you can't with

s/$search_pat/$replace/

since interpolation not interpret interpolated values @ all. that's why added /e.

s/$search_pat/$replace_code/e

in above, value of $replace_code expected perl code. last expression in $replace_code evaluates replacement string. perl code that? either of following do:

'http://www.facepalm.org/bbcswebdav/xid-' . $1  "http://www.facepalm.org/bbcswebdav/xid-$1"

to place in $replace_code, can use of following:

my $replace_code = '"http://www.facepalm.org/bbcswebdav/xid-$1"'; $replace_code = q{"http://www.facepalm.org/bbcswebdav/xid-$1"}; $replace_code = q{'http://www.facepalm.org/bbcswebdav/xid-' . $1}; etc

so end with:

my $search_re = qr{href="\k\@x\@embeddedfile\.requesturlstub\@x\@bbcswebdav/xid-([0-9]{9}_2)}; $replace_code = q{"http://www.facepalm.org/bbcswebdav/xid-$1"}; s/$search_re/$replace_code/gie;

technically, don't need capture using lookahead:

my $search_re = qr{href="\k\@x\@embeddedfile\.requesturlstub\@x\@bbcswebdav/xid-(?=[0-9]{9}_2)}; $replace_code = q{"http://www.facepalm.org/bbcswebdav/xid-"}; s/$search_re/$replace_code/gie;

which means don't need /e:

my $search_re = qr{href="\k\@x\@embeddedfile\.requesturlstub\@x\@bbcswebdav/xid-(?=[0-9]{9}_2)}; $replace_str = 'http://www.facepalm.org/bbcswebdav/xid-' s/$search_re/$replace_str/gi;

Comments

Post a Comment

Popular posts from this blog

django - How can I change user group without delete record -

-
on website user have 1 group. , user can change group. it's made user.groups.clear() and user.groups.add(new_group) but it's not efficient, because there 2 sql query: delete, insert. how can change group update query? user , group related each other using manytomanyfield . means intersection table exists relating both entities, , if don't specify model map (using through attribute) django creates 1 you. looking @ sources django.contrib.auth.models see that's case. fortunatly, can access intermediary model using through attribute of manager (in case, user.groups.through ). can use regular model. example: >>> alice = user.objects.create_user('alice', 'alice@example.com', 'alicepw') >>> employee = group.objects.create(name='employee') >>> manager = group.objects.create(name='manager') >>> alice.groups.add(employee) >>> alice.groups.all() [<group: employee...
Read more

java - Need to add SOAP security token -

-
i need set custom soap header attribute on jax-ws generated webservice client. case webservice calls must go through proxy server requiring specific token (recieved web request header) present in soap request header. e.g.: 1 carserviceservice service = null; 2 service = new carserviceservice(new url(url), new qname(qname); 3 carserviceendpoint port = service.getcarserviceport(); it seems in line 3 wsdl retrieved , call fails due missing security token. 1 point direction on how done? a detailed example has been mentioned here: creating , deploying jax-ws web service on tomcat 6 this article shows how create , use security token .
Read more

java - EclipseLink JPA Object is not a known entity type -

-
i have strange problem eclipselink , object want persist. have 1 object (keypointlistimpl) stores object keypointimpl in list. persisting keypointimpl objects works great if try persist keypointlistimpl object java.lang.illegalargumentexception says object keypointimpl isn't known entity type. here keypointimpl code: @entity @table(name="keypoints") public class keypointimpl implements keypoint { @id @generatedvalue(strategy = generationtype.identity) private int id; @enumerated(enumtype.string) private detectortype keypointtype; private float x; private float y; private float size; private float angle; private float response; private int octave; private int classid; ... } here keypointlistimpl code: @entity @table(name="keypointlists") public class keypointlistimpl implements keypointlist { @id @generatedvalue(strategy = generationtype.identity) private int id; @onetoone(cascade={ca...
Read more