Zivjo!
Zopet je prisel cas, ko Borut razkazuje svoje bedno (ne)znanje
programiranja. Tokrat bi rad naredil nekaj, kar bi iz vhodne datoteke
porezalo vse, kar vsebuje dolocene izraze. Stvar (se) ne deluje, Camel
book-a nimam pri roki, zato prosim za ideje...
trimlog.pl
#!/usr/bin/perl
$LOGFILE=$1 ; # Name of the file to be trimmed
@WORDS=('ppp', # Lines containing these words will be cut out. Regex possible.
'SLIP',
'chat',
) ;
open(INFILE, $LOGFILE) or die ("Can't open $LOGFILE") ;
open(OUTFILE, ${LOGFILE}.out) or die ("Can't open ${LOGFILE}.out") ;
if ( $2 eq "" ) {
for ( $i = 0 ; $i <= $#WORDS ; $i++ ) {
trim(@WORDS[$i])
}
} else {
trim($2) ;
}
close(<INFILE>) ;
close(<OUTFILE>) ;
unlink($LOGFILE) ;
open(RESULT, $LOGFILE) or die ("Can't open $LOGFILE") ;
open(OUTFILE, ${LOGFILE}.out) or die ("Can't open ${LOGFILE}.out") ;
@CONTENTS=<OUTFILE> ;
print (<RESULT>, @CONTENTS) ;
sub trim {
while (<INFILE>) {
s/$_[1]// ;
print (<OUTFILE>, $LINE) ;
}
}
lp,
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|Borut Mrak a.k.a. PyO-GEniC, a wannabe bofh, |
| [EMAIL PROTECTED], [EMAIL PROTECTED] |
| phone: +386 65 51248 and 61 267876 |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
I am an atheist, thank God!
