nicht angemeldet
while(<DATEI>) {
chomp;
@zeile=split(/\s*,\s*/, $_, 1);
Hm ich hatte das mal getest und es hat mir alle miene Spalten ausgegeben die ich also ingesaamt 5. Ich fands auch komisch aber es hatte geklappt.
Ich werd es erstmal drin lassen. So werd nochmal die seite psten kann ja sein das ich was übersehen hab.
#!/usr/bin/perl -w
#Fehlerausgabe an den Browser
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $ausgabe=$ENV{'QUERY_STRING'};
my @werte = split (/&/, my $ausgabe);
foreach my $werte (my @werte)
{
(my $varmenu, my $varpool) = split (/=/, my $werte[0]);
}
#Dateiflock
use Fcntl qw(:DEFAULT :flock);
use constant LOCK_EX => 2;
print "Content-type: text/html\n\n";
Der Wert nach dem gesucht werden soll
my $eingabe = $varpool;
my @zeile=();
my $gefunden=0;
open (DATEI, "<@dir1[0]") or die "Kann Datei @dir1[0] nicht öffnen$!\n";
flock DATEI,LOCK_EX || die "Kann File nicht locken: $!";
while(<DATEI>) {
chomp;
@zeile=split(/\s*,\s*/, $_, 1);
if($eingabe eq $zeile[0]){
$gefunden=1;
last;
}
}
close(DATEI);
if($gefunden){
Ausgabe der zeile
print "$zeile[0] - zeile[1] - zeile[2] - zeile[3] - zeile[4]";
} else {
... oder nix da
print "Keine Daten gefunden";
}
print <<"Page_Done";
<HTML>
<HEAD><TITLE>Bandpoolabfrage</TITLE></HEAD>
<META CONTENT="300;HREF=http://131.0.3.52/ronny/www/cgi-bin/system/Auswahl.cgi">
<BODY bgcolor="c0c0c0">
<h2>Sie haben den Pool: "$varpool" Ausgewählt.</h2>
</BODY>
</HTML>
Page_Done
print "<p><h4>History erstellen mit den letzten: </h4></p>";
print "<p><h4>";
print "<input type=radio name=methode value=history5>5 Erstellten Textdateien<br>";
print "<input type=radio name=methode value=history10>10 Erstellten Textdateien<br>";
print "</h4></p>";
sub datei {
#################################################
Verzeichniss Auslesen nach txt Dateien
#################################################
$dir = '/usr/home/ronny/www/cgi-bin/system/';
@dir = ();
opendir DIR , $dir || die "Fehler: $!";
for (readdir(DIR)) {
next unless /.+.txt/i;
push @dir ,$_
}
closedir DIR;
@dir1=reverse(@dir);
#################################################
Verzeichniss Auslesen nach txt Dateien
#################################################
}
exit (0);