You are viewing a plain text version of this content. The canonical link for it is here.
Posted to users@httpd.apache.org by - Barry - <ma...@polisource.com> on 2005/07/25 18:32:56 UTC
[users@httpd] Long Perl regex not working from command line
I wanted to do a search and replace at the command line, but it didn't work,
even though the same regular expression worked in my cgi-bin. Could somebody
tell me why the substitution in the first script doesn't replace anything in
the file, while the one in the second script does? The file I'm attemting to
change with these test scripts is at
http://www.polisource.com/documents/BackgroundNotes/TEST/1831pf.shtml .
----------------------
Script 1 (doesn't work)
----------------------
#!/usr/local/bin/perl
system ('cd [full Unix path to the directory
http://www.polisource.com/documents/BackgroundNotes/TEST/ ];find * -name
\'1831pf.shtml\' ¦ xargs perl -pi -e "s/\<body\>.*\<\!\-\-\#include
virtual\=\"\/cgi\-bin\/Banner\_BackgroundNotes\.pl\" \-\-\>\<br\>/\<body
style \= \"margin\-top\: 1px\; padding\-top\: 1px\;\"\>\n\n\<p style \=
\"text\-align\: center\; margin\-top\: 1px\; padding\-top\: 1px\;\"\>\n\<a
href \= \"http\:\/\/www\.example\.org\"\>\n\<img style \= \"margin\-bottom\:
20px\; border\: none\;\" src \=
\"http\:\/\/www\.example\.com\/images\/Banner\_BackgroundNotes\.gif\"\>\n\<\/a\>\n\<\/p\>\n\n\<br\>/s;"');
----------------------
Script 2 (works)
----------------------
#!/usr/local/bin/perl
$Direc = [full Unix path to the file
http://www.polisource.com/documents/BackgroundNotes/TEST/1831pf.shtml ]";
open(IN, $Direc);
@file = <IN>;
close IN;
$Webpage = join ("", @file);
$Webpage =~ s/\<body\>.*\<\!\-\-\#include
virtual\=\"\/cgi\-bin\/Banner_BackgroundNotes\.pl\" \-\-\>\<br\>/\<body
style = \"margin\-top: 1px\; padding\-top: 1px\;\"\>\n\n\<p style =
\"text\-align: center\; margin\-top: 1px\; padding\-top: 1px\;\"\>\n\<a href
= \"http:\/\/www\.example\.org\"\>\n\<img style = \"margin\-bottom: 20px\;
border: none\;\" src =
\"http:\/\/www\.example\.com\/images\/Banner_BackgroundNotes\.gif\"\>\n\<\/a\>\n\<\/p\>\n\n\<br\>/s;
open(LOG, ">$Direc");
print LOG "$Webpage";
close(LOG);
-----------------------
The first script worked only when I shortened the regex to just replace the
word "head" with a different word, but if the long regex works in the second
script, I don't see why it won't work in the first.
Barry
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.9.2/52 - Release Date: 7/19/2005
---------------------------------------------------------------------
The official User-To-User support forum of the Apache HTTP Server Project.
See <URL:http://httpd.apache.org/userslist.html> for more info.
To unsubscribe, e-mail: users-unsubscribe@httpd.apache.org
" from the digest: users-digest-unsubscribe@httpd.apache.org
For additional commands, e-mail: users-help@httpd.apache.org