CGI::Session::CookBook (Perl/CGI)

[thread]621[/thread]

CGI::Session::CookBook

Tom

2005-12-05 22:09

User since
2003-09-20
470 Artikel
BenutzerIn

Hallo,

Im diesem CookBook ist beschrieben wie man eine Members Area erstellt, wollte das mal testen, klappt aber nicht ganz.

Was macht denn dieser Teil genau?

Code: (dl )

while ( <PROFILES> ) {
            /^(\n|#)/ and next;
            chomp;
            my ($n, $p, $e) = split "\s+";

split teilt den String ab mindestens einem Leerzeichen in die Variablen $n, $p, $e.
Aber was macht der Code davor?

Und muss das <PROFILES> nicht <PROFILE> heißen denn davor wird es ja in PROFILE geladen.

Code: (dl )

        local $/ = "\n";
        unless (sysopen(PROFILE, "profiles.txt", O_RDONLY) ) {
            die "Couldn't open profiles.txt: $!");
        }

Wenn ich <PROFILE> schreibe macht das Programm weiter, aber die Split-Funktion funktioniert nicht wie gewünscht.

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

renee

2005-12-05 23:33

User since
2003-08-04
14371 Artikel
ModeratorIn

Jepp, sollte wohl <PROFILE> heissen...

Code: (dl )

            # wenn es eine Leerzeile ist, oder mit # anfaengt, dann soll die Zeile 
            # nicht weiter bearbeitet werden
           /^(\n|#)/ and next;

            # entferne den Input-Separator (was in $/ steht, meisstens der Zeilentrenner)
           chomp;

warum split nicht das macht was Du erwartest weiss ich allerdings nicht...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Strat

2005-12-06 14:42