我無法將HTML表格的內容保存到文本文件中。使用CGI和PERL

Question

你好我的朋友 我是相當新的JavaScript和HTML，所以這個項目需要比我可能需要更長的時間。 這是問題所在，我想將表格的內容保存到文本文件中。

這裏是形式

print start_form(-action=>"",-onSubmit=>"return false;"); 
print table({-border=>1,-cellpadding=>3,-name=>"tabla",-id=>"tab"}, 
    th(["Matricula","Nombre","Apellido Paterno","Apellido   Materno","Sexo","Edad","Carrera","Email", 
    "Materias","Promedio","Borrar"])); 
print submit(-label=>'Guardar',-onClick=>'salvar();',-onSubmit=>"salvar(); return false;"); 
print hidden(-name=>'escondido',-id=>'hid', 
      -default=>['0']); 
print hidden(-name=>'escondido2',-id=>'hid2', 
      -default=>['nadiemeve2']); 
print end_form; 

行添加到它讀取使用JavaScript文件表中的代碼，所以當我想要顯示的表中的內容保存到一個文本文件，我做此：

if (param) { 
open FT, "+>>".param('escondido2') or die "No se puede abrir el archivo"; 
print FT param('celda60'); 
close FT; 
} 

在這裏，「celda60」是一個字段內的文本字段單的名稱，因爲在創建單元的名稱中給出。你可能注意到，我只是試圖保存一個單元格作爲測試，事情是，它不起作用。它並不拯救一件事。但如果我這樣做： print FT param（'celda60'）。「TEST」; 它在我的文件中保存的唯一的事情就是TESTESTESTEST，所以問題肯定在參數（「celda60」） 如果你想知道「salvar（）」看起來像這樣

function salvar(){ 

    var table2 = document.getElementById('tab'); 

    var rowCount2 = table2.rows.length - 1; 
    document.getElementById('hid').value=rowCount2; } 

它的唯一的事情就是獲取行數，所以當我進行保存時，我可以通過執行幾個循環來保存每個單元格的每個文本字段內的內容。

任何想法，我在做什麼錯在這裏？我的意思是，除了很多基本的東西，我猜。

Answer 1

HTML文檔的客戶端修改是而不是通過CGI自動反映到服務器端程序的狀態。您需要額外的機制，例如AJAX。

Answer 2

你需要閱讀寫得很好 Perl和CGI教程後，1998年的某個時候

我建議Ovid's CGI Course。這是一個古老的經典，但它寫得很好，不鼓勵壞習慣。

您至少有一個地方可以在我的CGI參數中使用shell轉義運行任意命令。這就是爲什麼諸如污染用戶數據和三個參數打開命令等做法是標準做法並且已經有很多年了。

一般建議：

1. 確保您使用的strict和warnings。
2. 使用3個參數open與詞法句柄，或者只是使用IO :: File。 open my $fh, '>>', $pathtofile or die "Ouch $!";
3. 您不必在Perl中使用CGI模塊來執行CGI。這是處理參數解析和HTML構建的一種便捷方式。有很多選擇。
4. print可以處理參數列表。您的代碼中不需要有50個打印語句。
5. 將空白添加到您的代碼。將事物分開使其更具可讀性。

在這裏的最後幾個點是一個例子：

sub print_form { 

    print 

     start_form(-action=>"", -onSubmit=>"return false;"), 

     table({-border=>1,-cellpadding=>3,-name=>"tabla",-id=>"tab"}, 
       th([ "Matricula",  "Nombre", 
        "Apellido Paterno", "Apellido Materno", 
        "Sexo",    "Edad", 
        "Carrera",   "Email", 
        "Materias",   "Promedio", 
        "Borrar", 
       ]) 
     ), 

     submit(-label => 'Guardar', 
       -onClick => 'salvar();', 
       -onSubmit => 'salvar(); return false;', 
     ), 

     hidden(-name=>'escondido', -id=>'hid', -default=>['0']), 
     hidden(-name=>'escondido2', -id=>'hid2', -default=>['nadiemeve2']), 

     end_form(); 
} 

雖然，在我的代碼我會做HTML和其傳回。我喜歡保持副作用，如印刷出來，緊密分組。

Answer 3

也許你正在過分複雜的問題，這樣的事情將允許你有一個用戶輸入一個表單值的列表，然後將這些值保存到服務器上的數據文件。

use strict; 
use warnings; 
use CGI; 
use IO::File; 

my @FIELDS = qw(
     matricula  nombre 
     apellido_paterno apellido_materno 
     sexo    edad 
     carrera   email 
     materias   promedio 
     borrar 
); 

i f(param('gotstuff')) { 


    my $fh = IO::File->open('datafile.txt', '>>'); 

    my @data = param(@FIELDS); 

    $fh->print join ',', @data; 

    # Print a thank you for your data page here. 

} 
else { 

    # Do your other junk here, start some html, etc 
    # print the form and so on. 

    print_form(); 

    # Print the rest of your HTML here. 
} 

sub print_form { 

    my @fields = qw(
     matricula  nombre 
     apellido_paterno apellido_materno 
     sexo    edad 
     carrera   email 
     materias   promedio 
     borrar 
    ); 
    my @headings = map {my $w = $_; $w=~/_/ /g; uc_first $w } @fields; 



    print 

     start_form(-action => script_name(), -method => 'POST'), 

     table({-border=>1,-cellpadding=>3,-name=>"tabla",-id=>"tab"}, 
      Tr([ 
       th(\@headings), 
       td([ map textfield($_), @fields ]), 
      ]), 
     ), 

     submit(-label => 'Guardar', 
       -onClick => 'salvar();', 
       -onSubmit => 'salvar(); return false;', 
     ), 
     hidden('gotstuff', 'gotstuff'), 
     end_form(); 
}