Frank Weitz: durchsuchen von Verzeichnissen

Hallo,

"kurze" Frage, vielleicht gibt´s das, was ich suche, schon,
da ich eigentlich keine erfahrungen in Perl habe, nur mal kurz
eingelesen ;)

Ich mache eine Seite, die Tabellen darstellen soll aus dem
Sportsegment.
Nun möchte ich eine Tabelle machen, die jeweils durch einen
grünen Haken oder ein rotes Kreus anzeigt, ob eine Tabelle
schon eingepflegt wurde für einen bestimmten Spieltag
und eine bestimmte gruppe.

Das Script, dass ich suche, soll also die Verzeichnisse absuchen
nach 1.htm 2.htm ... 18.htm und dann in einer TAbelle eine
entsprechende Grafik darstellen, ggf mit Link.

geht sowas überhaupt`?

Ich habe im php Bereich gesucht un nur SQL Lösungen gefunden.

DAnke,

Gruss

Frank

  1. Guten Morgen Frank,

    ich kann dir jetzt zwar kein fertiges Script liefern, aber theoretisch nen kleinen Einstieg erleichtern, weil ich momentan mit nem ähnlichen Problem zu kämpfen habe. schau mal bei selfhtml unter cgi/perl den Befehl OPENDIR an. Damit kannst du Verzeichnisinhalte auslesen! Also könntest damit ja theoretisch auch überprüfen, ob eine Datei schon da ist oder nicht (maybe mit dem STAT-befehl). Viel Spaß beim Tüfteln!!

    Andi

    Hallo,

    "kurze" Frage, vielleicht gibt´s das, was ich suche, schon,
    da ich eigentlich keine erfahrungen in Perl habe, nur mal kurz
    eingelesen ;)

    Ich mache eine Seite, die Tabellen darstellen soll aus dem
    Sportsegment.
    Nun möchte ich eine Tabelle machen, die jeweils durch einen
    grünen Haken oder ein rotes Kreus anzeigt, ob eine Tabelle
    schon eingepflegt wurde für einen bestimmten Spieltag
    und eine bestimmte gruppe.

    Das Script, dass ich suche, soll also die Verzeichnisse absuchen
    nach 1.htm 2.htm ... 18.htm und dann in einer TAbelle eine
    entsprechende Grafik darstellen, ggf mit Link.

    geht sowas überhaupt`?

    Ich habe im php Bereich gesucht un nur SQL Lösungen gefunden.

    DAnke,

    Gruss

    Frank

    1. Guten Morgen Frank,

      ebenfalls guten Morgen ;)

      ich kann dir jetzt zwar kein fertiges Script liefern, aber theoretisch nen kleinen Einstieg erleichtern, weil ich momentan mit nem ähnlichen Problem zu kämpfen habe. schau mal bei selfhtml unter cgi/perl den Befehl OPENDIR an. Damit kannst du Verzeichnisinhalte auslesen! Also könntest damit ja theoretisch auch überprüfen, ob eine Datei schon da ist oder nicht (maybe mit dem STAT-befehl). Viel Spaß beim Tüfteln!!

      supi, werde mir das mal anschauen, danke Dir.
      zwar habe ich bislang keine Erfahrung damit, habe mich aber in den
      vergangenen 2 Wochen komplett durch HTML,CSS und Excel Makros gewühlt. Hoffe, Perl ist nicht viel komplizierter ;)

      Frank

      1. Hoi,

        ich kann dir jetzt zwar kein fertiges Script liefern,

        Sollst du ja auch gar nicht ;-)

        zwar habe ich bislang keine Erfahrung damit, habe mich aber in den
        vergangenen 2 Wochen komplett durch HTML,CSS und Excel Makros
        gewühlt. Hoffe, Perl ist nicht viel komplizierter ;)

        Nur geringfuegig ;-)

        Nun, du koenntest das so anfangen:

        opendir DIR,'directory' or die $!;
        my @files = grep /[1]+.htm/,readdir DIR;
        closedir DIR;

        In @files stehen dann die gewuenschten Dateien drin. Wenn du die
        Verzeichnisse rekursiv absuchen willst, dann wirst du den Algorithmus
        geringfuegig anpassen muessen.

        Gruesse,
         CK


        1. 0-9 ↩︎

        1. auch hoi

          ich kann dir jetzt zwar kein fertiges Script liefern,
          Sollst du ja auch gar nicht ;-)

          richtig ;)

          Nun, du koenntest das so anfangen:

          opendir DIR,'directory' or die $!;
          my @files = grep /[1]+.htm/,readdir DIR;
          closedir DIR;
          In @files stehen dann die gewuenschten Dateien drin. Wenn du die
          Verzeichnisse rekursiv absuchen willst, dann wirst du den Algorithmus
          geringfuegig anpassen muessen.

          danke, habe jetzt 10 Tage Urlaub, da sollte schon was gehen.
          Ansonsten soll die Seite in8 Wochen erst online ;)

          Frank


          1. 0-9 ↩︎

        2. Hi Christian,

          Wenn du die Verzeichnisse rekursiv absuchen willst,
          dann wirst du den Algorithmus geringfuegig anpassen
          muessen.

          was denn - keine Werbung für Module wie File::Find oder gar File::Recurse ? ;-)

          Viele Grüße
                Michael

          1. Hoi Michael,

            Wenn du die Verzeichnisse rekursiv absuchen willst,
            dann wirst du den Algorithmus geringfuegig anpassen
            muessen.

            was denn - keine Werbung für Module wie File::Find oder gar
            File::Recurse ? ;-)

            Oehm...

            Ach, Frank, du koenntest natuerlich auch die Module

            File::Find (in der Standard-Distribution enthalten)

            oder

            File::Recurse (http://search.cpan.org/search?mode=module&query=File%3A%3ARecurse)

            benutzen.

            ;-))

            Gruesse,
             CK

  2. Hej Frank,

    das sollte es tun (Perl):

    chdir $VerzeichnisName;
    opendir SCRMAIN, '.';
    @arrayDateien=grep /^\d+.htm/,readdir SCRMAIN;
    closedir SCRMAIN;

    Viel Spaß damit,
    Marko