Fehlerhafte Eingabe erzeugt 500 Error anstatt Scriptfehlermeldung (gelöst) (Allgemeines zu Perl) - Perl-Community.de

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

2024-04-26 23:15:33
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]17949[/thread]

submit to reddit

Fehlerhafte Eingabe erzeugt 500 Error anstatt Scriptfehlermeldung [gelöst]

[gelöst]

Tags: perl5 auction auktion everyauction Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

Teilbaum:
auf ungültige Zeichen prüfen (14 Artikel) 2012-12-03 15:34

+39 replies
Auctioneer

2012-12-01 02:58
User since
2008-09-30
26 Artikel
BenutzerIn
Hallo zusammen,

Perl Auktionsscript, Anmelderoutine: Benutzername besteht aus einem Wort.

Fehlermeldung meines Servers, wenn irrtümlich nach einem Wort ein Leerraum oder ein zweites Wort eingegeben wurde.

Er bringt diese Meldung nur, wenn irgend etwas gröberen Ausmasses nicht funzt wie falsches CHMODE...

So funktioniert natürlich auch dies nicht mehr:
use CGI::Carp qw(fatalsToBrowser);
BEGIN { open (STDERR, ">/home/........./error.txt"); }

und ich stehe im Regen...

---
Error message:
malformed header from script. Bad header=<table border=0 cellpadding=3 : auction.pl
---

So sieht es über dem HTML Startteil aus:

---
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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

# Cookie Login $config{'max_session_hours'} = 4; # Max session time before user must login again. $config{'crypt_salt'} = 'EJ'; # You should make this 2 char salt unique. local %form = &get_form_data unless %form; use vars qw/%cookie $loginalias $loginpassword/; my $cookieName = 'SessionCookie'; foreach my $rel(split /; /, $ENV{HTTP_COOKIE}){ next unless $rel=~s/^\Q$cookieName//; my($bufName, $bufVal) = split(/=/, $rel); $bufVal =~ s/%([a-fA-F0-9]{2})/pack("H2",$1)/eg; $cookie{$bufName} = $bufVal; } my %LOGIN; dbmopen(%LOGIN, 'Session_keys', 0644) or &oops('Cannot open login DBM keys.'); foreach(%LOGIN) { delete $LOGIN{$_} unless ($_ + $config{'max_session_hours'} * 3600 > time); } if($config{'regdir'} ne ''){ $form{loginalias} = ucfirst lc $form{loginalias}; my ($password, $undef) = &read_reg_file($form{loginalias}); if (lc $form{loginpassword} eq lc $password) { ($loginalias, $loginpassword) = setlogin(); } else { print "Location: $ENV{'SCRIPT_NAME'}\?action=reg\n\n"; } } untie(%LOGIN); if ($form{'LOGOUT'}) { foreach(%LOGIN) { delete ($LOGIN{$_}); } print "Location: $ENV{'SCRIPT_NAME'}?action=logout\n\n"; } # End Cookie Login #-######################################## # Print The Page Header # print "Content-type: text/html\n\n"; print $config{'header'};
---

und hier ist das verify-login sub:

---
Code: (dl )

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

#-######################################## # Sub: Verify a secure login sub verify_login { if ($loginalias ne '') { my($password, $undef) = &read_reg_file($loginalias); &oops('You must enter a valid username and password') unless ($loginpassword ne ''); &oops('Incorrect username or password.') unless ($loginpassword eq crypt((lc $password), $config{'crypt_salt'})); $form{'ALIAS'} = $loginalias; $form{'PASSWORD'} = $password; #print "($loginalias)($password)"; return 1; }else{ &login_form; return ''; } } #-########################################
---

Ich such nun eine Lösung in Form einer OOPS Fehlermeldung anstelle des blöden 500 Errors auf der Seite, wie dies bei allen anderen fehlerhaften Eingaben auch der Fall ist, so ungefähr wie:

---
&oops('You must enter a one word username') unless ($loginalias ..ne oder eq.. '???');
---

Es kann sein, dass dieser Fehler immer schon existiert hat, aber noch nie von jemandem speziell erwähnt wurde. Ist auch schon länger her, dass die Login-Routine entwickelt worden ist...

Herzlichen Dank

Ernie

http://www.everyauction.info/cgi-bin/c/auction.pl?action=login
Last edited: 2012-12-01 03:09:35 +0100 (CET)
Never judge another men before you walk a mile in his shoes
- bianca
  
  2012-12-01 05:46
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Ich sehe die sub oops{} nicht. Zeig mal, was die genau macht.
  10 print "Hallo"
  20 goto 10
- rosti
  
  2012-12-01 09:19
  
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  
  Hallo,
  
  Dein Code ist grausig, da empfehle ich eine Kompletterneuerung oder noch besser, gleich ein richtiges Framework.
  
  http://rolfrost.de/
- +36 replies
- FIFO
  
  2012-12-01 11:02
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Hi,
  
  es ist schwierig, Deinen Code zu lesen. Das liegt 1. an fehlender Strukturierung/Einrückung und 2. an ungünstig verwendeten Konstruktionen (insbesondere mit unless).
  Man kann auch nicht erkennen, womit denn $config{'header'} gefüllt wird. Die Fehlermeldung legt ja nahe, dass irgendwie HTML body content darin landet.
  
  Du verwendest foreach falsch: Wenn Du foreach(%hash) { ... } schreibst, macht Perl aus dem Hash eine flache Liste (key1, value1, key2, ...) und iteriert über diese Liste. Wenn Du über die Hash-Keys iterieren willst: foreach(keys %hash) { ... }.
  
  Funktionen besser ohne & aufrufen, es sei denn, Du weißt genau, was Du willst.
  
  Viele Konstruktionen sind unübersichtlich oder irreführend.
  
  Quote
  local %form = &get_form_data unless %form;
  
  Quote
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  sub verify_login { if ($loginalias ne '') { my($password, $undef) = &read_reg_file($loginalias); &oops('You must enter a valid username and password') unless ($loginpassword ne ''); # ... return 1; }else{ &login_form; return ''; } }
  
  unless $foo ne 'bar'?? Lesbarer so (globales $loginalias ist auch Käse, besser als Argument mitgeben):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  sub verify_login { my $loginalias = shift; if ($loginalias eq '') { login_form; return ''; } my($password, $undef) = read_reg_file($loginalias); oops('You must enter a valid username and password') if $loginpassword eq ''; # ... return 1; }
  
  Wenn Du Code postest - insbesondere wenn es Deinem kommerziellen Interesse dient - solltest Du ihn so präsentieren, dass er angenehm zu lesen ist, sonst macht das Helfen keine Freude.
  
  Editiert von FIFO: eq korrigiert
  Last edited: 2012-12-01 11:14:39 +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"
  - +35 replies
  - Auctioneer
    
    2012-12-01 14:18
    
    User since
    2008-09-30
    26 Artikel
    BenutzerIn
    
    Besten Dank für die Antworten, vielleicht habe ich mich unpräzise ausgedrückt.
    
    Ich habe keine kommerziellen Interessen, und ich habe die Software nicht geschrieben. Ich kenne Perl nur relativ oberflächlich. Allerdings laufen (EveryAuction) basierende Scripts seit 10 Jahren und mehr völlig problemlos, auch wenn Teile davon von Leuten programmiert wurden, die vieleicht von Perl auch nur rudimentär etwas verstanden haben. Ich möchte daher keine Grundsatz-Diskussion 'lostreten', sondern einfach eine kurze Antwort auf meine Frage:
    
    Ich suche eine Routine (regex?), die feststellt, ob ein Benutzername eine 'Leerstelle' entält, und eine entsprechende Fehlermeldung erzeugt, wenn dies der Fall ist.
    
    Mehr nicht. Wenn jemand weiss, wie man einen solchen regex schreibt, bin ich dafür dankbar. Wenn nicht, kein Problem!
    
    no offense!
    
    Ernie
    Never judge another men before you walk a mile in his shoes
    - +18 replies
    - GwenDragon
      
      2012-12-01 14:27
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      if ($loginname =~ /\s/) { # Benutzername enthält mindestens 1 Leerzeichen # dann entweder ungültige Zeichen rausnehmen #$loginname =~ s/\s//g; # oder fehlermeldung error('Loginname enthält ungültige Zeichen'); } else { # hier mit login weiter }
      
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +2 replies
      - Gast DerGast
        
        2012-12-01 14:54
        
        Der Code löst aber nicht das Problem von weiteren Sonderzeichen im Namen.
        Aber gut - das wollte er ja auch garnicht wissen ;-)
        Last edited: 2012-12-01 14:58:33 +0100 (CET)
        
        GwenDragon
        
        2012-12-01 15:00
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Hast ja Recht, der Loginlink meckert auch mit einem 500er bei anderen Zeichen als Name.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +15 replies
      - Auctioneer
        
        2012-12-01 16:06
        
        User since
        2008-09-30
        26 Artikel
        BenutzerIn
        
        2012-12-01T13:27:02 GwenDragon
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        if ($loginname =~ /\s/) { # Benutzername enthält mindestens 1 Leerzeichen # dann ungültige Zeichen rausnehmen #$loginname =~ s/\s//g; } else { # hier mit login weiter }
        
        Herzlichen Dank, mein Problem ist damit gelöst. Das Problem war, dass jede Fehlermeldung automatisch einen Server-Fehler zur Folge hat, weil ich mich mit der LOGIN-Routine noch 'oberhalb' des eigentlichen 'Programm-Teils' befinde, und somit Fehlermeldungen, seien es ERROR oder OOPS, noch gar nicht ausgeführt werden können.
        
        Mit der von mir nun leicht gekürzten Version erkennt der Script einfach einen falschen Benutzernamen und reagiert somit, wie gewünscht, ohne Fehlermeldung, indem er den fehlerhaften Anmeldeversuch so einfach ignoriert.
        
        Einen schönen Tag!
        
        Ernie
        
        PS. Wer englisch kann und echte(r) Perl-Guru(in) ist, könnte sich sogar ein nettes Zubrot verdienen, indem er (sie) mir hilft, mein EveryAuction Projekt, unter gebührender Berücksichtigung (alter) existierender EA Standards, auf einen Perl-technisch erstklassigen Standard zu bringen.
        
        Ich bin pensioniert, habe Zeit und Mittel, und ich habe has weltweit umfassenste EveryAuction-Source-basierende Archiv.
        
        Mein Ziel ist es, Teile einer kompletten Suite wie zum Beispiel mein Uraltprojekt:
        
        http://gratis-anzeiger.com/
        
        basierend auf EveryAuction Source, als kostenloses LGPL Engine anzubieten. Funktionsfertig und betriebsbereit, aber optisch relativ karg und vielleicht so etwa wie:
        
        http://www.everyauction.info/cgi-bin/c/auction.pl?
        
        WESHALB mach is sowas?
        
        Die Idee EveryAuction ist geil! Und zwar deshalb, weil auch Programmieridioten wie ich mit EveryAuction in der Lage sind, nicht zu verstehen, wie sowas funzt, sondern auch noch eigenes auszuprobieren, und so zu lernen, wie man programmiert.
        
        Ich spiele seit 13 Jahren, zum Zeitvertreib und aus reinen Vergnügen, mit EveryAuction Software. Ich betreibe dazu URL's, die zu nichts anderem dienen als zum Testen meiner Spielereien. Nebenbei unterstütze ich weltweit Benutzer von EveryAuction Source, so auch Makebid Software von Richard Thomas.
        
        Es liegt mir viel daran, diese Perl Software weiterhin aktiv zu supporten. Ich habe sehr viel dabei gelernt, aber ich kenne meine Grenzen. Meine Kunst besteht darin, solange an einem Problem zu arbeiten, bis ich es gelöst habe. Perl schreiben kann ich zwar nicht, aber kopieren und abändern, darin gehör ich zu den grössten...
        
        ...deshalb brauche ich auch so ein grosses Archiv, und deshalb suche ich noch Spezialisten, die aus rechenintensiven Perl Bastler-Routinen effiziente 1- oder 2-Zeiler zu machen imstande sind.
        
        Das mich solches ggfls. auch etwas kostet wird und darf, ist selbstredend.
        Never judge another men before you walk a mile in his shoes
        
        +14 replies
        
        GwenDragon
        
        2012-12-01 17:18
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Ich finde gut, dass du die Auktionssoftware pflegen willst. ein Softwarearchiov betreibst und anderen Anwendern hilfst, und dir viel Zeit dafür nimmst. Respekt!
        
        Wenn du Hilfe suchst und weniger oder mehr bezahlen willst, poste doch bitte eine Anfrage ins Board Stellenangebote und Stellensuche. Es findet sich immer jemand, der dir schnell und kompetent helfen kann.
        
        Ansonsten kannst du auch mein dein Auktions-etc.-Projekt vorstellen im Board Projekte.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +13 replies
        
        Auctioneer
        
        2012-12-02 18:24
        
        User since
        2008-09-30
        26 Artikel
        BenutzerIn
        
        2012-12-01T16:18:37 GwenDragon
        Ansonsten kannst du auch mein dein Auktions-etc.-Projekt vorstellen im Board Projekte.
        
        Herzlichen Dank für den Hinweis. Möchte aber keine schlafenden Hunde wecken, deren Gekläffe brauch ich wirklich nicht mehr. Ich werde noch genug damit konfrontiert, wenn ich in meinem Archiv gelegentlich wieder auf alte EA Foren-Threads stosse, die ich bis dato noch nicht 'gereinigt' habe von dem Mist.
        
        Ich hatte immer Mühe, zu verstehen, weshalb es in jedem Foren mit Einzelnen immer wieder kracht. Viele Wege führen nach Rom, auch im Scripting. Und nur, weil ich etwas, auf den ersten Blick, nicht verstehe, muss es nicht unbedingt schlechter sein als das, was ich darüber zu wissen glaube.
        
        Ich mach das Zeugs jetzt so lange, trotzdem nützt mir eine Information, ich würde z.B. 'foreach' und so falsch formulieren oder solle einen 'HASH' schreiben und irgendwo einsetzen, in keinster Form. Ich habe ja die Formel nicht geschrieben, und so, aus dem Ganzen 'gerissen', weiss ich nicht, was ich mit einem 'Umbau' in der Konsequenz vielleicht anrichte...
        
        Eine Linie mit Inhalt, das verstehe ich, ich kann sie sogar ggfls. entziffern. Wie aber diese Linie, ausgenommen es ist eine REGEX Linie, vielleicht heissen mag, das weiss ich nicht.
        
        Das ist ja genau das Schöne mit EveryAuction. Ich hatte in den neunziger Jahren die genze Pallette von damals erhältlichen Perl/CGI-Scripts, aber nichts davon wwar auch nur annähernd so transparent aufgebaut wie dieser kleine Script. Ich hatte vor mehr als 50 Jahren mit Algebra nichts am Hut, alles, was nicht mit absoluten Werten zu tun hatte, war und blieb mir absolut fremd.
        
        Heute weiss ich, was eine $Variable ist, ich weiss wie man sortiert, ein einfacheres SUB mit irgendwelchem Inhalt erstellt. Eine $variablen-Linie ist eine $variablen-Linie. Und so weiter und so fort.
        
        Komisch dabei ist, dass das Zeugs, was ich baue, meistens zuletzt auch noch funktioniert.
        
        Ich bin also so wie wahrscheinlich 99 Prozent der Personen, die eine Seite wie diese besuchen, um vielleicht Hilfe für ein spezifisches Problem zu suchen, dass sie nicht selber lösen können.
        
        Wenn von diesen 99 Prozent dann 99 Prozent auf ein 'wunderschönes' PHP User Forum abwandern, und sich nie mehr mit Perl beschäftigen werden, dann liegt es vielleicht auch daran, dass auf Perl-Foren vielfach zuviel Fach-Wissen erwartet oder gar vorausgesetzt wird.
        
        Wenn ich kein Benzin mehr habe, will ich ja auch nicht wissen müssen, ob mein Motor ein Einspritzer oder ein Saugmotor ist. Ich möchte lieber wissen, wie und mit was ich den Tankdeckel öffnen kann.
        
        Nichts desto trotz, besten Dank!
        Ernie
        Last edited: 2012-12-02 18:33:02 +0100 (CET)
        Never judge another men before you walk a mile in his shoes
        
        topeg
        
        2012-12-02 19:54
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Sieh es mal so. Wir wollen dir zeigen wie du Tankdeckel selber finden kannst. Es mag dir zwar jetzt helfen, wenn wir sagen wo der Tandeckel an einem Volvo ist. Wenn du das nächste mal mit einem BMW unterwegs bist wirst du hier wieder fragen. Und dann wenn du ein Mercedes fährst oder bei einem Porsche oder bei einen Fiat. Nach dem Dritte mal wird es nervig, findest du nicht? Da ist es doch einfacher zu wissen wie man generell einen Tankdeckel findet.
        Hilfe zur Selbsthilfe ist das Motto.
        
        +4 replies
        
        hlubenow
        
        2012-12-02 21:06
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2012-12-02T17:24:35 Auctioneer
        Ich mach das Zeugs jetzt so lange, trotzdem nützt mir eine Information, ich würde z.B. 'foreach' und so falsch formulieren oder solle einen 'HASH' schreiben und irgendwo einsetzen, in keinster Form. Ich habe ja die Formel nicht geschrieben, und so, aus dem Ganzen 'gerissen', weiss ich nicht, was ich mit einem 'Umbau' in der Konsequenz vielleicht anrichte...
        
        Komisch dabei ist, dass das Zeugs, was ich baue, meistens zuletzt auch noch funktioniert.
        
        Ich bin also so wie wahrscheinlich 99 Prozent der Personen, die eine Seite wie diese besuchen, um vielleicht Hilfe für ein spezifisches Problem zu suchen, dass sie nicht selber lösen können.
        
        Wenn von diesen 99 Prozent dann 99 Prozent auf ein 'wunderschönes' PHP User Forum abwandern, und sich nie mehr mit Perl beschäftigen werden, dann liegt es vielleicht auch daran, dass auf Perl-Foren vielfach zuviel Fach-Wissen erwartet oder gar vorausgesetzt wird.
        
        Wenn ich kein Benzin mehr habe, will ich ja auch nicht wissen müssen, ob mein Motor ein Einspritzer oder ein Saugmotor ist. Ich möchte lieber wissen, wie und mit was ich den Tankdeckel öffnen kann.
        
        Also, ich kann das ganz gut verstehen. Dein Code soll einfach laufen, Du möchtest hier und da eine Zeile ändern, aber ob das auch im Sinne von Programmierung gut formuliert ist, ist Dir nicht wichtig, Hauptsache es läuft. Warum nicht?
        Allerdings bringt nicht jeder, der hier eine Frage stellt, diese eher für Anwender typische Einstellung mit. Viele, vielleicht die meisten, wollen eben auch die Grundlagen der Sprache lernen.
        Insgesamt denke ich ist Perl selbst, aber auch das Forum hier, noch recht tolerant gegenüber nicht allzu sauber formuliertem Code. Aus leidvoller Erfahrung weiß ich, daß es in der Hinsicht noch ganz andere Programmierforen mit einem erheblich raueren Umgangston gibt.
        
        +3 replies
        
        Gast Auctioneer
        
        2012-12-04 03:26
        
        Was ich versuche, ist nur, Verständnis dafür zu erwecken, dass 'Fachausdrücke' halt meistens nur für 'Fachleute' eine klare Aussagekraft haben. Mich jedenfalls erinnert Array an eine Richtantenne, ein Begriff aus früheren Berufszeiten, Hash an etwas zu rauchen und String etwas, womit Damen ihre Blössen betonen.
        
        Nichts desto trotz, es kommt je letztlich nicht darauf an, ob man die Namen kennt, solange man weiss, welche Funktion und Eigenschaft die 'Routinen' und 'Module' haben. Alles andere ist BASIC-ähnliche Programmierlogik.
        
        So bitte ich um Verzeihung inm Namen aller Perl-Dummies wie mich. Auch wenn wir nie wissen, ob es ein HASH oder ARRAY ist, wenn es ein @ dabei hat, ist es sicher ein HASH! Oder doch nicht?
        
        Es war mir grad so...
        
        Ernie
        Last edited: 2012-12-04 03:27:54 +0100 (CET)
        
        lichtkind
        
        2012-12-04 03:36
        
        User since
        2004-03-22
        5679 Artikel
        ModeratorIn + EditorIn
        
        ist doch alles gut,
        manche fachbegriffe rutschen uns so raus, weil es die normale umgangssprache ist, aber es geht ja oft auch ohne, und dannmach ichs zumindest gern, nur manchmal gibts kein deutsches wort für.
        
        Naja ganze hashes fangen mit % an, wenn nur ein einen Wert draus habe willst der unter einem schlüssel abgeelegt ist (Value) dann ist ein $ davor wenn mehrere auf einmal haben willst @. in perl 5 agt die sigil nichts über den typ der variable sondern welcher art die werte sind die der ausdruck abgibt, der sich ja in jeden kontext casten last
        
        Code (perl): (dl )
        
        %{ ... }
        
        casten ist schon wieder so ein wort, man könnte uach umwandeln sagen, klar aber wenn ich casten sage wissen viele gleich schon um welche art der umwandlung es geht. :)
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        topeg
        
        2012-12-04 09:05
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Du willst nicht mit Fachbegriffen belästigt werden, aber spezifische Wörter, die einen ganz bestimmten Sachverhalt oder ein bestimmtes Objekt beschreiben, gehören zu einer Sprache nun mal dazu. Es ist unmöglich etwas ohne sie zu beschreiben oder zu erklären.
        
        Natürlich könnte ich versuchen alle Fachbegriffe zu umschreiben. Zu Hash könnte ich auch "Wort indizierte Liste aus Wertepaaren" sagen. Wobei man "indiziert" auch als Fachbegriff sehen kann und "Liste" ebenso. Aber Umschreibungen können leicht missverstanden werden, da sie nie ganz korrekt sind.
        
        Und wie viel Vorwissen sollen wir voraussetzen. Du wärst sicher beleidigt wenn wir jeden Beitrag so schreiben würden:
        Quote
        Du hast so Tasten vor dir mit Buchstaben und Zahlen und seltsamen anderen Zeug. Suche dort das "I" und drücke es danach macht du das selbe mit "F" nun drückst du die breite schmale Taste ...
        Ich zumindest gehe davon aus dass die Grundzüge der Sprache und deren Begriffe bekannt sind. Unbekannte Begriffe können mit einer kurzen suche im Internet ermittelt werden.
        
        Du kannst es nicht von mir verlangen jedem neuen Besucher eine vollständige Einführung in Perl zu geben um sicher zu sein, dass er alle Fachbegriffe kennt. Du wendest dich nun mal an Fachleute. Das diese Fachbegriffe verwenden ist nicht verwunderlich.
        
        Ich kann ja verstehen das du nur eine Lösung haben willst und nun mit Fachwörtern belästigt wirst. Aber wenn du du die Fachwörter nicht kennst wie willst du dann eine gute Umschreibung deines Problems geben.
        
        +7 replies
        
        FIFO
        
        2012-12-02 21:39
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        2012-12-02T17:24:35 Auctioneer
        Ich hatte immer Mühe, zu verstehen, weshalb es in jedem Foren mit Einzelnen immer wieder kracht. Viele Wege führen nach Rom, auch im Scripting. Und nur, weil ich etwas, auf den ersten Blick, nicht verstehe, muss es nicht unbedingt schlechter sein als das, was ich darüber zu wissen glaube.
        
        Ich mach das Zeugs jetzt so lange, trotzdem nützt mir eine Information, ich würde z.B. 'foreach' und so falsch formulieren oder solle einen 'HASH' schreiben und irgendwo einsetzen, in keinster Form. Ich habe ja die Formel nicht geschrieben, und so, aus dem Ganzen 'gerissen', weiss ich nicht, was ich mit einem 'Umbau' in der Konsequenz vielleicht anrichte...
        
        (...)
        
        Ich bin also so wie wahrscheinlich 99 Prozent der Personen, die eine Seite wie diese besuchen, um vielleicht Hilfe für ein spezifisches Problem zu suchen, dass sie nicht selber lösen können.
        
        Naja, Du machst ein langes Posting mit einer wortreichen Problembeschreibung und einem unübersichtlichen und langen, aus dem Kontext gerissenen Codeabschnitt.
        Dieser enthält Programmierfehler (nicht Formulierungsfehler). Du erwähnst mit keinem Wort, dass das nicht Dein Code ist. Dann bist Du beleidigt, wenn man Dich auf Fehler hinweist.
        
        Es wird viel über den Umgangston in den Antworten der Foren geschrieben.
        Aber auch der Fragesteller ist in der Pflicht, die Zeit/Energie der anderen nicht zu verschwenden und sich über die Formulierung der Frage auch Gedanken zu machen.
        
        Deine Frage war eigentlich nur: "Wie erkenne ich, ob ein String Leerzeichen enthält?" (Warum fragst Du das nicht einfach?)
        Eine Zeile. Antwort: "Nimm einen Regulären Ausdruck und suche nach \s."
        Ebenfalls eine Zeile. Das Durchwursteln durch Deinen Code hätte man sich ersparen können.
        
        Dass ein Skript irgendwie jahrelang gelaufen ist, heißt nichts, mir graut es vor dieser - urdeutschen - Mentalität.
        
        Gruß FIFO
        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"
        
        +6 replies
        
        Gast Auctioneer
        
        2012-12-04 03:27
        
        ich bin Schweizer. Seit etwa 1845. Abstammung Lauban, Niederschlesien, Herzogtum Preussen.
        Last edited: 2012-12-04 03:37:36 +0100 (CET)
        
        +5 replies
        
        FIFO
        
        2012-12-04 09:43
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Guest Auctioneer
        ich bin Schweizer. Seit etwa 1845. Abstammung Lauban, Niederschlesien, Herzogtum Preussen.
        
        Glückwunsch zu Deinem hohen Alter! Der flotte Ton Deines Ursprungs-Postings ließ auf jemand jüngeres schließen. Dieser Tonfall verschleierte auch, dass hier kein "Fachmann" fragte. Ich hätte weniger an Grundwissen vorausgesetzt, hättest Du klar geschrieben, dass Du von (Perl-)Programmierung wenig Ahnung hast.
        Allerdings ist mir dann schleierhaft, wie Du ein Perl-basiertes Softwaresystem "betreuen" oder gar weiterentwickeln willst.
        
        Apropos deutsche Mentalität (preußisch passt ja ebenfalls):
        
        Der Absturz der ersten ARIANE 5 im Jahre 1996 ist auf ein ungeprüftes Übernehmen von Software der Ariane 4 zurückzuführen. Es wurde das Trägheitsnavigationssystem der ARIANE 4 übernommen, dabei wurde auf ausführliche Tests verzichtet, da sich das System in der ARIANE 4 jahrelang bewährt hatte. Leider hatte die ARIANE 5 aber eine höhere horizontale Geschwindigkeit, was zu einem Zahlenüberlauf führte, und dies wiederum ziemlich schnell zum Absturz (Resp. kontrollierten Sprengung) der Rakete. Schadensumme: 1.7 Miliarden DM. Wenn das System nicht einfach unbesehen übernommen worden wäre, hätte man das Problem mit grosser Sicherheit erkannt. (Weitere Informationen dazu unter http://www.esa.int/export/esaCP/Pr_33_1996_p_EN.ht...)
        
        zitiert aus dem (guten) Skript "Informatik und C" von Ivo Oesch (PDF)
        
        Editiert von FIFO: Formatierung
        Last edited: 2012-12-04 09:44:35 +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"
        
        +4 replies
        
        Auctioneer
        
        2012-12-19 05:11
        
        User since
        2008-09-30
        26 Artikel
        BenutzerIn
        
        besten Dank für die Resonanz. Bezüglich Perl: English war weder Schul- noch Lernsprache für mich, 2 Jahre Kanada und 17 Jahre Geschäftstätigkeit mit englischsprachigen Lieferanten sind, was ich konnte. Dann kam IF/ELSE BASIC mit Aepfeln und Commodores und später einem OLI M40. Perl kam erst viel später dazu, als ich schon über 50 und damit nicht mehr ganz frisch war. Und auf dem ehemaligen Forum wurde vorab mit 'Beispielen' erklärt als mit 'Begriffen'. Daher kommt auch mein absolut mangelndes Wissen, dies trotz etwa 14 Jahren, teils sehr intensivem Umgang mit meinem Zeitvertzreiber-Script. Irgenwo spinnt halt jeder...
        
        Ich habe im guru.com mal jemanden gesucht und einige Anfragen von Guru's erhalten, die ich zurzeit auswerte. Der Script wird zurzeit für noch Multifunktion, in der Basisausführung mit Auktionen/Inserate/Suchanzeigen, angepasst.
        
        Die Software wird unter LGPL Lizenz abgegeben. Das bedeutet, dass Teile davon eingeschränkte Lizenzrechte beinhalten können und die Software nicht einfach kopiert und ggfls. weiter (verkauft)gegeben werden dürfen. Wer also interessiert sein sollte, sich ggfls. mit Mod's wie Youtube-Facebook-Community auf EA Basis versuchen möchte, um damit auch etwas zu verdienen, ist herzlich eingeladen, sich mit mir kurzzuschliessen.
        
        Auch HTML/CSS/JS Gurus können ihre Fähigkeiten unter Beweis stellen, Header/Footer/rechter Seitenviertel stehen zur freien Verfügung für alles, was man sich vorstellen kann. Und für gute Ideen zahlen die User auch gutes Geld. Auch Mehrsprachigkeit mit Sprach-Dateien wäre möglich, ich hätte auch hier Vorlagen.
        
        Für die Leute, die Flatfile DB's als etwas vom vorigen Jahrtausend halten, besteht jederzeit die Möglichkeit, das Ding in eine MySql DB Komposition umzuschreiben, ich habe verschiedene Versionen von Muster-Software bis rauf zur legendären Ultimate-Auction, der technisch besten aller Auktionen, als Vorlage im Archiv. Diese ist übrigens auch nicht mehr als eine aufgemotzte EveryAuctionDB Version!
        
        Wünsche Euch allen eine fröhliche Weihnachten und ein Gutes Neues Jahr.
        
        Mögen Euch die Webengel vor zuviel
        
        http://www.everyauction.info/cgi-bin/cl/auction.pl?action=../../../../../../../../../../../../../bin/pwd
        
        beschützen.
        
        Ernie
        
        PS. Weshalb ist alles nur in Englisch? Damit ich die Sprache nicht verlerne. Ausserdem jätte ich eine fixfertige deutschsprachige Vorlage aus dem Jahr 2005 als optische Basis. Dies Source würde allerdings hier und dort einen Update benötigen.
        
        http://www.gratis-anzeiger.com/cgi-bin/auction/auktion.pl
        Last edited: 2012-12-19 05:24:12 +0100 (CET)
        Never judge another men before you walk a mile in his shoes
        
        +3 replies
        
        Gast DerGast
        
        2012-12-19 15:09
        
        Tja mein Lieber ...
        wenn Du bereits seit 1845 Schweizer Staatsbürger bist, dann hast Du tatsächlich ein gesegnetes Alter erreicht ;-)
        
        Was Deine Interpretation der LGPL anbelangt, so bist Du damit allerdings schlicht auf dem 'Holzweg'.
        Solltest das Teil einfach mal (verständig) lesen ...
        Last edited: 2012-12-19 15:46:41 +0100 (CET)
        
        +2 replies
        
        Auctioneer
        
        2012-12-19 19:29
        
        User since
        2008-09-30
        26 Artikel
        BenutzerIn
        
        Na gut, zumindest bin ich der Urahne des Einwanderers Karl-Friedrich-August J., auch etwas.
        
        Diskussionen über GPL LGPL führen immer nur zu Streit. Man kann ja auch vor lauter Angst, andere könnten profitieren, eigenes Wissen und Können irgendwo auf der Festplatte, neben GigaBytes heruntergeladener Steal- und Crackware, endlagern, als etwas damit anzufangen. Ich habe da eine etwas ander Lebensphilosophie, Geld nützt mir gar nichts, wenn mich niemand mag...
        
        Komisch, die PHP-Gilde scheint offensichtlich mit GPL/LGPL Themen im Allgemeinen weniger Mühe zu haben als Perler. Zumindest, wenn man sieht, was die Leute gemeinsam fertigbringen.
        
        Ein Hinweis dazu hier:
        
        -
        http://en.wikipedia.org/wiki/GNU_Lesser_General_Pu...
        -
        The LGPL was thus developed as a compromise between the strong copyleft of the GNU General Public License or GPL and permissive licenses such as the BSD licenses and the MIT License. The word "Lesser" in the title of the license is used, to show that LGPL cannot guarantee endusers complete freedom in the use of software, because only the LGPL-parts (but not any proprietary software-parts) guarantee endusers the access to source code and therefore the freedom of modification.
        -
        
        Ernie
        Never judge another men before you walk a mile in his shoes
        
        Dubu
        
        2012-12-19 23:16
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Du hast geschrieben:
        
        Quote
        Die Software wird unter LGPL Lizenz abgegeben. Das bedeutet, dass Teile davon eingeschränkte Lizenzrechte beinhalten können und die Software nicht einfach kopiert und ggfls. weiter (verkauft)gegeben werden dürfen.
        
        Das stimmt so nicht. Aller Sourcecode, der unter der LGPL steht, muss genauso weitergegeben werden wie unter der GPL. Der Unterschied ist nur, dass mit LGPL-Code verbundener Code (in den meisten Fällen heißt das: vom Linker eingebunden) nicht unter einer freien Lizenz stehen muss.
        
        Übliche Anwendung: Wenn ich ein proprietäres Programm schreiben will, kann ich meinen Code nicht mit Libraries verlinken, die unter der GPL stehen, weil diese meinen eigenen Sourcecode zwangsweise auch unter die GPL setzen. Wenn ich dagegen LGPL-Libs benutze, entsteht kein Problem: Den Sourcecode der LGPL-Libs muss ich auf Wunsch weitergeben, meinen eigenen nicht.
        
        Also: Wenn du deinen Code unter der LGPL veröffentlichst, können die Empfänger damit alles machen, was sie mit GPL-Code machen können. Und noch mehr.
    - +16 replies
    - GwenDragon
      
      2012-12-01 15:08
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Nachtrag:
      Lasse nur bestimmte Zeichen zu, weil dein Login auch bei anderen Zeichen einnen 500er ergibt.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      if ($loginname =~ /[^a-zA-Z0-9]/) { # Benutzername enthält auch Zeichen die nicht A..Z und a..z und 0..9 sind error('Loginname enthält ungültige Zeichen! Erlaubt sind nur Zeichen von a bis z, A bis Z, und Ziffern'); } else { # hier mit login weiter }
      
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Gast DerGast
        
        2012-12-01 15:27
        
        Subtree with 15 replies: auf ungültige Zeichen prüfen
        
        2012-12-01T14:08:43 GwenDragon
        Nachtrag:
        Lasse nur bestimmte Zeichen zu, weil dein Login auch bei anderen Zeichen einnen 500er ergibt.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        if ($loginname =~ /[^a-zA-Z0-9]/) { # Benutzername enthält auch Zeichen die nicht A..Z und a..z und 0..9 sind error('Loginname enthält ungültige Zeichen! Erlaubt sind nur Zeichen von a bis z, A bis Z, und Ziffern'); } else { # hier mit login weiter }
        
        nee besser:
        if ($loginname !~ /[^a-zA-Z0-9]/)
        
        oder einfacher:
        if ($loginname =~ /\W/)
        
        Einverstanden?
        
        modedit Editiert von pq: teilbaum
        Last edited: 2012-12-02 17:13:25 +0100 (CET)

View all threads created 2012-12-01 02:58.