ein paar fragen - hilfe :/: njaa perl halt ^^ (Seite 4) (Perl/CGI)

renee

2005-07-13 22:12

User since
2003-08-04
14371 Artikel
ModeratorIn

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 "<html><head><title>Logfile </title></head><body>\n";
print "<form action =\"/cgi-bin/comments.pl\" method=\"post\">\n";
print "<p><b> Logfilename eingeben </b> <br> \n";
print " <p> <input name =\"Logfilename\" size = \"40\" > </p> \n",
     "<p> <input type='hidden' name =\"id\" value='1' > </p> \n";
print "<p> <input type = \"submit\" value = \"Ok\" > </p> \n";
print "</form>\n";
print "</body></html>\n";
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>) {
     print;
  }
  close LOGFILE1;
}

*) Der Vergleichsoperator bei Strings ist eq
*) Man sollte immer versuchen, Dinge zusammenzufassen (wie hier die Subroutine)
*) Du musst ne Fallunterscheidung machen, ob das Formular abgesendet wurde oder ob das Formular angezeigt werden soll
*) Du solltest Dir im Wiki nochmal den Artikel zum Thema "use strict" durchlesen...

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/

Derunwissende

2005-07-14 19:34

User since
2005-07-05
20 Artikel
BenutzerIn
[default_avatar]

hm..und wie krieg ich nun das ganze dazu es auf ne html-seite auszugeben ?

renee

2005-07-14 22:19

User since
2003-08-04
14371 Artikel
ModeratorIn

*Was* soll auf ne HTML-Seite?? Du musst schon mehr Informationen geben, wenn wir Dir helfen sollen...

Die Datei wird im Moment einfach ausgegeben...

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/

Derunwissende

2005-07-14 22:53

User since
2005-07-05
20 Artikel
BenutzerIn
[default_avatar]

Ich soll ein programm schreiben, wo man auf ner html-seite auswählen kann ob man die datei logfile-accesspoint-1.txt oder logfile-accesspoint-2.txt sehen will und dann wenn man sich für eine entscheidet wird die dann auf ner html seite ausgegeben <: ! Zwischendrinn sollte ich noch alle Leerzeilen löschen <: ..deswegen wollt ich noch so nebenbei fragen wie man was aus ner datei löscht ?

mfg

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/

pq

2005-07-15 00:44

User since
2003-08-04
12209 Artikel
Admin1

vielleicht noch ein HTML::Entities::escape_entities dazu... ich muss auch so ein
logfile-script benutzen, welches sachen in <> tags dann nicht anzeigt.
nervig, sowas...

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Crian

2005-07-15 17:19

User since
2003-08-04
5878 Artikel
ModeratorIn

[quote=Derunwissende,13.07.2005, 20:06]jo use CGi::Carp qw(fatalsToBrowser); gehört meines wissen nach ^^[/quote]

nein

use CGI::Carp qw(fatalsToBrowser);\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Derunwissende

2005-07-16 18:35

User since
2005-07-05
20 Artikel
BenutzerIn
[default_avatar]

jo schon klar, crian <:

zur zeit wird bei dem programm irgendwie noch nicht viel ausgegeben..wenn ich das programm angucken möchte wird einfach alles im browser ausgegebn, also, der ganze perl code ^^..wird das mit dem HTML::Entities::escape_entities bereinigt ? [kann zur zeit nicht testen - hab perl hier nicht installiert ]

mfg

Merlin

2005-07-18 10:14

User since
2005-06-06
63 Artikel
BenutzerIn
[default_avatar]

Verwendest du eigendlich einen webserver um das skript auszuführen?

perldoc is your answer

renee

2005-07-18 10:45

User since
2003-08-04
14371 Artikel
ModeratorIn

Und ist auch die Endung als cgi-script per AddHandler eingestellt?

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/