October 2001
Beginner
528 pages
15h 20m
English
Content preview from Perl for Web Site ManagementBecome an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Running SWISH-E via a CGI Script
As
you can see, it’s really
pretty simple to run the swish-e program from the
command line. As it turns out, running it as a CGI script isn’t
much harder. Example 13-1 shows a simple CGI script
that does just that. This script, like all the other examples in this
book, can be downloaded from the book’s web site, at
http://www.elanus.net/book/.
Example 13-1. A simple CGI script to do web site searching via SWISH-E
#!/usr/bin/perl -Tw # search.cgi - simple web search script using swish-e use strict; use CGI qw(:standard); $ENV{PATH} = ''; my $swish_program = '/w2/s/www.socalsail.com/html/search/swish-e'; my $index_file = '/w2/s/www.socalsail.com/html/search/scs_index'; print header, <<"EOF"; <HTML> <HEAD> <TITLE>Search SoCalSail</TITLE> </HEAD> <BODY> <H1>Search SoCalSail</H1> EOF my $search_words = param('search_words'); if (defined $search_words) { # run the external swish-e program to get the search results $search_words =~ s/[^\s\w\-\(\)]+//g; # lose naughty chars if ($search_words =~ /^([\s\w\-\(\)]*)$/) { # launder for taint-mode purposes $search_words = $1; } my $command = "$swish_program -w '$search_words' -f $index_file"; my @results = `$command`; my $results = ''; foreach (@results) { # process each line of the search results next if /^(#|\s|\.|err: )/; # skip comments, as well as space, # dot, and error lines my($score, $path, $title, $size) = /^(\d+)\s(\S+)\s"(.+)"\s(\d+)$/; $results .= <<"EOF"; <LI><STRONG><A HREF="$path">$title</A></STRONG><BR> ...Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.