#!/usr/bin/perl -T
# use CGI;
use CGI qw/:standard/;
# $q = new CGI;
print <<'EnD';
Content-type: text/html; charset=iso-8859-2
Népdal szöveg - keresés
EnD
print start_form, "Keresendő szöveg: ", textfield('kif'), submit('Uccu'), end_form, hr;
# if (param()) {
if (1) {
# $kif=param('kif');
$kif='adriai';
foreach $TEXT ( ('nepdal.txt') ) {
$album = '';
$cim = '';
open(TEXT, "< $TEXT");
while($sor = ){
if ( $sor =~ /^CD: (.*)$/ ) { $album = $1; $track = 0; }
elsif ( $sor =~ /^#([0-9]+)$/ ) { $track = $1; }
elsif ( $sor =~ /^#[0-9]+\.([0-9]+)-0[0-9]+[a-z]*$/ ) { $track = $1; }
elsif ( $sor =~ /^#/ ) { }
elsif ( $sor =~ /^:(.*)$/ ) { $cim = " $1"; }
elsif ( $sor =~ /^===$/ ) {
if ( $megvan eq true ) {
print "$album";
print " ($track. szám)" if ( $track != 0 );
print "
\n\n";
print $vers;
print "
\n";
$megvan = false;
}
$vers='';
}
else {
if ( $sor =~ /($kif)/i ) { $Kif=$1; $sor =~ s{$Kif}{$Kif}g; $megvan = true; }
$vers .= $sor;
}
}
close(TEXT);
print "
\n";
} # foreach
}
print "\n\n";
print "\nszaszi\@szepi.hu\n";
print "\n";