Re: lug-bg: Search engene

[raptor@xxxxxxxxxx (raptor)]

|Az ako mi tribvashe takova nesto bih napravil nesto podbno....
|####################
|#!/bin/bash
|ls -almR / > /var/www/data/sometiems_is_better_to_use_win.asc
]- it is never better to use MS software :")), i ste stane mnogo golqm fail.. ste ima da go pretyrswa polowin chas..
on the fly..

#!/usr/bin/perl
use strict;
sub formatting { 
 my $str = shift;
 $$str =~ s/\n/<br>/gs;
 #tuka nqkakwo dopylnitelno formatirane ..
 return $str
}

use CGI;
my $q = new CGI();
my $p = $q->param('q');
if ($p) {
 my $result = qx{locate -r $p};
 my $str = formating(\$result);
 print $$str;
} else {
  print qq{<form action=script.pl method=get>
        <input type=text name=q>
        <input type=submit value=Search>
        </form>
 }
}

raptor
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================