Hallo ! Renee, script zerhackt meine TXT: Hallo ! Renee, script zerhackt meine TXT - #29183 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

Gast Gast

2004-04-10 21:56

Hallo ! Renne, wenn Du diesen Betrag liest, kannst Du vielleicht noch einmal neues script schreiben ?

Dein script läuft, aber es schreibt mir in meine data.txt
folgendes :

for(Name|Firstname|Street|Nr|Code|City|Tel|eMail
A|A|Astreet|056|010101|NY|0010/1110010|name@s.net
B|B|Bstreet|056|010101|NY|0010/1110010|name@s.net C|C|Cstreet|056|010101|NY|0010/1110010|name@s.net D|D|Dstreet|056|010101|NY|0010/1110010|name@s.net
)

Dein scribt schreibt in die erste Zeile : for ( und am ende )
und rückt die Daten Zeilen ein, so dass die erste Datenspalte
nicht in meiner Html angezeigt wird.

Frage: Was ist in dem script, das das for ( und die ) in meiner Data.txt gespeichert wird ? Ich möchte das nicht in der Datei haben.

Script von Renee:

Code: (dl )

#! /usr/bin/perl

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

my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header(-type => 'text/html');

my $string = $params{Name01}.'|'.$params{Firstname01}.'|'.$params{Street}.'|'.$params{Nr}.'|'.$params{Code}.'|'.$params{City}.'|'.$params{Tel}.'|'.$params{Email}."\n";

my $file = './data.txt';

open(R_FILE,"<$file") or die($!);
my @entries = <R_FILE>;
close R_FILE;

foreach(@entries){
 if($_ eq $string){
   $_ = "";
 }
}

open(W_TXT,">$file") or die($!);
print W_TXT "$_ for(@entries)";
close W_TXT;

print "Der Eintrag ".chomp($string)." wurde gelöscht";

edit renee: [code]-Tags eingefügt.\n\n