Dateieintrag bzw Datei lesen - #55466 (Allgemeines zu Perl)

renee

2005-06-14 16:52

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#!/usr/local/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

# Perl-Skript zu RezepteEinfuegen.html
#Eingaben lesen
my $data="";
my $file ="./RETest.html";

my $abfrage = new CGI;
print $abfrage->header();
my %FORM = $abfrage->Vars();

my $rezepttitel = $FORM{Rezepttitel};

my $Rezeptdatei = "./Rezept.txt";
##funktioniert nicht
##Formulardaten in Datei eintragen
   open(RAUS, ">> $Rezeptdatei") or die $!;
   print RAUS $rezepttitel;
   print RAUS "\n";
   close(RAUS);
##Ende funktioniert nicht


# Antwortseite
print "<html><head><title> Rezeptseite </title></head><body bgcolor=white>\n";
print "<font size= 5 color=#996633><b>super Rezept</b></font>\n";
print "<b>",$FORM{'Rezepttitel'},"</b><br>\n";
print "</body></html>\n";
exit;

Kannst Dir ja mal das Wiki anschauen und die pdfs unter http://perlseiten.renee-baecker.de\n\n

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/