Hi
The script below does not do what I want which is to search a guestbook for
a particular word and if that word appear, to show the records. Currently,
after the script is run, it returns a blank page. I've confirmed that the
fault lies with statement 1, in other words, if I replace statement1 with
statement2, it works.
My question is, what must I do to make statement 1 equivalent to statement 2
without having to use the map function.
Statement 1 :-
@read = join ('<hr>\n', split(/<hr>/, @read));
with this statement:-
Statement 2 :-
@read = map "$_<hr>\n", split /<hr>/i, join '', @read;
Any advice would be very much appreciated.
Thanks
#!d:\perl\bin\perl.exe -w
use CGI::Carp qw(fatalsToBrowser);
print "cOnTenT-tYpE: text/html\n\n";
open (FILE, "frall.html")|| die"file not found $!\n";
@read = <FILE>;
chomp @read;
### From Charles & it works #####
## @read = map "$_<hr>\n", split /<hr>/i, join '', @read;
@read = join ('<hr>\n', split(/<hr>/, @read));
foreach $record (@read){
if (grep /jim/, $record) {
print $record;
}
};
####### end of msg ######
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
