ungelöste Meldung durch use diagnostics (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-01-07 19:09:38
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online
2 Gäste

[thread]18022[/thread]

submit to reddit

ungelöste Meldung durch use diagnostics [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+31 replies
Auctioneer

2013-01-03 21:49
User since
2008-09-30
26 Artikel
BenutzerIn
Hallo, alles Gute im Neuen Jahr!

Nach erfolgreicher Behebung der mit 'use diagnostics;' festgestellten Ungereimtheiten in einem Auktionsscript ist einer übriggeblieben. Vielleicht weiss jemand von Euch, wie ich diesen noch weg bringe.

Es handelt sich um eine 'sub get_form_data' auch 'sub pasre_form_data' und ähnlich genannte Routine. Ich weiss, was sie macht, ich lasse mich daher nicht zu 'Erklärungen' hinreissen, die die Gurus unter Euch nur zum Lachen bringen würden. Dieses Ding wurde, mit kleinen Anpassungen, in ungezählten alten Perl-Scripts verwendet. Ich benutze im Uebrigen eine, die von einem versierten 'Einbrecher' erstellt wurde, ein vielfaches grösser ist und bislang alle Angriffsversuche erfolgreich überstanden hat. Trotzdem, auch diese Routine weist den genau gleichen 'Fehler' auf wie das Original, das ich nachstehend abdrucke.

Ich wäre froh, wenn jemand antworten könnte, wie ich das 'read' irgendwie initialisieren kann. Mit 'my' wird ja sowas nicht möglich sein.

Oder wäre es mit einer Ergänzung dieser Linie möglich ?
Code: (dl )

use vars qw(%config %category %form);
Besten Dank zum Voraus

Ernie

--
Code: (dl )

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); ## Linie 1186
--
Use of uninitialized value in read at auct.pl line 1186 (#1)
(W uninitialized) An undefined value was used as if it were already
defined. It was interpreted as a "" or a 0, but maybe it was a mistake.
To suppress this warning assign a defined value to your variables.

To help you figure out what was undefined, perl will try to tell you the
name of the variable (if any) that was undefined. In some cases it cannot
do this, so it also tells you what operation you used the undefined value
in. Note, however, that perl optimizes your program and the operation
displayed in the warning may not necessarily appear literally in your
program. For example, "that $foo" is usually optimized into "that "
. $foo, and the warning will refer to the concatenation (.) operator,
even though there is no . in your program.
--
[Thu Jan 3 21:20:33 2013] auct.pl: Use of uninitialized value in read at auct.pl line 1186.
--
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#-############################################# # Sub: Get Form Data # This gets data from a post. sub get_form_data { my $temp; my $buffer; my @data; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); foreach $temp (split(/&|=/,$buffer)) { $temp =~ tr/+/ /; $temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; $temp =~ s/[\r\n]/ /g; push @data, $temp; } foreach $temp (split(/&|=/,$ENV{'QUERY_STRING'})) { $temp =~ tr/+/ /; $temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; $temp =~ s/[\r\n]/ /g; push @data, $temp; } return @data; }
Never judge another men before you walk a mile in his shoes
- +14 replies
- FIFO
  
  2013-01-03 23:01
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Es gibt grob gesagt 2 Methoden, Formulardaten von einer HTML-Seite zu verschicken: GET und POST.
  Das Element $ENV{'CONTENT_LENGTH'} wird nur gesetzt, wenn der Formularversand mit POST geschieht, es gibt dann die Länge der Nachricht an.
  Bei GET steht die ganze Nachricht im 'QUERY_STRING'.
  Die get_form_data()-Funktion probiert zuerst die POST-Variante, dann die GET-Variante. Die Warnung erhältst Du wahrscheinlich, weil das Formular per GET abgeschickt wurde (im HTML-Quelltext zu erkennen: <form method="GET" ... >).
  
  Du wirst die Warnung los, indem Du prüfst, ob $ENV{'CONTENT_LENGTH'} existiert und gesetzt wurde:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  sub get_form_data { my $temp; my $buffer; my @data; if (exists($ENV{'CONTENT_LENGTH'}) and defined($ENV{'CONTENT_LENGTH'})) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); foreach $temp (split(/&|=/,$buffer)) { $temp =~ tr/+/ /; $temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; $temp =~ s/[\r\n]/ /g; push @data, $temp; } } foreach $temp (split(/&|=/,$ENV{'QUERY_STRING'})) { $temp =~ tr/+/ /; $temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; $temp =~ s/[\r\n]/ /g; push @data, $temp; } return @data; }
  
  Du musst beachten, dass ein Formular durchaus beide Methoden in einem Aufruf enthalten kann.
  
  Gruß FIFO
  
  edit/P.S.: Der Vollständigkeit halber sei mal erwähnt, dass diese Art der selbstgestrickten Formularverarbeitung fehleranfällig und selten wirklich schlau ist. Das (wahrscheinlich ohnehin eingebundene) CGI-Modul löst die Parameterübergabe zuverlässiger und stressfreier.
  
  Editiert von FIFO: exists() ergänzt
  Last edited: 2013-01-03 23:56:01 +0100 (CET)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +2 replies
  - pq
    
    2013-01-04 00:16
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das exists() ist aber unnötig, du fragst ja eh noch auf defined ab.
    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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - FIFO
      
      2013-01-04 15:52
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      danke, stimmt natürlich. Ist eine Angewohnheit aus dem Umgang mit mehrdimensionalen Hashes wg. Autovivification-Vermeidung.
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +10 replies
  - Gast Auctioneer
    
    2013-01-04 00:46
    Hallo zusammen,
    
    eingebaut, getetstet, Resultat: Fehler weg.
    Neues Problem:
    
    Code: (dl )
    
    Use of uninitialized value $form{"action"} in string eq at auct.pl line 291 (#1)
    
    Hier sollte doch meiner unmassgeblichen Meinung nach, FORM initialisiert werden.
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    #!/usr/local/bin/perl use CGI::Carp qw(fatalsToBrowser); BEGIN { open (STDERR, ">/home/j/www/whoever/cgi-bin/e/error.txt"); } use vars qw(%config %category %form); use strict; use diagnostics;
    
    Sämtliche elsif Zeilen sind davon betroffen.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    #-############################################# local %form = &get_form_data; if ($form{'action'} eq 'new') { &new; } ## Zeile 291 elsif ($form{'action'} eq 'repost') { &new; } elsif ($form{'action'} eq 'procnew') { &procnew; } elsif ($category{$form{'category'}}) { &displist; } .. .. .. else { &dispcat; } ## Zeile 309 #-#############################################
    
    ?
    Ernie
    Last edited: 2013-01-04 01:10:44 +0100 (CET)
    - +4 replies
    - bianca
      
      2013-01-04 07:11
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest Auctioneer
      Neues Problem:
      
      Code: (dl )
      
      Use of uninitialized value $form{"action"} in string eq at auct.pl line 291 (#1)
      
      Selbe Lösung, frag das erst auf defined ab bevor du weitere Abfragen machst.
      
      Guest Auctioneer
      Hier sollte doch meiner unmassgeblichen Meinung nach, FORM initialisiert werden.
      
      ACHTUNG: %form ist nicht gleich FORM!
      Und nur weil generell das Hash %form initialisiert ist heißt das noch nicht, dass auch der key $form{action} initialisiert ist. Das sind zwei verschiedene paar Schuhe.
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - Auctioneer
        
        2013-01-04 13:19
        
        User since
        2008-09-30
        26 Artikel
        BenutzerIn
        
        >>%form ist nicht gleich FORM<<
        
        ich habe das befürchtet, nur beginnt jetzt mein Problem, wie kann ich dieses lösen?
        
        Ernie
        Never judge another men before you walk a mile in his shoes
        
        bianca
        
        2013-01-04 14:22
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-01-04T12:19:30 Auctioneer
        >>%form ist nicht gleich FORM<<
        ich habe das befürchtet, nur beginnt jetzt mein Problem, wie kann ich dieses lösen?
        
        Hatte ich schon geschrieben. Mach bei allen Abfragen vorher eine Abfrage auf defined wie FIFO es gezeigt hat. Abfrage auf exists kann dann weg gelassen werden, die ist hier überflüssig. Ich benutze das exists auch eigentlich nur bei Gefahr von Autovivification. Das ist hier nicht gegeben, weil das Hash eindimensional ist.
        Und solange du den Variablennamen FORM nur hier im Text falsch schreibst und nicht im Script wird das keine Fehlerursache sein.
        Last edited: 2013-01-04 14:25:17 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2013-01-04 20:06
        
        User since
        2005-01-17
        14775 Artikel
        Admin1
        
        Splitted to Unbelehrbarkeit *war: ungelöste Meldung durch ....
        
        Original message by 'Gast':
        [quote]
        2013-01-04T12:19:30 Auctioneer
        >>%form is...
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - GwenDragon
      
      2013-01-04 15:00
      
      User since
      2005-01-17
      14775 Artikel
      Admin1
      
      Initialisiere die Variablen doch mal am Anfang des Programms.
      Statt
      
      Code (perl): (dl )
      
      use vars qw(%config %category %form);
      
      dann
      
      Code (perl): (dl )
      
      1 2 3
      
      my %config = (); my %category = (); my %form = ();
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - pq
        
        2013-01-04 15:32
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dadurch ändert sich nichts. ob ein hash nur deklariert wurde oder mit einer leeren liste initialisiert wurde, macht keinen unterschied.
        es geht um die werte im hash. es wird auf werte von nicht-existenten keys oder auf undefinierte werte zugegriffen.
        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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - Gast Gast
        
        2013-01-04 15:40
        
        2013-01-04T14:00:21 GwenDragon
        Initialisiere die Variablen doch mal am Anfang des Programms.
        Statt
        
        Code (perl): (dl )
        
        use vars qw(%config %category %form);
        
        dann
        
        Code (perl): (dl )
        
        1 2 3
        
        my %config = (); my %category = (); my %form = ();
        
        Was soll das bringen?
        Damit wird $form{'action'} immer noch nicht auf defined abgefragt.
        Last edited: 2013-01-04 16:08:14 +0100 (CET)
      - GwenDragon
        
        2013-01-05 17:57
        
        User since
        2005-01-17
        14775 Artikel
        Admin1
        
        Ja, der Rat von mir ist Mist. Das ändert nix an den Fehlermeldungen.
        
        Wenn ich mir den zugänglichen Quälcode des Auktionsprogramms ansehe, kann ich nur raten: Programmier' es selbst neu! Oder lass es machen. Das wird bestimmt stabiler und sicherer.
        Last edited: 2013-01-05 17:59:44 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GwenDragon
      
      2013-01-05 18:12
      
      User since
      2005-01-17
      14775 Artikel
      Admin1
      
      Bei den Hashwerten cvn form solltest du erst testen, ob die definiert (siehe http://perldoc.perl.org/functions/defined.html) sind und auch eine Länge > 0 (siehe http://perldoc.perl.org/functions/length.html) haben.
      
      Verständliches Beispiel:
      
      Code (perl): (dl )
      
      if ($form{'action'} eq 'new') { &new; }
      
      Das erspart dir Warnungen wegen nicht definierter oder leerer Werte:
      
      Code (perl): (dl )
      
      if (defined($form{'action'}) and length($form{'action'}) and $form{'action'} eq 'new') { &new; }
      
      Genauso kann möglichwerweise bei anderen Warnungen verfahren werden. Aber ohne den Quellcode genau zu kennen, ist das Jahrmarkswahrsagerei.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Auctioneer
    
    2013-01-04 00:55
    
    User since
    2008-09-30
    26 Artikel
    BenutzerIn
    
    Danke, es folgt noch ein Posting mit weiteren Details, sobald es freigegeben wurde, ich vergass, mich anzumelden.
    
    Die Fehlermeldungen werden eingetragen, sobald ich die Auktion mit der normalen url öffne, es wird eigentlich nur die Kategorieliste 'erpostet' mittels letztem Befehl der elsif, nämlich else 'dispcat' gruppe erstellt, und das ein post-befehl, meine ich.
    
    Wie gesagt, das Problem scheint von Anbeginn an 'mitgeschleppt' worden zu sein, meine zehnjährige Test-Vorlage ist ein Originalscript ohne modifikationen.
    
    Ernie
    Never judge another men before you walk a mile in his shoes
- GwenDragon
  
  2013-01-04 20:06
  
  User since
  2005-01-17
  14775 Artikel
  Admin1
  
  Splitted to Historie von Matt Wrights CGI *war: ungelöste Meldung durch ...
  
  Original message by 'Gast':
  
  Quote
  Das ist eine Funktion die Matt Wright irgendwann i...
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +15 replies
- rosti
  
  2013-01-05 17:53
  
  User since
  2011-03-19
  3500 Artikel
  BenutzerIn
  
  Hi,
  
  falls Du Interesse daran hast, das Ganze in PHP umgesetzt, modular und wartungsfreundlich aufgebaut betreiben zu wollen, um damit unabhängig von einem Perl-Hoster zu werden, melde Dich bei mir.
  
  --Rosti
  - +14 replies
  - Auctioneer
    
    2013-01-06 05:40
    
    User since
    2008-09-30
    26 Artikel
    BenutzerIn
    
    Herzlichen Dank, es bewegte sich etwas! Mit dem "if (defined($form{'action'}) ....." Ratschlag habe ich, bis auf eine Linie, alles weggebracht, bis auf
    
    elsif ($category{$form{'category'}}) { &displist; }
    
    wo er jetzt nachstehende Info liefert:
    
    [Sun Jan 6 03:04:53 2013] auction.pl: Use of uninitialized value $form{"category"} in hash element at auction.pl line 207.
    
    und ganz neu, weil ich vorher
    
    .........cgi-bin/eab/auction.pl?setup=1
    
    aufrief und jetzt nur noch
    
    .........cgi-bin/eab/auction.pl
    
    und somit keine variale übergeben wird.
    
    [Sun Jan 6 03:04:53 2013] auction.pl: Use of uninitialized value $form{"setup"} in string eq at auction.pl line 279.
    [Sun Jan 6 03:04:53 2013] auction.pl: Use of uninitialized value $form{"setup"} in string eq at auction.pl line 298.
    [Sun Jan 6 03:04:53 2013] auction.pl: Use of uninitialized value $form{"setup"} in string eq at auction.pl line 298.
    
    Offensichtlich scheint das Ding, mit dem '$form{'wasauchimmer'} generell eine Schwäche zu haben. Immerhin, die einzige Lösung dieses verbreiteten Problems, zumindest wenn man Google darüber fragt, habe ich jetzt hier gefunden.
    
    Zu den anderen Antworten und Anregungen:
    
    Irgendwer hat mir einmal empfohlen, doch auf ein Framework umzusteigen. Du empfiehlst mir jetzt gar PHP. Und dies auf einem Perl Forum, weshalb nicht einfach eine Java App für Iphone und Co?...
    
    Dazu: Ich vergeude einen Teil meiner Zeit damit, mit meinen wenigen Möglichkeiten zu versuchen, etwas mit zu erhalten, was sonst, für breitere Anwenderkreise zumindest, seit Jahren kontinuierlich den Bach runter zu gehen droht, nämlich Perl.
    
    Ich baue, oder versuche zumindest, Perl/HTML/CSS Source als moderne, transparente, brauchbare und kostenlose GPL/LGPL Anwendung für kleine und mittlere Web-Projekte zu schreiben, erstellt in einer Art und Form, dass der verwendete Source Code auch für Laien, sofern diese gutes HTML SOURCE Verständnis haben, lesbar, verständlich und somit auch editierbar bleibt.
    
    Dazu verwende ich eine Steinzeit-Software, die auch wenn sie, gemäss Aussagen vieler, zu nichts taugt, im vergangenen Jahrzehnt nicht nur in ungezählten Anwendungen und Formen zur Anwendung kam und teilweise noch im täglichen Einsatz ist, sondern als Vorlage und Basis-Source für hochpotente Anwendungen wie z.B. Ultimate Auction dienten.
    
    Ich besitze, buchstäblich, ein 2Giga Archiv mit allem Wichtigen aus den letzten 14 Jahren rund um die Software, sie war schliesslich eine der populärsten jener Zeit.
    
    Ein Spezialist hat jetzt den Auftrag, das Ding so zu 'frisieren', dass, aus Kompatilitäts-Gründen mit vielleicht existierenden, aber proprietären Add-On's, die fundamentale DB-Funktion prioritär bestehen bleibt, jedoch alles darum herum über indexierte Search/Sort/Routinen abläuft.
    
    Es dauerte 14 Tage und ungezählte Zeilen voller Ueberredungskunst und ich erhielt 14 verschiedene Script Versionen, die von einer simplen MySql Search-Routine bis zum vollen MySql-Einsatz gingen, von ihm als Muster zugestellt. Bis er begriff, dass ich mit dem Zeugs nichts anfangen konnte. Ganz einfach deshalb, weil all das mit dem bestehenden 'EA 1.5x Standard' nicht mehr kompatibel war. Als einer der 'dienstältesten' EA-Coder ist er allerdings mit dem Original Script innigst vertraut und hat noch 'Sachen' im Archiv, von denen ich (noch) träume...
    
    Deshalb hoffe ich, dass Ihr versteht, dass ich weder den Script neu schreiben möchte, noch am bestehenden Standard etwas ändern. So haben ALLE die Möglichkeit, bestehendes zu übernehmen oder neues in Bestehendes zu integrieren. Zurzeit existieren, gemäss meiner Webliste, so gegen 100 aktive Sites mit EA-Source generiertem Inhalt. Allein hier liegt schon ein Potential, das von meiner Neuauflage irgendwie profitieren kann. Natürlich englischspraching, übrigens meine bevorzugte Script Schreibart. Man lernt so immer noch dazu... ausser PERL.
    
    Vielleicht schafft es jemand, sich irgendwo im näheren oder weiteren Umfeld 20-40 Sponsoren mit so etwa 50 Euro pro Sponsor und Jahr gegen beste Plazierung in Form von, vom Sponsor auf Wunsch jederzeit selbst erstellbaren, Bild/Text-Ad's reinzuziehen. Mit diesem Etat, viel Esprit und natürlich einem eisernen Willen, täglicher Arbeit und langem Atem kann es klappen. Zumindest dann, wenn die Software das hält, was versprochen wird, und wenn Fehlerbehebung oder upgrades nicht in ein operationelles oder finanzelles Desaster ausmünden können.
    
    Es gab vor 10 Jahren schon Versuche bis 300'000 Einträgen mit Standard-DB, ich selbst bis zu 25'400 Artikel zu Testzwecken laufen hatte. An zwei Orten hatte ich vergessen, die Mail abzustellen und erst, als es losging, konnte ich den Script löschen. Etwa 30'000 kamen an...
    
    Heutige Serverpower und 'distributed' Indexing sind unsere Antworten zu Performance-Fragen und zur Vermeidung von MySql-DB Sicherheits-Problemen. Einfaches Handling, Not-Einsätze über FTP, das ist unser Konzept.
    
    Es gibt User- Kategorie- Artikel- und Gebots/Kauf- bezogene Indexe sowie einen Index für abgeschlossene Vorgänge.
    
    Die Benutzer Registrierdatei wird nicht mehr zur 'Anbieter-Erkennung' mit Unmengen von Artikel ID-Nummern aufgefüllt, sondern nur noch als, über Edit-Reg teilweise editierbare, Basis-ID Datei geführt.
    
    Titel, Untertitel, Beschreibungen, etc. werden html-mässig und bis zu frei definierbaren Kurzbegriffen: 'wie' 'so' 'was' 'wenn' 'ob' 'hat' 'sind' 'usw'., gefiltert abgespeichert.
    
    Ich erwarte von zukünftigen Benutzern, dass diese selbst Hand anlegen, um das Ding auf ihre Site optisch anzugleichen. Es sollte bei angewendeten HTML Design kein Problem sein, erstellte CSS Klassen am richtigen Ort einzubinden.
    
    Es ist vorgesehen, die verschiedenen Bereiche in, in sich, völlig autonome 'Runtime'- Pakete aufzusplitten, so zum Beispiel der Auktions- Ansichts- Bietvorgang eines Artikels oder die Benutzer-Registrations-Verwaltung. So würde z.B. der erste Registriervorgang eines Users Jeder Abteilung ihren EIGENE Userdatei im eigenen Subordner erstellen und der Script diesen Ordner als Basis--Datei handeln.
    
    Idiotisch?
    
    Nehmen wir mal an, ich möchte meinen EA Commerce-Script in eine bestehende Community Anwendung integrieren, ohne dazu viel mehr als zwei drei gute Zeile Code schreiben zu müssen.
    
    Dann müsste ich nur meinen Script anweisen, auch gleich die entsprechende(n) User-Datei(en) der Community Anwendung zu erstellen oder umgekehrt, eine Commerce Anwendungs User Datei der benötigten Anwendung zu erstellen. Welche auch immer, jede wird laufen, auch zukünftige, völlig autonom, jede für sich, aber mit fast null Aufwand, auch alle im Verbund.
    
    Persönlich finde ich, mit Ausnahme ganzer Seiten, Header, Footer, und so, HTML Templates für Scripte wie den meinen einen technischen Schwachsinn. Dazu, kein Mensch kann damit in Wirklichkeit viel anfangen, ohne wirklich zu wissen, was er(oder sie) macht. Ultimate Auction zum Beispiel hat mehr als 220 html templates, selbst für Einzeiler oder Knöpfe!!! Und da alles noch Source Code ist und kein Wysiwyg, kann sowieso niemand, der Source nich KANN, solches bearbeiten.
    
    Da bleib ich lieber bei 'print qq|', $variable ALIAS, PASSWORD und Co., damit Lernunfähige wie ich sich wenigstens etwas einfacher orientieren können. Was wir Greenhorns dafür nicht brauchen, sind nach hinten verschobene Code-Linien, die bei solch gestalteten Scripts irgend helfen sollen, die Orientierung nicht ganz zu verlieren.
    
    Nichts für ungut, aber für das, was Perl Newbie Sitebauer können, wissen und brauchen, taugt die Pro-Art der Programierung wenig oder ga nicht. Mal ganz abgesehen davon, dass jeder für sich in Anspruch nimmt, es am besten zu machen. Wenn (echte) Perl Programmierer Autobauer wären, würden wahrscheinlich bald einmal alle Rad fahren, weil alle Angst davor hätten, dass das Auto von niemand anderem je gefixt werden könnte, sollte mal was schief laufen...
    
    Auf der anderen Seite versieht man Scripts mit Headern und Texten, die mehr Lizenz-Content enthalten als der ganze Script gross ist. Interessieren tut's zwar kein Schwein, aber trotzdem macht es jede(r).
    
    Ich bin Praktiker. Beispiel: Ich schreibe grösste HTML Parts ohne jeden \n. Weshalb? Weil, wenn richtig 'vorcodiert', HTML fehlertolerant bis zum geht nicht mehr highspeed 'durchgewaschen' wird. Am schnellsten wäre es gar, aus ganzen Scripts einen Einzeiler zu machen...! Habs gelesen und auch probiert. Stimmt. Praktiker-erfahrung, nicht Theorie. (Ich hör Euch grollen)
    
    Mehr Zeit nehme ich mir beim Schreiben, manchmal. Wollte Euch zwar den Kopf nicht durchwaschen, aber trotzdem dem einen oder anderen etwas mitgeben. Versucht, fehlertolerant zu sein, wenn Leute wie ich, wie man bei den Funkern sagt, 'auf die QRG kommen'. Wenn ich mit Kindern spreche, versuche ich auch auf, diese technisch auf deren "Frequenzbereich" erreichen zu können. Viele von uns sind in Sachen Programmierung im frühen Kinderstadium. Und einige bleiben's wie ich. Wer aber diese als Perl-Erwachsene behandelt, schadet nicht ihnen, sondern letztlich, durch deren Abwandern auf anderes, der Sprache Perl. (Auch wenn jetzt solche reklamieren, es sei ja gar keine Sprache...)
    
    Bitte um Entschuldigung für die teils tölpelhaften Umschreibungen, ich kann's nicht besser. Wichtig ist doch nur, dass auch von Nichtgurus einigermassen verstanden wird.
    
    Alles Gute!
    Ernie
    Last edited: 2013-01-06 06:39:06 +0100 (CET)
    Never judge another men before you walk a mile in his shoes
    - +2 replies
    - rosti
      
      2013-01-06 09:46
      
      User since
      2011-03-19
      3500 Artikel
      BenutzerIn
      
      Moin,
      
      heutzutage muss alles schnell gehen. Nicht nur die Anwendung sondern auch das Entwickeln der Anwendungen. Seit über zehn Jahren im Geschäftsfeld Webentwicklung tätig, habe ich zu Letzterem jedoch nirgendwo eine Umgebung gehabt, die sonderlich produktiv ist. An diesem Fakt hat auch der Einsatz von Frameworks, egal ob für PHP oder Perl einschließlich derer IDE's nichts geändert. Programmierer werden regelrecht verheizt, nicht verwunderlich, denn draußen stehen die Schlange.
      
      An diesem Zustand sind wir im Grunde genommen selbst schuld, wir, das sind Programmierer, die ihre Sourcen offenlegen. Jede Lizenz ist doch ein Witz, wenn deren Verwendung nicht kontrolliert wird, was gerade in Sachen Software schon gar nicht möglich ist und so wie es aussieht ist das den meisten Unternehmern egal, solange der Kostenfaktor 'Programmierung' gering bleibt. Dabei hat sogar die Frage der 'Produktivität beim Entwicklen' eine untergeordnete Bedeutung, eben weil es so einfach ist, die Kosten aufgrund von OpenSource und Dumpinglöhnen zu senken.
      
      Ideen habe ich viele... gerade in Sachen Produktivität.
      
      Schönen Sonntag,
      Rosti
      - pq
        
        2013-01-06 15:23
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2013-01-06T08:46:54 rosti
        An diesem Zustand sind wir im Grunde genommen selbst schuld, wir, das sind Programmierer, die ihre Sourcen offenlegen.
        
        ich bin wirklich wirklich froh darüber, dass es vieles auf CPAN gibt, denn ich hätte echt keinen bock, das alles selbst zu implementieren und mir die dafür notwendigen specs durchzulesen.
        
        wer mal mehr als ein einfaches gästebuch programmiert hat, wird das in der regel ebenso sehen.
        
        es geht nicht in erster linie darum, dass die firma froh ist, dass sie geld spart, weil es ein modul gibt, sondern dass der entwickler oder die entwicklerin froh ist, dass es einen gibt, der sich mit den specs auseinandersetzt und dass das nicht in tausend firmen tausend entwicklerInnen parallel machen müssen (und alle ihre eigenen bugs einbauen).
        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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Gast Gast2
      
      2013-01-06 13:04
      
      statt
      
      Code (perl): (dl )
      
      elsif ($category{$form{'category'}}) { &displist; }
      
      dann
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      elsif ( defined($form{'category'}) and defined($category{$form{'category'}}) and length($form{'category'}) and length($category{$form{'category'}}) ) { &displist; }
      
      Last edited: 2013-01-06 13:26:15 +0100 (CET)
    - +3 replies
    - topeg
      
      2013-01-06 13:08
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Meinetwegen du bist Praktiker, dich interessiert nicht, ob eine Variable definiert ist oder existiert, sie hat einfach da zu sein. Aus dem Grund habe ich mich aus der Diskussion weitgehend heraus gehalten.
      Aber dann moser nicht herum wenn man dich darauf hinweist wie es besser ginge. Deine ganzen Probleme kommen nämlich durch deine Einstellung. "Egal wie es soll erst mal was machen. Egal was später kommt." Je weiter ein Programm fortschreitet um so wichtiger wird es dass man von Anfang an strukturiert programmiert hat.
      Direkt an deinem Beispiel. Warum sind die Werte in %form nicht definiert obwohl sie verwendet werden? An der Stelle, an der %form erstellt wird ist es halt sinnvoll diese mit Werten vor zu belegen, die immer sinnvoll sind, oder wenigstens keinen Fehler erzeugen können. Aber das geht halt über das erste "Es soll einfach was machen" hinaus. Oder weiter gedacht. Warum ist %form kein Objekt bei dem man Werte abfragen kann?
      Kleine Scripte sind schnell einfach mal geschrieben. Aber aus kleinen Scripten werden schnell riesige Programme, die dann mit den Problemen aus dem Scriptchen kämpfen. Es ist nicht sinnlos auf einen gute Schreibweise hinzuweisen. In 90% aller Fälle ist es völlig sinnlos aber die restlichen 10% machen einem richtig Arbeit, wenn man es nicht beachtet.
      
      Auch was die Formatierung betrifft. Sicher ist es in der Übertragung schneller wenn man alle "unnötigen" Zeichen weg lässt. Aber für die Programmierung und das bearbeiten ist es sehr Praktisch. Aus dem Grund hat man Hilfsprogramme, die aus dem Arbeitscode den Finalen erzeugen (oder das ist direkt im Programm eingebaut), und das ganze in eine kompakte Form bringen.
      
      Beim strukturierten Programmieren geht es darum dem Programmierer auf lange Sicht Arbeit zu ersparen. Es geht nicht darum irgend eine obskure Agenda zu verfolgen, oder anderen seine Denkweise aufzudrücken. Es geht darum zu helfen.
      
      Du beklagst dich dass wir den Code Hinterfragen und wie sinnvoll er ist. Wir Fragen weil wir sehen das du Probleme damit hast die wir nicht hätten. Einige machen Vorschläge wie man das Problem grundsätzlich lösen kann ohne an den Symptomen herum zu doktorn. Du willst es nicht, OK, aber rechne damit das wir dich immer wieder darauf hinweisen werden.
      Mal ehrlich wie viel Stunden hast du damit Verbracht alle Stellen aufzuspüren an denen "$form{...}" benutzt werden und diese zu prüfen. Es hätte sicherlich nicht länger gedauert das durch ein "$cgi->def_param(...)" zu ersetzen (ein gut definiertes suchen/ersetzen macht das auf einen Schlag). Mit einem passenden Objekt my $cgi = myCGI->new();. Auf Einmal hättest du all diese Probleme gelöst. Dann noch schnell ein:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      package myCGI; use parent CGI; sub def_param { my $self = shift; my $val = $self->SUPER::param( @_ ); return $val if defined $val; return ''; } 1;
      
      und du hättest nie wieder Probleme, du hast später auch noch mehr Möglichkeiten zu Prüfen was vom Client kommt. Ganz zentral ohne den rechtlichen Code verändern zu müssen.
      
      Aber daran bist du ja nicht interessiert, das hast du von Anfang an klar gemacht. Du willst lieber über all if( defined $form{...} ) schreiben. Das ist eine Praktiker Lösung. Das Problem da lösen wo es auftaucht und sich nicht zu fragen warum es überhaupt zu einem Problem kommt. Sicher das ist einmal schnell und einfach, aber dann macht du es noch einmal und noch einmal und und und ...
      
      Und das hat nichts damit zu tun das es ein schlechtes oder gutes Programm ist. Wir benutzen Programm die solche Flicken enthalten und benutzen sie gerne. Aber wir pflegen sie nicht wenn es nicht unbedingt nötig ist. Genauso fahre ich Autos von denen ich weiß das sie schlecht designend sind und ich fahre sie gerne. Das hält mich aber nicht davon ab mich über die Probleme zu ärgern. Z.B. habe ich mich darüber geärgert, das ich die komplette Front abschrauben musste um ein Fernlicht zu wechseln. Auch habe ich die Möglichkeit darüber nachzudenken wie man das besser lösen könnte.
      
      Und es ist ganz klar, Erweiterbarkeit und Pflegeleichtigkeit kosten immer Rechenzeit. Objekte sind langsamer als hoch integrierte Logik. Zusätzliche Abfragen und Funktionen kosten ein paar Takte, Strukturierter Code verbraucht mehr Speicher usw. Die Frage ist einfach wie wichtig ist das? Als ich anfing zu Programmieren habe ich einiges in Assembler und manchmal auch direkt in Maschinencode geschrieben um es sehr schnell und kompakt zu machen. Und das war auch nötig. Wenn ein Prozessor die Rechenleistung einer heutigen Digitaluhr hat dann muss man auf so was achten. Aber den Code kann ich heute nicht mehr lesen. Ich weiß bei machen nicht mal mehr ansatzweise was da passieren soll. Mit der Zeit wurde der Code immer lesbarer, auch weil die nötige Rechenleistung zur Verfügung stand. Ich könnte heute sicher Programme schreiben die 1000 mal schneller sind das das was ich normalerweise schreibe, aber es lohnt sich nicht. Viel wichtiger ist es das ich in drei Jahren noch weiß was im Code passiert. Wenn es mal darauf ankommen sollte, so optimiere ich eine Variante und ich weiß das die Reguläre in zwei Jahren das selbe leisten kann.
      - Gast Gast
        
        2013-01-06 13:35
        
        2013-01-06T12:08:51 topeg
        Meinetwegen du bist Praktiker, dich interessiert nicht, ob eine Variable definiert ist oder existiert, sie hat einfach da zu sein. Aus dem Grund habe ich mich aus der Diskussion weitgehend heraus gehalten.
        Aber dann moser nicht herum wenn man dich darauf hinweist wie es besser ginge. Deine ganzen Probleme kommen nämlich durch deine Einstellung. "Egal wie es soll erst mal was machen. Egal was später kommt."
        
        2013-01-04T14:07:32 GwenDragon
        Deine Antwort bring niemand weiter. Verkneif dir die Belehrungen an Auctioneer bitte, wenn du ihm nicht helfen willst.
        Wenn du seine alten Threads mitgelesen hättest, wüsstest du, dass er kein Perl-Profi ist.
        
        Last edited: 2013-01-06 13:45:38 +0100 (CET)
      - rosti
        
        2013-01-06 15:47
        
        User since
        2011-03-19
        3500 Artikel
        BenutzerIn
        
        hi Topeg,
        
        ich hätte auch noch eine Variante, wenn wir schon bei Perl sind: tie(): Der ganze Parameter-Salat wird damit an einen Hash gebunden und die Methode FETCH sorgt dafür, dass jede Abfrage, auch Abfragen auf nicht existierende Schlüssel, einen definierten Wert liefert. Ja, und dann gibt es noch das gute alte wantarray, interessant für den Fall, dass ein Parameter auch eine Liste von Werten liefern kann. Das Rad muss nicht neu erfunden werden, aber Du kannst es neu entdecken ;)
        
        Rosti
    - +4 replies
    - Gast Gast
      
      2013-01-06 13:09
      
      2013-01-06T04:40:30 Auctioneer
      Ich vergeude einen Teil meiner Zeit damit, mit meinen wenigen Möglichkeiten zu versuchen, etwas mit zu erhalten, was sonst, für breitere Anwenderkreise zumindest, seit Jahren kontinuierlich den Bach runter zu gehen droht, nämlich Perl.
      
      Setz Dich doch mal mit den Entwicklern unter
      http://sourceforge.net/projects/arh-gpl-auction/
      in Verbindung.
      Die wollen zwar nicht perl retten, arbeiten aber ebenso wie Du, mit dem EveryAuction Script.
      Last edited: 2013-01-06 13:26:09 +0100 (CET)
      - +3 replies
      - Auctioneer
        
        2013-01-06 17:21
        
        User since
        2008-09-30
        26 Artikel
        BenutzerIn
        
        >>Setz Dich doch mal mit den Entwicklern unter http://sourceforge.net/projects/arh-gpl-auction/ in Verbindung.<<
        
        Angela und ich kennen uns, übers Web, seit etwa 10 Jahren, leider hat sie diesen, wie auch alle ihre früheren Versuche, wieder eingestellt. Ich habe die letzte Ausgabe mal angesehen, aber es war auch wieder nichts als die Zusammenfassung der bekannten Add-On's, jeder in eigenen seiner Schreibart und Programmierform. Frei nach dem Motto, einer schönes Titelbild macht die halbe Action. Sowas altes reisst niemanden hinter dem Ofen hervor.
        
        Mit Hilfe von Mitgliedern dieses Forums konnte ich das kleine Problem lösen, dafür herzlichen Dank!
        
        Und bitte, nehmt meine Provokationen nicht allzu persönlich, es reizt mich halt einfach gelegentlich, den Blutdruck anderer etwas anzukicken, meistens kommt was dabei raus. Die Einen ärgern sich ab dem Arsch, Andere werden vielleicht so angespornt, zu zeigen, dass sie wirklich etwas können. Ich, als Top-Egomane, nehm dann das, was mir nützt.
        
        Ds war jetzt obersarkastisch, I know, but, eigentlich meinte ich es in manchen Dingen ernster, als einige vielleicht meinen. Und, dass ich manches mit Autos, Motoren und ähnlichem vergleiche, kommt daher, dass ich meine Kindheit zwischen Fahrzeugen, Tankstellen und Werkstätten verbracht und apäter auch einen entsprechenden Beruf erlernt habe. Als Praktiker. Der Siemens-Martin Hochofen Prozess, auch so ein hoch kompliziertes, für uns theoretisches, Schul-Wissen, hat in meinem späteren Berufsleben auch nie mehr eine Rolle gespielt, ein Motor muss einfach funktionieren, einsatzgehärtete oder nur hartverchromte Nocken hin oder her...
        
        if you know what I'm trying to tell you
        
        alles Gute
        
        Ernie
        
        ich habe fertig
        Never judge another men before you walk a mile in his shoes
        
        GwenDragon
        
        2013-01-06 18:12
        
        User since
        2005-01-17
        14775 Artikel
        Admin1
        
        Nachdem du das Problem lösen konntest, hättest du den Thread auch als gelöst markieren können (grüner Haken).
        ich mach das mal jetzt für dich. Das nächste Mal bitte selbst. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        topeg
        
        2013-01-07 01:12
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2013-01-06T16:21:12 Auctioneer
        Top-Egomane
        
        ToPeG-omane
        Ich bin gerührt. ;-)
    - pq
      
      2013-01-06 15:20
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2013-01-06T04:40:30 Auctioneer
      [keine templates]
      
      Da bleib ich lieber bei 'print qq|', $variable ALIAS, PASSWORD und Co., damit Lernunfähige wie ich sich wenigstens etwas einfacher orientieren können.
      
      ich habe genug von solchem schrott übernehmen müssen.
      ja klar, ein anfänger, der auch anfänger bleiben will, will es einfach haben.
      
      ein profi, der solchen code übernehmen muss, ist nur genervt, weil er gewohnt ist, code-änderungen viel schneller machen zu können, weil er gut aufgeteilt ist und das html sämtlich sauber in templates ausgelagert ist.
      der profi kann dank gut organisiertem code-design tests schreiben, so dass er bei änderungen diese automatisch laufen lassen kann.
      mit spaghetti-code verschwendet er nun stattdessen seine zeit. das ist ineffizient und macht zudem null spass.
      
      ein anfänger wie du kommt mit modernem code nicht klar, aber ich wette, du brauchst eben auch ein vielfaches an zeit, um features zu implementieren (und sie von hand zu testen).
      
      anfänger-skripte sind vielleicht von anfängern zeile für zeile leichter verständlich, aber um den ganzen code zu erfassen, braucht man viel mehr zeit.
      
      moderner code ist so ausgelegt, dass man möglichst viele teile in kleine subroutinen auslagert, idealerweise mit entsprechend guten namen.
      das verschafft einem eine gute übersicht, und bei bedarf springt man zu den subroutinen.
      
      im zweifelsfall sind in solchen amateur-programmen wie deinen eine ganze reihe sicherheitslücken.
      
      das sind alles sachen, die perl eben gerade nicht guttun.
      
      modernes perl setzt da auf ganz andere qualitäten, und ich persönlich würde nicht unterstützen, was du da machst, gerade weil mir perl wichtig ist.
      
      Quote
      
      Nichts für ungut, aber für das, was Perl Newbie Sitebauer können, wissen und brauchen, taugt die Pro-Art der Programierung wenig oder ga nicht. Mal ganz abgesehen davon, dass jeder für sich in Anspruch nimmt, es am besten zu machen. Wenn (echte) Perl Programmierer Autobauer wären, würden wahrscheinlich bald einmal alle Rad fahren, weil alle Angst davor hätten, dass das Auto von niemand anderem je gefixt werden könnte, sollte mal was schief laufen...
      
      wie begründest du denn das bitteschön?
      du bist perl-anfänger, nimmst aber für dich in anspruch, die art und weise von profis zu kritisieren?
      
      ich weiss nicht, wie du auf den autovergleich kommst, aber wenn du es so haben willst, dann bist du jemand, der unangeschnallt ohne licht im dunkel herumrast und sich sagt, wird schon gutgehen.
      
      sorry, aber nach deinem vergleich von echten perl-programmierern, da fühlte ich mich angesprochen, das lasse ich nicht auf mir sitzen.
      schau dich mal auf cpan um, wie viele tests da jedes modul hat.
      offensichtlich hast du davon aber keine ahnung, sonst hättest du den autovergleich nie gebracht.
      
      ich verstehe nicht, warum du das machst. nur weil einzelne hier dich nicht mit samthandschuhen anfassen, versuchst du nun, im gegensatz die profis niederzumachen? dann solltest du erstmal ahnung davon haben.
      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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - GwenDragon
      
      2013-01-06 15:29
      
      User since
      2005-01-17
      14775 Artikel
      Admin1
      
      Ich habe ja Verständnis dafür, dass alte Perl-programme am Leben erhalten werden. Aber modernes Programmieren lässt sich lernen, auch ohne Informatikdiplom, und wenn jemand älter ist.
      
      Als Webentwicklerin, die sich auch mal 2006 mit der Pflege eines YaBB-Forums, geschrieben in altem Perl, herum plagen musste, kann ich nur sagen: Moderne Programmierung erspart Arbeit und Ärger. Das Sichermachen, Erweitern und Ändern an solchem Uralt-Code mit Inline-HTML war grauenvoll -- und kostete dem Kunden mehr Zeit als nötig.
      
      An Oldtimern herumzubasteln mag Spaß machen, aber zum dauernden Rostlöcher zuspachteln und Rumflicken habt nicht jede Lust. Und ob das dann wirklich sicher ist?
      Das gilt auch für Uralt-Programmierung.
      Last edited: 2013-01-06 15:31:03 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - pq
      
      2013-01-06 15:40
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2013-01-06T04:40:30 Auctioneer
      Wenn ich mit Kindern spreche, versuche ich auch auf, diese technisch auf deren "Frequenzbereich" erreichen zu können. Viele von uns sind in Sachen Programmierung im frühen Kinderstadium. Und einige bleiben's wie ich.
      
      wir sind hier aber nun mal nicht im kindergarten, sondern es geht (in deinem fall) um code, der produktiv eingesetzt werden soll, und nicht um code, den du mit nach hause nimmst, deiner mami zeigst und sie ihn einrahmen lässt.
      
      oder lässt du kinder auch an deinem auto rumbasteln?
      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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2013-01-03 21:49.