suchen und vergleichen (Seite 10) (Datenbanken und Verzeichnisdienste)

[thread]3509[/thread]

suchen und vergleichen (Seite 10)

Kathrin

2005-01-17 20:59

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

an wem denn sonst ;-) wenn ich es nicht auf die reihe bekomme

esskar

2005-01-17 21:32

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Kathrin,17.01.2005, 19:59]an wem denn sonst ;-) wenn ich es nicht auf die reihe bekomme[/quote]
die Idee eines Praktikums ist es, ein Gefühl für die Arbeit in dem jeweiligen Betrieb zu bekommen und etwas ggf. auch etwas zu lernen. Um etwas zu lernen müssen die Ausbilder auch gewillt und kompetent genug sein, dem Praktikanten auch etwas beizubringen. Ist dies nicht der Fall, kann auch keine Leistung erbracht werden bzw. kann kein Lerneffekt zu stande kommen. Desweiteren bist du als Praktkant nicht dafür da, deren Arbeit zu schaffen von der sie selber keine Ahnung haben. Sowas nennt sich dann Ausbeutung. An deiner Stelle würde ich einfach hingehen und deinem Betruer erklären, dass du der Anforderung nicht gewachsen bist, da du der Meinung bist, dass dir keiner etwas beibringen möchte. Ist ggf. leichter gesagt als getan, aber die machen dir bestimmt keinen Kopf ab. Außerdem bin ich mir auch sicher, dass deine Bewertung nicht schlecht ausfallen wird; du hast schließlich ohne Vorwissen etwas auf die Beine gestellt. Zusätzlich haben sie auch nix davon, dir ne schlechte Bewertung zu geben. Wenn doch, dann war es der Laden eh nicht wert.

Darf ich fragen, wie alt du bist und was du vor deinem Praktikum mit Programmierung zu tun hattest?

Kathrin

2005-01-17 23:17

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

esskar du sprichst mir aus der seele ;-)
ich geb dir vollkommen recht! aber trotzdem würde ich gerne wollen, dass es noch läuft.
ich bin 21 und vor dem Praktikum hier haben wir letztes semester etwas C gelernt. Nächstes Semester wollen wir es vertiefen hats geheißen... Naja abwarten...

Und wie siehts aus kannst du mir nicht helfen?

2005-01-17 23:26

User since
2003-08-04
12209 Artikel
Admin1

kathrin, nutz die noch bleibende zeit und lies ein perlbuch, falls du das
nicht schon getan hast. wenn du das script von esskar nicht mal
ansatzweise verstehst, bringt dir das buch im endeffekt mehr.
(ich spreche aus erfahrung; als ich perl angefangen habe zu lernen,
hat mir der buchtipp das leben gerettet)
wenn du dich dahinterklemmst, hast du Programmieren mit Perl
im nu durch.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

esskar

2005-01-17 23:30

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ich bin zu nett...

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;

my $DBN = "DBI:mysql:produkte";
my $DBUSER = "lidos";
my $DBPASS = "lidos";
my $SCRIPT = "kathrin.pl";

my $cgi = CGI->new();

my $suchen=$cgi->param("suchen") || "";
my $such=$cgi->param("such") || ""; # zusätzlich
my $eintragen=$cgi->param("eintragen") || "";
my $eintr=$cgi->param("eintr") || "";
my $identnr=$cgi->param("identnr") || "";
my $head_de=$cgi->param("head_de") || "";
my $deutsch=$cgi->param("deutsch") || "";
my $head_en=$cgi->param("head_en") || "";
my $englisch=$cgi->param("englisch") || "";
my $head_fr=$cgi->param("head_fr") || "";
my $franz=$cgi->param("franz") || "";
my $check1=$cgi->param("check1") || "";
my $check2=$cgi->param("check2") || "";
my $check3=$cgi->param("check3") || "";
my $check4=$cgi->param("check4") || "";
my $ersteller=$cgi->param("ersteller") || "";
my $werk=$cgi->param("werk") || "";
my $doctyp=$cgi->param("doctyp") || "";
my $docname=$cgi->param("docname") || "";
my $auswahl=$cgi->param("auswahl") || "";

my $date = sub {
   my ($day, $mon, $year)= (localtime(time))[3..5];
   sprintf ("%04d-%02d-%02d",$year+1900,$mon+1,$day);
};


&main;

sub main
{
   &check_doctype();

   print $cgi->header(-type => 'text/html');

   if($eintragen)
   {
       if($eintr)
       {
           &eintragen();
           &ausgabe_eintragenerg();
       }
       else { &ausgabe_eintragenform(); }
   }
   elsif($suchen)
   {
       if($such) { &suchen(); }
       else { &ausgabe_suchenform(); }
   }
   elsif($auswahl) { &ausgabe_auswahl(); }
   else { &ausgabe_start(); }
}

sub ausgabe_auswahl
{
    print qq~<html>
        <head><title>Auswahl</title></head>
           <body>
           IdentNr: $identnr<br />
           DocName: $docname
           </body>
           </html>~;
}

sub suchen
{
   &ausgabe_fehler() unless &check_identnr($identnr);

   my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;
   my $statement_suchen="SELECT * FROM tbl0011990 where ident_nr = '$identnr' ORDER BY docname ASC";

   my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
   $sth_suchen->execute or die $DBI::errstr;

   my @daten = ();
   my @order = qw/identnr langtyp doctyp docname head langtxt datum ersteller werk check1 check2 check3 check4/;
   while (my @row = $sth_suchen->fetchrow_array())
   {
       my %hash;
       for(my $i = 0; $i < scalar @order; $i++)
       {
           $hash{$order[$i]} = $row[$i];
       }

       push @daten, \%hash;
   }

   &ausgabe_suchenerg(\@daten);

   $sth_suchen->finish();
   $dbh->disconnect();
}

sub ausgabe_suchenerg
{
   my ($daten) = @_;

   print "<html>\<n";
   print "<head><title>FORMULAR</title></head>\<n";
   print "<body>";
   print '<span style="font-size:20pt"><center><b>Bestellhinweis</b></center></span>';
   print qq~<form method="POST" action="$SCRIPT">~;
   print "<p>Ident-Nummer:";
   print '<input name="identnr" size="20" maxlength="15" value='.$identnr.'>';
   print '<input type="hidden" name="suchen" value="1" />';
   print '<input name="such" TYPE="submit" VALUE="Suchen">';
   print '<p>';
   print '<table border="1" rules="groups">
           <colgroup>
              <col width="50">
              <col width="80">
              <col width="300">
              <col width="50">
           </colgroup>
           <thead>
           <tr>
              <th>doc_typ</th>
              <th>doc_name</th>
              <th>headline</th>
              <th>&nbsp;</th>
           </tr></thead>
           <tbody>';
   foreach my $ptr (@{$daten})
   {

        print qq~<tr>
            <td>$ptr->{doctyp}</td>
            <td>$ptr->{docname}</td>
            <td>$ptr->{head}</td>
            <td><a href="$SCRIPT?auswahl=1;identnr=$identnr;docname=$ptr->{docname}">Auswählen</a></td>
        </tr>~;
   }
   print '</tbody></table>';
   print '<p><p><input type="button" value="Zurck" onClick="history.back()">';
   print "</form>
   </body>
   </html>";
}

sub ausgabe_suchenform
{
   print<<HTML;
   <html>
   <head></head>
   <body>
   <span style="font-size:20pt"><center><b>Dokumententyp: $doctyp</b></center></span>
   <form method="POST" action="$SCRIPT">
   <input type="hidden" name="suchen" value="1" />
   <p>Ident-Nummer:
   <INPUT name="identnr" size="20" maxlength="15" value="$identnr"></p>
   <INPUT name="such" TYPE="submit" VALUE="Suchen">
   </form>
   </body>
   </html>
HTML
}

sub eintragen_exe
{
   my ($sth, $langtyp, $head, $langtxt) = @_;

   $sth->execute($identnr,$langtyp,$doctyp,$docname,$head,$langtxt,$date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
}

sub eintragen
{
   &ausgabe_fehler() unless &check_identnr($identnr);

   my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;
   my $statement_insert="INSERT INTO tbl0011990 VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?)";
   my $sth_insert=$dbh->prepare($statement_insert) or die $DBI::errstr;

   &eintragen_exe($sth_insert, 'DE', $head_de, $deutsch) if $head_de;
   &eintragen_exe($sth_insert, 'EN', $head_en, $englisch) if $head_en;
   &eintragen_exe($sth_insert, 'FR', $head_fr, $franz) if $head_fr;

   $sth_insert->finish();
   $dbh->disconnect();
}

sub ausgabe_eintragenerg
{
   print "<HTML>\<n";
   print "<head><title>Neueintrag</title></head>\<n";
   print "<body>\<n";
   print "Ihr folgender Eintrag wurde gespeichert:\<n";
   print "<ul> \<n";
   print "<li>Ident-Nummer: <b>$identnr</b><br>\<n";
   print "<li>Doctype: <b>$doctyp</b><br>\<n";
   print "<li>Docname: <b>$docname</b><br>\<n";
   print "<li>HL auf Deutsch: <b>$head_de</b><br>\<n";
   print "<li>Ihr Text auf Deutsch: <b>$deutsch</b><br>\<n";
   print "<li>HL auf Englisch: <b>$head_en</b><br>\<n";
   print "<li>Ihr Text auf Englisch: <b>$englisch</b><br>\<n";
   print "<li>HL auf Französisch: <b>$head_fr</b><br>\<n";
   print "<li>Ihr Text auf Französisch: <b>$franz</b><br>\<n";
   print "Es betrifft die Maschinen <b>$check1, $check2, $check3, $check4</b><br>\<n";
   print "Erstellt wurde es vom <b>$ersteller $werk</b> am <b>$date</b><br>\<n";
   print '<p><a href="$SCRIPT">Weitere Bestellhinweise</a><p>';
}

sub ausgabe_eintragenform
{
   my ($text_de, $text_en, $text_fr) = ("", "", "");
   my ($chk_1, $chk_2, $chk_3, $chk_4) = ("", "", "", "");

   my $eintr = qq~<INPUT name="eintr" TYPE="submit" VALUE="Eintragen">~;

   if ($doctyp eq 'EI')
   {
       $text_de = qq~<br/><textarea name="deutsch" cols="50" rows="5">$deutsch</textarea>~;
       $text_en = qq~<br/><textarea name="englisch" cols="50" rows="5">$englisch</textarea>~;
       $text_fr = qq~<br/><textarea name="franz" cols="50" rows="5">$franz</textarea>~;
   }
   elsif ($doctyp eq 'SI')
   {
       $eintr = qq~Dokumentenname: <input size="15" name="docname" value="$docname">~;
   }


   $chk_1 = "checked" if $check1;
   $chk_2 = "checked" if $check2;
   $chk_3 = "checked" if $check3;
   $chk_4 = "checked" if $check4;

   print<<HTML;
   <html>
   <head></head>
   <body>
   <span style="font-size:20pt"><center><b>Dokumententyp: $doctyp</b></center></span>
   <form method="POST" action="$SCRIPT">
   <input name="eintragen" type="hidden" value="1">
   <input name="doctyp" type="hidden" value="$doctyp">
   <p>Ident-Nummer:
   <INPUT name="identnr" size="20" maxlength="15" value="$identnr"></p>
   <p>DE:<br>
   <input name="head_de" type="text" size="50" value="$head_de">$text_de</p>
   <p>EN:<br>
   <input name="head_en" type="text" size="50" value="$head_en">$text_en</p>
   <p>FR:<br>
   <input name="head_fr" type="text" size="50" value="$head_fr">$text_fr</p>
   <p>Betrifft Maschinen:
   <INPUT name="check1" TYPE="checkbox" VALUE="LHB" $chk_1>LHB</input>
   <INPUT name="check2" TYPE="checkbox" VALUE="LFR" $chk_2>LFR</input>
   <INPUT name="check3" TYPE="checkbox" VALUE="LWT" $chk_3>LWT</input>
   <INPUT name="check4" TYPE="checkbox" VALUE="LBH" $chk_4>LBH</input>
   </p>
   <p>Ersteller:
   <INPUT size="15" type="text" name="ersteller" value="$ersteller" readonly />
   <select onchange="ersteller.value=options[selectedIndex].value">
           <option value="">[Auswahl treffen]</option>
           <option value="M.Kapanke">M.Kapanke</option>
           <option value="G.Goettelmann">G.Goettelmann</option>
           <option value="T.Doppler">T.Doppler</option>
           <option value="F.Waldhart">F.Waldhart</option>
   </select>
   </p>
   <p>Werk:
   <SELECT name="werk" SIZE=1 ALIGN=left>
   <OPTION selected>$werk
   <OPTION>LHB
   <OPTION>LFR
   <OPTION>LBH
   <OPTION>LWT
   </SELECT>
   </p>
   <p>$eintr <input name="neu" type="button" value="Neu" onClick=location.href="$SCRIPT"></p>
   </form>
   </body>
   </html>
HTML
}

sub ausgabe_start
{
   print<<HTML;
   <html>
   <head></head>
   <body>
   <a href="$SCRIPT?eintragen=1">Eintragen</a><br />
   <a href="$SCRIPT?suchen=1">Suchen</a>
   </body>
   </html>
HTML
}

sub ausgabe_fehler
{
   print<<HTML;
   <html>
   <head></head>
   <body>
   Sie haben keine gültige Identnummer eingegeben.
   <p><input type="button" value="Zurück" onClick="history.back()"></p>
   </body>
   </html>
HTML
   exit;
}

sub check_doctype
{
   if($doctyp eq 'EI')
   {
       my $dbh = DBI->connect($DBN, $DBUSER, $DBPASS) or die $DBI::errstr;

       my $statement_select="SELECT docname FROM tbl0011990 where docname like ?";
       my $sth_select=$dbh->prepare($statement_select) or die $DBI::errstr;

       my $poss_docname=$identnr;

       $sth_select->execute($poss_docname) or die $DBI::errstr;
       my $i=1;
       my ($treffer)=$sth_select->fetchrow_array();
       while ($treffer)
       {
           $poss_docname = $identnr.'_'.$i;
           $i++;
           $sth_select->execute($poss_docname) or die $DBI::errstr;
           ($treffer)=$sth_select->fetchrow_array();
       }
       $docname =$poss_docname;
       $sth_select->finish();
       $dbh->disconnect();
   }
}

sub check_identnr
{
   return $_[0] =~ m/^\d{7,10}[AB]?$/;
}

ab jetzt beantworte ich aber nur noch konkrete fragen... und zwar nachdem ich deinen ansatz gesehen habe... ein es geht nicht genügt ab sofort nicht mehr

Kathrin

2005-01-17 23:30

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

pq ich blick da schon durch. wenn ich ein code vor mir hab, was jetzt nicht allzu zusammen gepresst ist, dann versteh ich es und ich kanns nachvollziehen. aber ich komm einfach nicht auf die Lösungsansätze!
Ich hab nicht gesagt dass ich esskars script nicht verstehe. Er hat es ja auch anfängerfreundlich geschrieben!!

Crian

2005-01-17 23:34

User since
2003-08-04
5873 Artikel
ModeratorIn

Ja, es führt einfach kein Weg daran vorbei, sich selbst in die Denkweisen der jeweiligen Programmiersprache, mit der man sich beschäftigt, hineinzuwühlen. Und dazu kann ich mich dem Tipp von pq nur anschließen. Das Kamelbuch mag zwar im Moment eine etwas abschreckende Dicke bekommen haben, aber vieles darin ist mehr Referenz. Fang einfach vorn an und wühl Dich durch die Teile, die Dich interessieren. Die werden dabei immer mehr, so war es bei mir jedenfalls.

Etwas anderes, dass sich imho nicht umgehen lässt, ist lerning by doing. Ausprobieren, was man gerade gelesen / gelernt hat bzw. nachlesen, was man gerade an Techniken braucht um das aktuelle Problem zu lösen. Dies ergänzt sich sehr gut, wenn man erstmal den Stein ins Rollen gebracht hat.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Kathrin

2005-01-17 23:41

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

Ich geb euch ja recht! Man sollte es selber können! Aber wenn man so sehr verzweifelt ist, und echt nur noch etwas winziges fehlt, dann sollte man wirklich etwas verständnis zeigen...

glaubt ihr mir macht es spaß hier euch auf den geist zu gehen?

Esskar erst mals vielen Dank. soll ich dir mal meine ansätze rüber mailen? Ich will nicht dass du denkst dass ich gar nichts mache und nur auf die lösungen warte!!

esskar

2005-01-17 23:42

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

poste sie doch einfach...
800 augen sehen mehr als 2

Kathrin

2005-01-17 23:49

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

hmmm da sind ziemlich blöde dabei... Und einige hier haben eh schon ein komisches bild von mir und wenn sie die sehen, dann bestätigt sich vielleicht noch ihr Gedanke ;-)
moment ich pass mal eins kurz deinem an...

View all threads created 2004-12-16 16:21.