Hallöchen =)
Danke fürs herschauen!
DAS SCRIPT
#!/usr/bin/perl
use CGI;
use strict;
use HTML::Template;
print "Content-type: text/html\n\n";
open(INFO, "<info.dat") || die "Error while opening the datafile!\n";
my @info=<INFO>;
close(INFO);
print "Username: -> $info[0]<br>\n";
print "Password: -> $info[1]<br>\n";
print "Birthday: -> $info[2]<br>\n";
print "<br>************************<br><br>";
$info[1]="new_pass\n";
open(INFO, ">info.dat") || die "Error while opening the datafile!\n";
print INFO "@info";
close(INFO);
open(INFO, "<info.dat") || die "Error while opening the datafile!\n";
my @foo=<INFO>;
close(INFO);
print "Username: -> $foo[0]<br>\n";
print "Password: -> $foo[1]<br>\n";
print "Birthday: -> $foo[2]<br>\n";
DIE DATAFILE
Aqua
83245798ghj?lsfdgh94385
11.4.1977
DAS PROBLEM
info.dat auf chmod 666 setzen
as Perl-script auf 755 und dann im Browser 10 mal aufrufen.
Die Datafile ist dann mit Leerzeichen durchsetzt, (gaaanz viele)
jedoch kann ich beim ganzen Schreib-Prozess im Perl-Script
keinen Space finden der stören würde.
Danke für Hilfe
Aqua