mediengestalter.info
FAQ :: Mitgliederliste :: MGi Team

Willkommen auf dem Portal für Mediengestalter

Aktuelles Datum und Uhrzeit: Di 06.12.2016 23:12 Benutzername: Passwort: Auto-Login

Thema: Verknüpfung 2er pl dateien vom 18.10.2006


Neues Thema eröffnen   Neue Antwort erstellen MGi Foren-Übersicht -> Programmierung -> Verknüpfung 2er pl dateien
Autor Nachricht
Fuzy
Threadersteller

Dabei seit: 14.01.2003
Ort: PW
Alter: -
Geschlecht: Männlich
Verfasst Mi 18.10.2006 14:04
Titel

Verknüpfung 2er pl dateien

Antworten mit Zitat Zum Seitenanfang

Hallo Leuts ich habe 2 .pl-Dateien, wie packe ich beide Informationen in eine Datei?

Beispiel:

Code:
#!/usr/bin/perl
require "cgi-lib.pl";      # Version 2.17
$cgi_lib'maxdata = 10000;
$cgi_lib'writefiles = "/temp";
ReadParse();
CgiDie('Sie haben keine Datei ausgewählt.',
  'Bitte den Backbutton klicken und die Eingabe wiederholen.')
   if !$in{'Datei'};
print &PrintHeader;
print &HtmlTop('Die Datei wurde hochgeladen');
print "Die gesendete Datei wurde wie folgt gespeichert: $in{Datei}.<br>\n";
print &HtmlBot;


Code:
#!/usr/bin/perl

# -------> Individuelle Parameter des Skriptes - bitte anpassen!
# --> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";
# --> Ziel-Mailadresse, an die gesendet werden soll:
$mailto = 'x@xx.xx';

# -------> Modul für CGI-Scripts einbinden:
use CGI;

# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;

# -------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$delimiter = $query->param('delimiter');  # ---> Begrenzerzeichen zwischen name und value
$returnhtml = $query->param('return');    # ---> URL für Dankeseite
$subject = $query->param('subject');      # ---> E-Mail-Subject

# -------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln
#             VERHINDERT sonst möglichen MISSBRAUCH des Skripts
$subject =~ s/\s/ /g;

# -------> Text der E-Mail aus den Formulardaten ermitteln:
$mailtext = "";
foreach(@names) {
  $name = $_;
  @values = "";
  @values = $query->param($name);
  if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
    foreach $value (@values) {
      $mailtext = $mailtext.$name;
      $mailtext = $mailtext.$delimiter;
      $mailtext = $mailtext.$value."\n";
    }
  }
}

# -------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);

# -------> Dankeseite an Browser senden:
print "Location: $returnhtml\n\n";


haaaaarig...
  View user's profile Private Nachricht senden
Simonhard

Dabei seit: 25.01.2006
Ort: -
Alter: -
Geschlecht: -
Verfasst Mi 18.10.2006 15:09
Titel

Antworten mit Zitat Zum Seitenanfang

Bisschen besser ausdrücken vlt..

Auf Funktionen, Variablen etc. in anderen Dateien greifst Du mit 'require' zu..
  View user's profile Private Nachricht senden
Anzeige
Anzeige
Fuzy
Threadersteller

Dabei seit: 14.01.2003
Ort: PW
Alter: -
Geschlecht: Männlich
Verfasst Mi 18.10.2006 22:26
Titel

Antworten mit Zitat Zum Seitenanfang

Simonhard hat geschrieben:
Bisschen besser ausdrücken vlt..

Auf Funktionen, Variablen etc. in anderen Dateien greifst Du mit 'require' zu..


ich möchte in ein Formular eine Upload-Funktion einbauen, aber ich kann im Form Tag ja schlecht auf 2 Dateien verweisen, und deswegen suche ich jemand erfahrenden, der mir die beiden Scripts zusammensetzt.
Was pl angeht bin ich newbee, aber solang alles funzt, warum nicht weiterentwickeln?!
  View user's profile Private Nachricht senden
schachbrett

Dabei seit: 11.10.2006
Ort: Köln
Alter: -
Geschlecht: Männlich
Verfasst So 22.10.2006 03:25
Titel

Antworten mit Zitat Zum Seitenanfang

Haengs einfach hintereinander, die Ausgabe-Prints ganz zum Schluss. Das einzige worauf du aufpassen solltest, sind die Parameter-Namen - die duerfen sich nicht ueberschneiden!

Gruss
  View user's profile Private Nachricht senden
 
Ähnliche Themen Kommunikation 2er swf Dateien
PDF mit e-Mail Verknüpfung und homepage-Verknüpfung
mySQl ausgabe mit php in 2er schritten
Zusammenfügen 2er Abfragen bei PHP Formular...
Email-Verknüpfung im .pdf ??!
auf grafik mail verknüpfung?
Neues Thema eröffnen   Neue Antwort erstellen
MGi Foren-Übersicht -> Programmierung


Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst an Umfragen in diesem Forum nicht mitmachen.