From Roland.Bauer at mediaprint.at Mon Apr 3 13:33:40 2000 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Fix: Perl Treffen Dienstag, 4. 4. ab 19 Uhr Message-ID: * * * vienna-pm-list * * * Hallo Mongers! Morgiges Perl Monger Treffen: ----------------------------------------------- Habe gerade 8 Plaetze reserviert, bei Bedarf ist angeblich fuer 10 oder 12 Personen Platz. Reserviert auf "Bauer" Dienstag, 4. 4. ab 19 Uhr ---------------------------------------- Das Tor zu Indien Restaurant "SAMRAT" 1080 Wien, Florianigasse 20/29 Phone: 408 47 41 --------------------------------------------------------- Wenn Ihr herausfinden wollt, ob Perl das Richtige fuer Euch ist ... kommt vorbei. Und wenn Ihr wisst, dass Perl das Richtige ist ... dann kommt Ihr sowieso :-) Schoene Gruesse Roland ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ From Roland.Bauer at mediaprint.at Wed Apr 5 04:01:16 2000 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Gestriges Treffen [LONG] Message-ID: * * * vienna-pm-list * * * Beim gestrigen Treffen wurde u. a. ueber folgendes diskutiert: 1) Perl Monger Treffen: -------------------------------------- Soll wie bisher alle paar Wochen stattfinden. Essen, Trinken, Unterhaltung, ... 2) Coding Sessions: ------------------------------- Nach Vereinbarung. Arbeiten ... ;-) Sprich: man setzt sich an einen Computer und versucht gemeinsam Problemchen zu loesen oder tauscht Erfahrungen mit Modulen aus: Bugs, Einschraenkungen, Tips zur Verwendung, ... Wichtig waere, dass sich jeder Teilnehmer ein paar Fragen ("Agenda ;-)") ueberlegt, die man schon vorher austauscht. Wenn dann noch spontan etwas dazukommt, umso besser. Wer kann abends Raum + Rechner mit Perl (und moeglichst Internetanschluss) zur Verfuegung stellen? Ein UNI-Institut, eine Firma, ein Cello-User, ...? Was haltet Ihr davon? 3) Fragestunde fuer Anfaenger: ------------------------------------------------ Nach Vereinbarung. Wenn Interesse besteht, koennte man auch gelegentlich Perl-Einfuehrungen in Form von Fragestunden abhalten: Wie installiere ich Perl? Wie rufe ich ein Script auf? Woher bekommt man fertige Module? Wie installiert man sie? Was ist ein Modul? Usw Es werden die konkreten Fragen der Teilnehmer beantwortet. Hier waere es nett, wenn die Teilnehmer bereit waeren, etwas Vorarbeit zu leisten. Zum Beispiel das Perl-FAQ durchblaettern. Das FAQ verstanden zu haben, wird aber nicht Bedingung sein ;-) Wer haette daran prinzipiell Interesse? Und welche Erwartungshaltung? Schoene Gruesse Roland ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ From Martin.Schretzmeier at one.at Wed Apr 5 04:40:12 2000 From: Martin.Schretzmeier at one.at (Schretzmeier, Martin) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Gestriges Treffen [LONG] Message-ID: <41E1A7B4D460D2118FA60008C71E3FB4033150B4@NTSVIEMXS0011> * * * vienna-pm-list * * * sorry wg. gestern - hatte noch ein wichtiges Meeting am abend, ist sich leider nicht ausgegangen. Raum ist ein Problem - aber ich k?nnte vielleicht ein Notebook mit Nokia-CardPhone mitnehmen. Allerdings ist das noch nicht sicher - und auch nicht wirklich das Top-Ger?t, wg. Win instal- liert. Aber es k?nnte als letzte M?glichkeit in Betracht gezogen werden. Ansonsten finde ich die Idee gut. brgds Martin -----Original Message----- From: Roland Bauer [mailto:Roland.Bauer@mediaprint.at] Sent: Mittwoch, 05. April 2000 11:01 To: vienna-pm-list@happyfunball.pm.org Subject: [vienna.pm] Gestriges Treffen [LONG] * * * vienna-pm-list * * * Beim gestrigen Treffen wurde u. a. ueber folgendes diskutiert: 1) Perl Monger Treffen: -------------------------------------- Soll wie bisher alle paar Wochen stattfinden. Essen, Trinken, Unterhaltung, ... 2) Coding Sessions: ------------------------------- Nach Vereinbarung. Arbeiten ... ;-) Sprich: man setzt sich an einen Computer und versucht gemeinsam Problemchen zu loesen oder tauscht Erfahrungen mit Modulen aus: Bugs, Einschraenkungen, Tips zur Verwendung, ... Wichtig waere, dass sich jeder Teilnehmer ein paar Fragen ("Agenda ;-)") ueberlegt, die man schon vorher austauscht. Wenn dann noch spontan etwas dazukommt, umso besser. Wer kann abends Raum + Rechner mit Perl (und moeglichst Internetanschluss) zur Verfuegung stellen? Ein UNI-Institut, eine Firma, ein Cello-User, ...? Was haltet Ihr davon? 3) Fragestunde fuer Anfaenger: ------------------------------------------------ Nach Vereinbarung. Wenn Interesse besteht, koennte man auch gelegentlich Perl-Einfuehrungen in Form von Fragestunden abhalten: Wie installiere ich Perl? Wie rufe ich ein Script auf? Woher bekommt man fertige Module? Wie installiert man sie? Was ist ein Modul? Usw Es werden die konkreten Fragen der Teilnehmer beantwortet. Hier waere es nett, wenn die Teilnehmer bereit waeren, etwas Vorarbeit zu leisten. Zum Beispiel das Perl-FAQ durchblaettern. Das FAQ verstanden zu haben, wird aber nicht Bedingung sein ;-) Wer haette daran prinzipiell Interesse? Und welche Erwartungshaltung? Schoene Gruesse Roland ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ ### You are subscribed to vienna-pm-list as "Schretzmeier, Martin" http://www.fff.at/fff/vienna.pm/ From michael at wsr.ac.at Wed Apr 5 05:29:27 2000 From: michael at wsr.ac.at (Michael Demelbauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Gestriges Treffen [LONG] In-Reply-To: <41E1A7B4D460D2118FA60008C71E3FB4033150B4@NTSVIEMXS0011>; from Schretzmeier, Martin on Wed, Apr 05, 2000 at 11:40:12AM +0200 References: <41E1A7B4D460D2118FA60008C71E3FB4033150B4@NTSVIEMXS0011> Message-ID: <20000405122927.B32442@wsr.ac.at> * * * vienna-pm-list * * * > -----Original Message----- [ ... ] > 2) Coding Sessions: > ------------------------------- > Nach Vereinbarung. > > 3) Fragestunde fuer Anfaenger: > ------------------------------------------------ > Nach Vereinbarung. > > Wer haette daran prinzipiell Interesse? Und welche > Erwartungshaltung? > > Schoene Gruesse > Roland Hallo, ich bin an beidem interessiert und hoffentlich so lange als Zuh?rer bzw. -schauer geduldet, bis ich die n?tigen Vorarbeiten leisten kann/mu? und dann eh voll einsteige. Ich werde sicher dabei niemanden mit undifferenzierten Fragen bel?stigen, sondern erhoffe mir zun?chst nur "some feeling". Danke f?r euren Enthusiasmus und eure Bereitschaft die zweifellos gute Sache zu verbreiten. lG - Michl -- Michael P. Demelbauer WSR (Wirtschafts- und Sozialwissenschaftliches Rechenzentrum) LUGA (Linux User Group Austria) Life is like a game of cards. The hand that is dealt you represents determinism; the way you play it is free will. -- Jawaharlal Nehru ### You are subscribed to vienna-pm-list as Michael Demelbauer http://www.fff.at/fff/vienna.pm/ From patrick at klivv.oeaw.ac.at Wed Apr 5 05:40:05 2000 From: patrick at klivv.oeaw.ac.at (Patrick Meidl) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Gestriges Treffen [LONG] In-Reply-To: ; from Roland Bauer on Wed, Apr 05, 2000 at 11:01:16AM +0200 References: Message-ID: <20000405124005.A17776@lektor.telekabel.at> On Wed, Apr 05 2000, Roland Bauer wrote: > 1) Perl Monger Treffen: > -------------------------------------- > Soll wie bisher alle paar Wochen stattfinden. > Essen, Trinken, Unterhaltung, ... find ich wichtig, da man leute persoenlich kennenlernen kann, die an aehnlichen problemen arbeiten wie man selbst (und vielleicht sucht man ja mal jemanden als unterstuetzung fuer ein projekt). sollte auf jeden fall wie bisher stattfinden. > 2) Coding Sessions: > ------------------------------- > Nach Vereinbarung. > > Arbeiten ... ;-) Sprich: man setzt sich an einen Computer und versucht > gemeinsam Problemchen zu loesen oder tauscht Erfahrungen > mit Modulen aus: Bugs, Einschraenkungen, Tips zur Verwendung, ... sehr begruessenswerter vorschlag. moeglicherweise schwierig stelle ich mir vor, das ganze irgendwo in dem weiten raum zwischen dem nicht-mehr-ganz-newbie und dem vollprofi anzusiedeln (so dass sich nicht die einen langweilen oder die anderen kein wort verstehen). aber das muss man halt mal ausprobieren. > Wer kann abends Raum + Rechner mit Perl (und moeglichst Internetanschluss) > zur Verfuegung stellen? Ein UNI-Institut, eine Firma, ein Cello-User, ...? ich wuerd meinen webserver (apache unter linux) zum ausprobieren von CGIs zur verfuegung stellen (ich bring ihn natuerlich nicht mit ;-) > 3) Fragestunde fuer Anfaenger: > ------------------------------------------------ > Nach Vereinbarung. > > Wenn Interesse besteht, koennte man auch gelegentlich > Perl-Einfuehrungen in Form von Fragestunden abhalten: die fragen hier sind: - gibt es eine zielgruppe dafuer (an die man auch herankommt)? - wieviel zeit sind wir bereit zu investieren? aber grundsaetzlich ist das auch eine idee, die man diskutieren kann. lG *patrick* -- Patrick Meidl +43-699-10460516 Witzelsbergergasse 20/6 p.meidl@klivv.oeaw.ac.at A-1150 Vienna, Austria http://pmeidl.penguinpowered.com -- -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20000405/e081711b/attachment.bin From gudrun.erny at lap.at Thu Apr 6 05:24:10 2000 From: gudrun.erny at lap.at (Gudrun Erny) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] =?iso-8859-1?Q?perl=2Danf=E4nger?= References: Message-ID: <38EC65CA.7774DD5B@lap.at> * * * vienna-pm-list * * * Hallo, > 3) Fragestunde fuer Anfaenger: > ------------------------------------------------ > Nach Vereinbarung. > > > Wer haette daran prinzipiell Interesse? Und welche > Erwartungshaltung? Von mir aus besteht da ziemlich gro?es Interesse. Nur: es mu? wirklich auf Anf?nger-Niveau sein, d.h. von null weggehen. Weil sonst steigt ja jeder (Anf?nger) gleich wieder aus und das soll ja nicht Sinn der Sache sein. Also, wann gehts los? :-) Gudrun -- gudrun.erny@lap.at Landschaftsplanung in ?sterreich http://www.lap.at/lap ### You are subscribed to vienna-pm-list as Gudrun Erny http://www.fff.at/fff/vienna.pm/ From gudrun.erny at lap.at Thu Apr 6 05:24:56 2000 From: gudrun.erny at lap.at (Gudrun Erny) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] datei-liste Message-ID: <38EC65F8.2EBF1C29@lap.at> * * * vienna-pm-list * * * Hallo, ich habe Anf?ngerfrage, f?r Perl-Gurus eine wahrscheinlich ziemlich simple: ich m?chte alle Dateien (die Dateinamen) eines Verzeichnisses in eine Liste geschrieben haben. Mit einem Dos-Befehl gehts ja recht einfach (wenn man ihn wei? ;-): dir /b >filename.txt), aber wie mu? das Perl-Skript ausschauen, das das gleiche macht? Und wie, wenn ich das Datum auch dazu haben will oder wenn die Datein nach ihrer Gr??e od. Erstellungsdatum sortiert sein sollen? Danke und Gr??e von Gudrun -- gudrun.erny@lap.at Landschaftsplanung in ?sterreich http://www.lap.at/lap ### You are subscribed to vienna-pm-list as Gudrun Erny http://www.fff.at/fff/vienna.pm/ From amon.c at utanet.at Thu Apr 6 08:03:27 2000 From: amon.c at utanet.at (Christian Amon) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Re: Datei-Liste Message-ID: <001601bf9fc8$812dc800$da9198d4@at> * * * vienna-pm-list * * * >>ich m?chte alle Dateien (die Dateinamen) eines Verzeichnisses in eine Liste geschrieben haben. Servus Gudrun, ich bin zwar selber Anf?nger, mache mich aber trotzdem gerne wichtig. Hier eine L?sung, die unter Win95 funktioniert: ---------------------------------------------------------------------------- ------------------------ open (Filehandle, ">Liste.dat"); open (Datenaustauschhandle, "dir /os|"); #Dos-Befehl dir mit den Parametern /o f?r Sortieren, s nach Gr??e { print Filehandle } close (Filehandle); ---------------------------------------------------------------------------------------------------- Die ausgegebene Liste namens Liste.dat enth?lt auch allerhand Schrott. Wahrscheinlich pr?sentiert einer der Gurus eh bald eine professionellere L?sung als meine. Wenn nicht, k?nnte man die Liste mit dem Perl Befehl =~/suchbegriff/ "ausklauben". ---------------------------------------------------------------------------------------------------- Die Parameterliste des Dosbefehles dir: (kriegt man, wenn man im DOS-Fenster dir /? eingibt) DIR [Laufwerk:][Pfad][Dateiname] [/P] [/W] [/A[[:]Attribute]] [/O[[:]Sortierfolge]] [/S] [/B] [/L] [/V] [Laufwerk:][Pfad][Dateiname] Anzuzeigendes Laufwerk, Verzeichnis bzw. Dateien. (Erweiterte oder mehrere Dateiangaben sind zul"ssig.) /P Zeigt die Informationen seitenweise an. /W Zeigt die Informationen im Breitformat an. /A Zeigt Dateien mit den angegebenen Attributen an. Attribute D Verzeichnisse R Schreibgesch?tzte Dateien H Versteckte Dateien A Zu archivierende Dateien S Systemdateien - vorangestellt kehrt die Bedeutung um /O Listet Dateien sortiert auf. Sortierfolge N Name (alphabetisch) S Gr"?e (kleinere zuerst) E Erweiterung (alphabetisch) D D atum/Uhrzeit ("ltere zuerst) G Verzeichnisse zuerst - vorangestellt kehrt die Sortierung um A Datum des letzten Zugriffs (fr?hester zuerst) /S Zeigt Dateien im Verzeichnis und dessen Unterverzeichnissen an. /B Verwendet einfaches Format (kein Vorspann und keine Zusammenfassung). /L Verwendet Kleinschreibung. /V Aktiviert die ausf?hrliche Anzeige. Optionen k"nnen in der Umgebungsvariablen DIRCMD voreingestellt werden. - vor einer Option deaktiviert die Voreinstellung, z.B. /-W. ---------------------------------------------------------------------------- ------------------------ Pfiati Christian Amon ### You are subscribed to vienna-pm-list as "Christian Amon" http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Thu Apr 6 09:47:45 2000 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Re: Datei-Liste In-Reply-To: <001601bf9fc8$812dc800$da9198d4@at>; from Christian Amon on Thu, Apr 06, 2000 at 03:03:27PM +0200 References: <001601bf9fc8$812dc800$da9198d4@at> Message-ID: <20000406164745.H26058@wsr.ac.at> On 2000-04-06 15:03:27 +0200, Christian Amon wrote: > >>ich m?chte alle Dateien (die Dateinamen) eines Verzeichnisses in > >>eine Liste geschrieben haben. > > Servus Gudrun, > ich bin zwar selber Anf?nger, mache mich aber trotzdem gerne wichtig. > > Hier eine L?sung, die unter Win95 funktioniert: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ > open (Filehandle, ">Liste.dat"); > open (Datenaustauschhandle, "dir /os|"); #Dos-Befehl dir mit den [...] > Die ausgegebene Liste namens Liste.dat enth?lt auch allerhand Schrott. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Damit hast Du die zwei wesentlichen Nachteile Deiner L?sung bereits aufgez?hlt. Sie verwendet ein betriebssystemabh?ngiges Kommando, das au?erdem einen Output liefert, den man wahrscheinlich erst nachbearbeiten mu?, wenn man ihn verwenden will. Hier eine "reine" Perll?sung: my $dir = "."; my $file = "liste.dat"; # alle Filenamen in ein Array @files einlesen opendir(DIRHANDLE, $dir) or die "cannot read directory $dir: $!"; my @files = readdir(DIRHANDLE); close(DIRHANDLE); # Das Array in ein File schreiben (ein Filename pro Zeile) open(FILEHANDLE, ">$file") or die "cannot open file $file for writing: $!"; for $i (@files) { print FILEHANDLE "$i\n"; } close(FILEHANDLE) or die "cannot close file $file: $!"; Wenn die Files alphabetisch sortiert sein sollen kann man einfach das Array sortieren, bevor man es ins File schreibt: @files = sort @files; Wenn man das Datum zu jedem File wissen will, gibt es die Funktion stat, wobei ich zur Verbesserung der Lesbarkeit dringend das Modul File::stat empfehle. use File::stat; use POSIX; [...] my $dirsep = "/"; [...] for $i (@files) { my $st = stat ($dir . $dirsep . $i); my $datum = strftime("%Y-%m-%d %H:%M:%S", localtime($st->mtime)); print FILEHANDLE "$datum $i\n"; } Stat liefert Angaben ?ber das File, wie z.B. die Gr??e, das Datum der letzten Modifikation, etc. Bei Fileoperationen (wie open oder stat) mu? man im Allgemeinen (in diesem Beispiel w?re es unn?tig, weil wir das current directory lesen) Directorynamen und Filename zusammenh?ngen, wobei der "/" als Separator unter Unix und Windows funktioniert, aber nicht z.B. am Mac. Vermutlich gibt es ein Modul, das solche Operationen portabel durchf?hrt. strftime formatiert den Output der localtime-Funktion. Ich habe keine Ahnung, wieso die im POSIX-Modul (gibt es das unter Windows ?berhaupt?) ist, es ist n?mlich keine POSIX-Funktion, sondern eine ANSI-C-Funktion. $lehrer_modus = 1; Als Haus?bung d?rft ihr den Output nach Datum sortieren :-) undef $lehrer_modus; hp PS: Die Programmfragmente oben sind ungetestet und enthalten vermutlich Tipp- und sonstige Fehler. -- _ | Peter J. Holzer | The best way to make sure something is |_|_) | Sysadmin WSR / LUGA | "standard" today is to get an O'Reilly | | | hjp@wsr.ac.at | book written on the topic. __/ | http://www.hjp.at/ | -- Casey Schaufler -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20000406/e6106776/attachment.bin From michael at wsr.ac.at Fri Apr 7 03:42:46 2000 From: michael at wsr.ac.at (Michael Demelbauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] habs wohl nicht verstanden :-( Message-ID: <20000407104246.A3381@wsr.ac.at> * * * vienna-pm-list * * * Hallo, ich bin der Meinung, da? hjp's letzte Mail zu folgendem Script f?hren m?sste: #!/usr/bin/perl use File::stat; use POSIX; my $dirsep = "/"; my $dir = "."; my $file = "liste.dat"; opendir (DIRHANDLE, $dir) or die "cannot read directory $dir: $!"; close DIRHANDLE; open (FILEHANDLE, ">$file") or die "cannot open file $file for writing: $!"; for $i (@files) { my $st = stat ($dir . $dirsep . $i); my $datum = strftime ("%Y-%m-%d %H:%M:%S", localtime ($st -> mtime)); print FILEHANDLE "$datum $i\n"; } Es l??t sich auch ohne Fehlermeldung ausf?hren, erzeugt aber leider nur ein leeres Outputfile liste.dat?! lG - Michl (alias Nervens?ge) -- Michael P. Demelbauer WSR (Wirtschafts- und Sozialwissenschaftliches Rechenzentrum) LUGA (Linux User Group Austria) One good reason why computers can do more work than people is that they never have to stop and answer the phone. ### You are subscribed to vienna-pm-list as Michael Demelbauer http://www.fff.at/fff/vienna.pm/ From Roland.Bauer at mediaprint.at Fri Apr 7 04:40:24 2000 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:23:30 2004 Subject: ALWAYS USE STRICT ;-) WAS: Antw: [vienna.pm] habs wohl nicht verstanden :-( Message-ID: * * * vienna-pm-list * * * Hallo, also ich persoenlich schau zuerst, ob ein Script mit "use strict;" beginnt ;-) Manche sind noch strenger und sagen, auch das "-w" muss sein: #!/usr/bin/perl -w Aber mit "use strict;" schimpft das Perl schon: #----------------- Global symbol "$i" requires explicit package name at p.pl line 18. Global symbol "@files" requires explicit package name at p.pl line 18. Execution of p.pl aborted due to compilation errors. #---------------- Und man kann leichter erkennen, dass bei @files was faul ist: Es fehlt der Befehl ... my @files = readdir(DIRHANDLE); Und vor dem $i ein "my". Denn sonst ist es ja nicht "strict". Also: for my $i (@files) { ... } UND DANN FUNKTIONIERT ES !! :-)) Larry sagt im Kamel, Seite 528: "Common Goofs for Novices The biggest goof of all is forgetting to use the -w switch, which points to many errors. The second biggest goof is not using use strict when it's appropriate." Anmerkung von mir: 1) Ohne use strict schaffe ich es fast nie, ein funktionierendes Script zu erzeugen, da ich mich immer irgendwo vertippe oder was vergesse. Mit use script ist Perl schlau genug, diese Fehler dann zu erkennen. 2) Das -w ist unter Windows nur dann wirksam, wenn man das Script mit "perl -w script.pl" aufruft, weil dieser "#!..."-Mechanismus in der ersten Zeile ignoriert wird. Alternativ kann man aber "use diagnostics;" sagen. Always use strict ;-) Schoene Gruesse Roland ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Fri Apr 7 05:10:40 2000 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] habs wohl nicht verstanden :-( In-Reply-To: <20000407104246.A3381@wsr.ac.at>; from Michael Demelbauer on Fri, Apr 07, 2000 at 10:42:46AM +0200 References: <20000407104246.A3381@wsr.ac.at> Message-ID: <20000407121040.F8238@wsr.ac.at> On 2000-04-07 10:42:46 +0200, Michael Demelbauer wrote: > * * * vienna-pm-list * * * > > > > Hallo, > > ich bin der Meinung, da? hjp's letzte Mail zu folgendem Script f?hren > m?sste: > [schnipp] > > Es l??t sich auch ohne Fehlermeldung ausf?hren, erzeugt aber leider > nur ein leeres Outputfile liste.dat?! Soweit ich sehe, hast Du genau die wichtigste Zeile ausgelassen. #!/usr/bin/perl -w use strict; sollte zur Erleuchtung f?hren. hp -- _ | Peter J. Holzer | The best way to make sure something is |_|_) | Sysadmin WSR / LUGA | "standard" today is to get an O'Reilly | | | hjp@wsr.ac.at | book written on the topic. __/ | http://www.hjp.at/ | -- Casey Schaufler -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20000407/60e46070/attachment.bin From michael at wsr.ac.at Fri Apr 7 05:49:07 2000 From: michael at wsr.ac.at (Michael Demelbauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] habs wohl nicht verstanden :-(, jetzt schon! In-Reply-To: <20000407121040.F8238@wsr.ac.at>; from Peter J. Holzer on Fri, Apr 07, 2000 at 12:10:40PM +0200 References: <20000407104246.A3381@wsr.ac.at> <20000407121040.F8238@wsr.ac.at> Message-ID: <20000407124907.A3523@wsr.ac.at> * * * vienna-pm-list * * * Thus spaketh Peter J. Holzer: > On 2000-04-07 10:42:46 +0200, Michael Demelbauer wrote: > > * * * vienna-pm-list * * * [ ... besten Dank an alle, die geantwortet haben, und nein: nur 'use strict' h?tte zu meiner Erleuchtung noch nicht gereicht ... ] Da ich hier nicht der einzige Dummy zu sein scheine, poste ich das ganze funktionierende Ding. lG - Michl ---------------------- cut here --------------------------------------- #!/usr/bin/perl use strict; use File::stat; use POSIX; my $dirsep = "/"; my $dir = "."; my $file = "liste.dat"; opendir (DIRHANDLE, $dir) or die "cannot read directory $dir: $!"; close DIRHANDLE; open (FILEHANDLE, ">$file") or die "cannot open file $file for writing: $!"; my @files = readdir (DIRHANDLE); for my $i (@files) { my $st = stat ($dir . $dirsep . $i); my $datum = strftime ("%Y-%m-%d %H:%M:%S", localtime ($st -> mtime)); print FILEHANDLE "$datum $i\n"; } ---------------------- cut here --------------------------------------- -- Michael P. Demelbauer WSR (Wirtschafts- und Sozialwissenschaftliches Rechenzentrum) LUGA (Linux User Group Austria) If your operating system goes down more often than your girlfriend, then either you need to get a Catholic girl, or you need to stop running NT. ### You are subscribed to vienna-pm-list as Michael Demelbauer http://www.fff.at/fff/vienna.pm/ From Roland.Bauer at mediaprint.at Fri Apr 7 06:55:59 2000 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Fairerweise ... Message-ID: * * * vienna-pm-list * * * "Fairerweise" muss man sagen, dass man den DOS-Befehl "dir /b" in Perl auch so schreiben koennte: #------------------------ cut --------------------------- use File::Slurp; print join "\n", read_dir "."; #------------------------ cut --------------------------- Das ist ja einer der Gruende, warum File::Slurp mein Lieblingsmodul ist ;-) Das muss man allerdings selbst nachinstallieren, weil es nicht beim Standardpaket dabei ist. Die mittlerweile gemeinsam erarbeitete Loesung schaut naemlich schon etwas kompliziert aus, aber sie kann auch viel mehr und ist sozusagen "sauber" programmiert ... Perl ist jedenfalls nicht komplizierter als DOS. Sofern man genau dasselbe macht ;-) Roland ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Fri Apr 7 07:20:05 2000 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] habs wohl nicht verstanden :-(, jetzt schon! In-Reply-To: <20000407124907.A3523@wsr.ac.at>; from Michael Demelbauer on Fri, Apr 07, 2000 at 12:49:07PM +0200 References: <20000407104246.A3381@wsr.ac.at> <20000407121040.F8238@wsr.ac.at> <20000407124907.A3523@wsr.ac.at> Message-ID: <20000407142005.I8238@wsr.ac.at> On 2000-04-07 12:49:07 +0200, Michael Demelbauer wrote: > * * * vienna-pm-list * * * > > > Thus spaketh Peter J. Holzer: > > On 2000-04-07 10:42:46 +0200, Michael Demelbauer wrote: > > > * * * vienna-pm-list * * * > [ ... besten Dank an alle, die geantwortet haben, und nein: nur 'use > strict' h?tte zu meiner Erleuchtung noch nicht gereicht ... ] > > Da ich hier nicht der einzige Dummy zu sein scheine, poste ich das > ganze funktionierende Ding. Das funktioniert aber nur zuf?llig :-) > opendir (DIRHANDLE, $dir) or die "cannot read directory $dir: $!"; > close DIRHANDLE; > > my @files = readdir (DIRHANDLE); Zuerst ?ffnen, dann schlie?en, und dann erst verwenden ist wohl die falsche Reihenfolge. Richtig w?re zuerst ?ffnen, dann verwenden, und zum Schlu? schlie?en. Ich habe aber auch mehrmals hinschauen m?ssen, um zu sehen, warum das trotzdem funktioniert: Die richtige Funktion zum Schlie?en eines Dirhandles ist (nat?rlich) closedir, nicht close (mein Fehler). Daher wird DIRHANDLE nicht geschlossen und kann weiterverwendet werden. Die Moral von der Geschicht: Man sollte auch auf Fehler pr?fen, die "nicht passieren k?nnen". Denn close DIRHANDLE or die "cannot close directory $dir: $!"; h?tte die Fehlermeldung cannot close directory .: Bad file descriptor at ./readdir_michael.pl line 12. ausgespuckt und so angezeigt, da? mit dem close etwas nicht stimmen kann. hp -- _ | Peter J. Holzer | The best way to make sure something is |_|_) | Sysadmin WSR / LUGA | "standard" today is to get an O'Reilly | | | hjp@wsr.ac.at | book written on the topic. __/ | http://www.hjp.at/ | -- Casey Schaufler -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20000407/b984e07f/attachment.bin From Roland.Bauer at mediaprint.at Fri Apr 7 07:50:50 2000 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Kochbuch und for/while Message-ID: * * * vienna-pm-list * * * Nachtrag zum Directorylisting-Beispiel ... Ueber die Nuetzlichkeit des Kamels und des Kochbuchs wurde hier schon einmal geschrieben. Beweis der Anfaengertauglichkeit: #------------------------------------------------------------------------------ Rezept 9.5. Processing All Files in a Directory PROBLEM: You want to do something to each file in a particular directory. SOLUTION: Use opendir to open the directory and then readdir to retrieve every filename: opendir(DIR, $dirname) or die ""can't opendir $dirname: $!"; while (defined($file = readdir(DIR))) { # do something with "$dirname/$file" } closedir(DIR) #------------------------------------------------------------------------------ Und dann folgt eine ausfuehrliche Diskussion. Kochbuch = "Perl Cookbook" von Tom Christiansen/Nathan Torkington Schoene Gruesse Roland P.S. Aber waere wieso while und nicht for? opendir(DIR, $dirname) or die ""can't opendir $dirname: $!"; for (readdir(DIR) { # do something with "$dirname/$file" } closedir(DIR); ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ From juffi at ai.univie.ac.at Fri Apr 7 08:15:39 2000 From: juffi at ai.univie.ac.at (Johannes Fuernkranz) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Kochbuch und for/while References: Message-ID: <38EDDF7B.3551C2E4@ai.univie.ac.at> * * * vienna-pm-list * * * Roland Bauer wrote: > > P.S. Aber waere wieso while und nicht for? > > opendir(DIR, $dirname) or die ""can't opendir $dirname: $!"; > for (readdir(DIR) { Da fehlt eine Klammer > # do something with "$dirname/$file" und statt $file musz man natuerlich $_ verwenden. > } > closedir(DIR); Sorry, couldn't resist. Auf jeden Fall geb ich Dir recht: Lang lebe Kamel und Kochbuch (was dank der guten Bindung der O'Reilly-Buecher sogar trotz der haeufigen Verwendung nicht ausgeschlossen ist). Juffi ### You are subscribed to vienna-pm-list as Johannes Fuernkranz http://www.fff.at/fff/vienna.pm/ From patrick at klivv.oeaw.ac.at Fri Apr 7 16:46:17 2000 From: patrick at klivv.oeaw.ac.at (Patrick Meidl) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] habs wohl nicht verstanden :-(, jetzt schon! In-Reply-To: <20000407142005.I8238@wsr.ac.at>; from Peter J. Holzer on Fri, Apr 07, 2000 at 02:20:05PM +0200 References: <20000407104246.A3381@wsr.ac.at> <20000407121040.F8238@wsr.ac.at> <20000407124907.A3523@wsr.ac.at> <20000407142005.I8238@wsr.ac.at> Message-ID: <20000407234617.G17776@lektor.telekabel.at> On Fri, Apr 07 2000, Peter J. Holzer wrote: > > opendir (DIRHANDLE, $dir) or die "cannot read directory $dir: $!"; > > close DIRHANDLE; > > > > my @files = readdir (DIRHANDLE); > > Zuerst ?ffnen, dann schlie?en, und dann erst verwenden ist wohl die > falsche Reihenfolge. Richtig w?re zuerst ?ffnen, dann verwenden, und zum > Schlu? schlie?en. > > Ich habe aber auch mehrmals hinschauen m?ssen, um zu sehen, warum das > trotzdem funktioniert: Die richtige Funktion zum Schlie?en eines > Dirhandles ist (nat?rlich) closedir, nicht close (mein Fehler). Daher > wird DIRHANDLE nicht geschlossen und kann weiterverwendet werden. danke fuer die aufklaerung, mich hat das gleich stutzig gemacht. daher hab ich mir die urspruengliche mail aufgehoben, um das beispiel selbst zu testen, da ich schon dachte, ich haette da was grundsaetzliches am konzept der file/dir handles missverstanden. so erspar ich mir die arbeit und mein perl-weltbild ist wieder in ordnung ;-) *patrick* -- Patrick Meidl +43-699-10460516 Witzelsbergergasse 20/6 p.meidl@klivv.oeaw.ac.at A-1150 Vienna, Austria http://pmeidl.penguinpowered.com -- -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20000407/3fdc171d/attachment.bin From amon.c at utanet.at Fri Apr 7 16:59:12 2000 From: amon.c at utanet.at (Christian Amon) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Dank und Anerkennung Message-ID: <005801bfa0dc$a41a4ea0$7f8e98d4@at> Ich bedanke mich bei allen, die sich mit unseren Anf?ngerproblemen so geduldig abgeben. Ich habe allerhand dazugelernt. Am meisten habe ich eigentlich vom "nicht ganz geradlinigen Weg" der zur L?sung gef?hrt hat profitiert. Christian -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/vienna-pm/attachments/20000407/c6032552/attachment.htm From Roland.Bauer at mediaprint.at Fri Apr 14 03:58:07 2000 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] PDF und Perl Message-ID: * * * vienna-pm-list * * * Laut Adobe bietet der Acrobat eine Java-Schnittstelle, ueber die man PDF-Files manipulieren kann. Heisst das automatisch, dass man da dann auch ueber Perl hineinkommt oder muesste man sich da in Java einen Wrapper schreiben und dieses Java-Programm dann von Perl aus bedienen? Haengt das vom Betriebssystem ab? Ich frage einmal nur interessehalber, aber das koennte interessante Anwendungen eroeffnen ... ;-) Roland ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ From Roland.Bauer at mediaprint.at Fri Apr 14 04:02:15 2000 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Coding Session: Angebot Message-ID: * * * vienna-pm-list * * * Wir haetten einen Raum fuer eine Perl-Coding-Session: 1) Standleitung ins Internet 2) Vier Arbeitsplaetze Sollte nur nach 17 Uhr sein und wir sollten uns rechtzeitig ankuendigen. Wer will mitmachen? Wann? Schoene Gruesse Roland P.S.: Dank an Wolfgang ... :-) ### You are subscribed to vienna-pm-list as "Roland Bauer" http://www.fff.at/fff/vienna.pm/ From fhe at mmm.at Fri Apr 14 04:18:17 2000 From: fhe at mmm.at (Florian Helmberger) Date: Thu Aug 5 00:23:30 2004 Subject: [vienna.pm] Warnings... Message-ID: <4.3.0.20000414110633.00aff850@192.9.200.200> * * * vienna-pm-list * * * Hi! Ich bin gerade dabei ein paar Scripts f?r die Benutzung unter mod_perl zu bearbeiten. Zu diesem Behufe arbeite ich auch das ziemlich geniale mod_perl Guide (http://perl.apache.org/guide/) durch - was ich nur jedem empfehlen kann. Abgesehen von dem eh standardm??igen use strict benutze ich zum Debuggen auch use diagnostics. Das Teil liefert mir eine ganze Menge von Use of uninitialized value at