ein paar fragen - hilfe :/: njaa perl halt ^^ - #5203 (Perl/CGI)

renee

2005-07-14 23:10

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn das einfacher Text ist und Du das in HTML ausgibst, dann werden die Leerzeilen nicht angezeigt...

Skript:

Code: (dl )

#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);


my $cgi = CGI->new();
print $cgi->header();

unless($cgi->param('id')){
print qq~<html><head><title>Logfile </title></head><body>
        <form action ="/cgi-bin/comments.pl" method="post">
        <p><b> Logfilename eingeben </b> <br>
        <p><select name="Logfilename"><option>logfile-accesspoint-1.txt</option>
        <option>logfile-accesspoint-2.txt</option></select> <br>
        <p> <input type='hidden' name ="id" value='1' > </p>
        <p> <input type="submit" value="Ok" > </p>
        </form>
        </body></html>~;
exit(0);
}

my $a = "logfile-accesspoint-1.txt";
my $b = "logfile-accesspoint-2.txt";

my $file= $cgi->param("Logfilename");

if($file eq $a) {
 logfile($a);
}
elsif($file eq $b) {
 logfile($b);
}

sub logfile {
 my ($file) = @_;
 open(LOGFILE1, "<$file") or die "kann $f nicht oeffnen: $!\n";
 while(<LOGFILE1>) {
    next if(/^\s*?$/); # überspringe Leerzeilen... (für Reguläre Ausdrücke siehe perldoc perlre)
    print;
 }
 close LOGFILE1;
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/