HTML-Seite speichern (Allgemeines zu Perl)

[thread]6665[/thread]

HTML-Seite speichern

Leser: 2

Gast Gast

2005-01-26 12:21

Hi,
ich habe eine HTML-Seite mit einem Formular erstellt, das ausgefüllte Formular schicke ich dann an ein Perlskript. Dieses Perlskript erstellt daraus eine HTML-Seite. Jetzt möchte ich noch einen Button, mit dem ich diese Seite direkt in einem Verzeichnis abspeichern kann. Ich weiß allerdings leider nicht, wie ich die gesamte HTML-Seite einlesen kann. Darüber hinaus sollte die neue gespeicherte HTML-Datei noch eine Nummer bekommen. Diese sollte dynamisch erzeugt werden. Und zwar so, dass die Nummer immer um eins hoch gezählt wird.
Wenn sich schon 6 Dateien in dem Verzeichnis befinden, dann sollte die neu gespeicherte Datei so gespeichert werden. 00007.html usw.
Aber das Abspeichern ist erst einmal das Wichtigste.
Besten Dank schon mal für Eure Tipps.

Gruß
Glen

format_c

2005-01-26 12:44

User since
2003-08-04
1706 Artikel
HausmeisterIn

Du meinst auf dem Client abspeichern? Das wird ein hartes brot und ich würde solche Seiten meiden die auf meinen PC zugreifen können. Außerdem bist du damit sehr der Browserhersteller abhängig. Glaub wer das einigemaßen kann ist der IE mit seinem ActiveX.

Oder meinst du Server-gespeichert?

Gruß Alex

Effizente Linuxshell

Glen

2005-01-26 14:30

User since
2004-07-04
8 Artikel
BenutzerIn
[default_avatar]

Sorry, hatte ich vergessen zu erwähnen. Die Dateien sollen auf dem Server gespeichert werden.

esskar

2005-01-26 14:44

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

okay...
ich nehme an, dass du die html-seite momentan einfach generiert ausgibst, anstatt dir einen string zu bauen und diesen dann auszugeben
also z.b. so

Code: (dl )

sub show_html
{
   print "<html>\n<head></head>\n";
   print "<body></body>\n";
   print "</html>\n";
}

schreib das ganze so um

Code: (dl )

sub gen_html
{
   my $html = "";

   $html .= "<html>\n<head></head>\n";
   $html .= "<body></body>\n";
   $html .= "</html>\n";

   return $html;
}

sub show_html
{
   print &gen_html();   
}

und zum speichern machst du es so

Code: (dl )

sub count_files
{
   my ($folder) = @_;
   
   return -1 unless -d $folder;

   my $count = 0;
   my $dir;
   if(opendir($dir, $folder))
   {
      while(my $entry = readdir($dir))
      {
         next if $entry =~ m!^\.\.?$!;
         $count++ if -f "$folder/$entry";
      }

      closedir($dir);
   }
   else { $count = -1; }

   return $count;
}

sub save_html
{
   my ($folder) = @_;

   $folder =~ s!\\!/!g;
   $folder =~ s!/$!!;

   my $count = &count_files($folder);
   die "Could not access $folder" if $count < 0;

   my $filename = sprintf("%s/%08i.html", $folder, ++$count);
   my $file;
   open($file, "> $filename") or die "Could not create $filename";
   print $file &gen_html();
   close $file;

   1;
}

habs nid getestet; aber könnte so gehen!

renee

2005-01-26 14:59

User since
2003-08-04
14371 Artikel
ModeratorIn

Das würde die Seite aber schon bei der Erstellung speichern... Wenn ich es richtig verstanden habe, soll die Seite aber nur bei Bestätigung (über einen Button) gespeichert werden... hierfür müsste man den HTML-Quelltext in ein Hidden-Field packen... und mit dem Button ein Formular, das sonst nur noch dieses Hidden-Field enthält abschicken...

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/

Glen

2005-01-26 17:18

User since
2004-07-04
8 Artikel
BenutzerIn
[default_avatar]

Hi,
vielen Dank für Eure Antworten. http://board.perl-community.de/iB_html/non-cgi/Ski...
Dann werd ich mich jetzt mal hinsetzen und testen.

Gruß
Glen\n\n

View all threads created 2005-01-26 12:21.