SOLVED : Apisteuto cgi provlima

[Giorgos Pallas]

To provlima en oligois :
#!/usr/bin/perl

use CGI qw(:standard);

print header;
print start_html('George Pallas Mp3 Database...'),
    h1('Search my Mp3 database'),
    start_form,"Enter the pattern to search : ",
    textfield('pattern'),
    submit,end_form,hr;

$find=em(param('pattern'));

print "\nSearching for pattern '",$find,"'\n";

===================================
Edo einai i arxi apo to moiraio script pou me peisma arniotan na
paiksei...An thymaste elega oti den enoei na kanei match i grammi
if ($line =~ /$find/) { print $line; }
i $line epairne to periexomeno tis apo ena arxeio pou diavazotan grammi
grammi.
NOMIZA oti to scriptaki mexri edo leitourgouse kala kai to provlima einai
stin if opou ginetai to matching. PLANH megali. H grammi pou ta xalouse ola
itan i
$find=em(param('pattern'));
i opoia eprepe na einai
$find=param('pattern');
Ego akomi den katalava ti itan auto to em( ) alla nomiza oti to scriptaki
ebaze stin metavliti $find auto pou eprepe mono kai mono giati meta tin
$find=em(param('pattern')); ebaza mia print $find i opoia ektypone ontos
auto pou eixa dosei sti forma. Tin teleutaia omos fora paratirisa oti den to
emfanize kanonika ston browser alla me italics... To epomeno bima itan na
afaireso to em( ) opote kai epaikse... Ti itan auto to rimadi to em( )
 pou kai ego apo tutorial sto www.perldoc.com to eida...] ??

giorgos
























--
linux-greek-users mailing list -- http://lists.hellug.gr