From wimmer at ecodesign.at  Mon May  5 09:36:31 2003
From: wimmer at ecodesign.at (Wolfgang Wimmer)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] Perl - Programmierarbeiten
Message-ID: <5.1.0.14.2.20030505162504.030b25e0@128.130.136.130>

Sehr geehrte Perl-Mongers,

ich arbeite am Institut f?r Konstruktionslehre im Bereich von 
umweltgerechter Produktgestaltung bzw. Ecodesign und bin als ehemaliger 
Kollege (und Sch?ler) von Roland Bauer naturgem?? an Perl interessiert. Im 
Konkreten haben wir an unserem Institut immer wieder kleinere und gr??ere 
Programmierarbeiten, die wir mit unserer Stammmannschaft nicht mehr 
bew?ltigen, bzw. wo wir ad hoc Hilfe brauchen w?rden. Jetzt ist wieder so 
ein Fall eingetreten - im Projekt "Ecodesign-Informationsknoten" siehe: 
www.ecodesign.at soll ein Relaunch erfolgen. Unter anderem soll die 
Navigationsstruktur verbessert werden. Dazu haben wir die aktuelle 
Datenbank in XML umgebaut, Templates erstellt und jetzt fehlt noch die 
Logik. Dazu br?uchten wir Hilfe in der Umsetzung. Die Anforderungen sind 
perl (objektorientiert), petal und xml (cpan module). Es geht im Prinzip um 
parsen eines xml-baumes und einsetzten in html-templates. Das Ganze ist 
nicht dynamisch sondern wird als statisches System auf den Server gelegt.

Wenn jemand Interesse an dieser oder anderer Arbeiten hat, die in Hinkunft 
sicher anfallen werden, bitte ich um Kontaktaufnahme mit Peter Judmaier : 
judmaier@ecodesign.at

Besten Dank

Wolfgang Wimmer



--
Univ. Ass. Dipl-Ing. Dr.techn.Wolfgang Wimmer
Umweltgerechte Produktgestaltung / ECODESIGN
TU-WIEN, Institut f. Konstruktionslehre (E307)
Getreidemarkt 9, 1060 Wien
Tel: ++43/1/58801/30744 Fax: ++43/1/58801/30799

NEU - ECODESIGN BUCH mit CD-ROM:
http://www.ecodesign.at/pilot/deutsch/buch/



From seitz at bzs.tu-graz.ac.at  Thu May 15 08:19:47 2003
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] permission denied Fehler unter win98se
Message-ID: <3EC00CB0001ADCC3@raven.intern.zoo.tiscali.de> (added by postmaster@webmail.tiscali.de)

Hallo Freunde,

ich wei?, da? viele hier unter Linux programmieren, aber auch unter
Windows gibt es Active Perl.

ich habe unter Win98se verscuht ein Directory auszulesen und bekomme
die Fehlermeldung:  can't open directory <name>: permission denied!

Das ist mir unter Win98 v?llig unverst?ndlich, aber ich kann das
Problem nicht l?sen. Vielleicht wei? jemand von Euch Rat. Hier mein
kleines Programm:

#!/usr/bin/perl -w
use strict;     # do not allow implicit variable definition
use File::DosGlob 'glob';         # necessary for perl2exe compiler
use Cwd;

# directory to search for:
my $dir = 'c:\Eigene~1\pm-trans\kits\PREPARE\412c';
my $direntry = "";

 print "start\n";
open(DIR, "$dir")
  or die "can't open directory $dir: $!\n";

print "$dir\n";
my @dircontents = readdir(DIR);

print @dircontents;

#foreach $direntry (readdir(DIR)) {
foreach $direntry (sort @dircontents) {
  print "$direntry\n";
  next if $direntry eq ".";
  next if $direntry eq "..";

  print "directory: $direntry\n" if -d "$dir/$direntry";
  print "file: $direntry\n" if -f "$dir/$direntry";
}
close(DIR);


Ich habe im Verzeichnisnamen schon "Eigene Dateien" durch "Eigene~1"
ersetzt, doch das hat auch nichts gebracht. Wer hat einen Tip f?r
mich?


With best compliments

           Peter Seitz
--

  Graz University of Technology, Austria - Fac. f. Civil Engineering
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

            Member of the Pegasus Mail Support Group
          Coordinator of the Pmail Translation Process

For information about translating Pegasus Mail, contact:
Han van den Bogaerde or Peter Seitz at
translation-coordinator@pmail.gen.nz

From domm at zsi.at  Fri May 16 05:31:58 2003
From: domm at zsi.at (Thomas Klausner)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] permission denied Fehler unter win98se
In-Reply-To: <3EC00CB0001ADCC3@raven.intern.zoo.tiscali.de>
References: <3EC00CB0001ADCC3@raven.intern.zoo.tiscali.de>
Message-ID: <20030516103158.GC14360@zsi.at>

Hi!

On Thu, May 15, 2003 at 03:19:47PM +0200, Peter Seitz wrote:

> ich habe unter Win98se verscuht ein Directory auszulesen und bekomme
> die Fehlermeldung:  can't open directory <name>: permission denied!
> 
> Das ist mir unter Win98 v?llig unverst?ndlich, aber ich kann das
> Problem nicht l?sen. Vielleicht wei? jemand von Euch Rat. Hier mein
> kleines Programm:

Ohne das Ding rennen zu lassen, nehme ich ml an es liegt daran:


> open(DIR, "$dir")
>   or die "can't open directory $dir: $!\n";

das muesste naemlich 
  opendir(DIR,"$dir") or die "..";
heissen

open macht ein FILEHANDLE auf
opendir ein DIRHANDLE


-- 
#!/usr/bin/perl                               http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}

From roland.bauer at fff.at  Sat May 17 13:13:35 2003
From: roland.bauer at fff.at (Roland Bauer)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] permission denied Fehler unter win98se
In-Reply-To: <3EC00CB0001ADCC3@raven.intern.zoo.tiscali.de> (added bypostmaster@webmail.tiscali.de)
References: <3EC00CB0001ADCC3@raven.intern.zoo.tiscali.de> (added bypostmaster@webmail.tiscali.de)
Message-ID: <Mahogany-0.64.2-568-20030517-201335.00@fff.at>

PS> ich habe unter Win98se verscuht ein Directory auszulesen und bekomme
PS> die Fehlermeldung:  can't open directory <name>: permission denied!

PS> # directory to search for:
PS> my $dir = 'c:\Eigene~1\pm-trans\kits\PREPARE\412c';

Ein weiterer Tip:

Den Pfad solltest Du sicherheitshalber so schreiben:
my $dir = 'c:\\Eigene~1\\pm-trans\\kits\\PREPARE\\412c';

Grund: Hauptsaechlich wegen 'bla\bla\bla\' 
Produziert ERROR: Can't find string terminator "'" anywhere before EOF at ...
Notwendig waere 'bla\bla\bla\\' 

Oder besser:
my $dir = 'c:/Eigene~1/pm-trans/kits/PREPARE/412c';

Oder, am besten:
use File::Spec::Functions qw(catdir); # auch catfile
my $dir = catdir('c:','Eigene~1','pm-trans','kits','PREPARE','412c');

Und, wenn Du willst, statt opendir/readdir:
use File::Slurp;
my @dirs = read_dir 'c:'; 
# Doku lesen ;-) ... '.' und '..' sind nicht dabei

"Eigene Dateien" sollte ?brigens passen.

Roland

-- 
Roland Bauer
http://www.fff.at/contact/ 



From marcel at noug.at  Mon May 19 16:21:55 2003
From: marcel at noug.at (Marcel Gruenauer)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] Wiener Perl-Monger-Treffen am Mittwoch, den 21. Mai 2003
Message-ID: <20030519212155.GA17839@localhost>

                                   EINLADUNG
                                      zum
                         Treffen der Wiener Perl-Monger
                                       am
                   Mittwoch, den 21. Mai 2003, um 19:00 Uhr
                                     in der
                    Hopfenstange, Kaiserstra?e 12, 1070 Wien

               Das Treffen wird im Rahmen des Clubabends der LUGA
                       (http://www.luga.at) veranstaltet.
       Es sind alle Perl-Benutzer und -Interessenten herzlich willkommen.

                              http://vienna.pm.org

     Das Lokal Hopfenstange befindet sich in der N?he des Westbahnhofs, die
              Mariahilferstra?e stadteinw?rts, erste Stra?e links.

Mit freundlichen Gr??en,
    Marcel Gr?nauer

-- 
We are Perl. Your table will be assimilated. Your waiter will adapt to
service us. Surrender your beer. Resistance is futile.
 -- London.pm strategy aka "embrace and extend" aka "mark and sweep"

From seitz at bzs.tu-graz.ac.at  Wed May 21 17:28:06 2003
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] permission denied Fehler unter win98se
Message-ID: <3EC9F8D00012CDBA@raven.intern.zoo.tiscali.de> (added by postmaster@webmail.tiscali.de)

On Fri, 16 May 2003 12:31:58 +0200
   Thomas Klausner <domm@zsi.at> wrote:

Hallo Thomas,

> Hi!
>
> On Thu, May 15, 2003 at 03:19:47PM +0200, Peter Seitz wrote:
>
> > ich habe unter Win98se verscuht ein Directory auszulesen und bekomme
> > die Fehlermeldung:  can't open directory <name>: permission denied!
> >
> > Das ist mir unter Win98 v?llig unverst?ndlich, aber ich kann das
> > Problem nicht l?sen. Vielleicht wei? jemand von Euch Rat. Hier mein
> > kleines Programm:
>
> Ohne das Ding rennen zu lassen, nehme ich ml an es liegt daran:
>
>
> > open(DIR, "$dir")
> >   or die "can't open directory $dir: $!\n";
>
> das muesste naemlich
>   opendir(DIR,"$dir") or die "..";
> heissen

Genau das wars. Hab ich wirklich ?berlesen :-{

>
> open macht ein FILEHANDLE auf
> opendir ein DIRHANDLE

Danke auch an Roland Bauer f?r die weiteren Tips.


With best compliments

           Peter Seitz
--

  Graz University of Technology, Austria - Fac. f. Civil Engineering
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

            Member of the Pegasus Mail Support Group
          Coordinator of the Pmail Translation Process

For information about translating Pegasus Mail, contact:
Han van den Bogaerde or Peter Seitz at
translation-coordinator@pmail.gen.nz

From Nagy at ubavie.gv.at  Thu May 22 04:59:27 2003
From: Nagy at ubavie.gv.at (Nagy Wilhelm)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] Perl/Tk Allgemeine Anfrage
Message-ID: <6D5BF24847A0A44AB725899D3CE6CB69013FA23F@pcmail4.ubavie.gv.at>

Hallo Ihr,

ich bin in der vielfalt der m?glichkeiten des perl/tk's verlorengegangen ;-)

Folgendes soll realisiert werden:
Ich m?chte ein xls ?nliches eingabetool erstellen (keine Formeln nur
eingabe!).
Also ein Scrollbares Grid-control. Ich habe einiges ausprobiert und nichts
hat so richtig geklappt - mal wars zu langsam, mal stuertzt es bei
grossen datenmengen (>128 zeilen bei 255 spalten) ab usw. -

Laufen solls compiliert in einer Win32 umgebung.
Ich verwende PerlApp Compiler aus dem SDK.

PERL: ActiveState:
This is perl, v5.6.1 built for MSWin32-x86-multi-thread

Meine konkreten Fragen sind:

* Hat jemand erfahrung auf Win32 umgebungen
* gibt es Fallstricke, oder positive Hinweise
* welche Widget verwendet man am beste,
  von welchen laesst man am besten die fingern.


Liebe Gruesse
\^/ili

Wilhelm Nagy
Umweltbundesamt GmbH.
Federal Environmental Agency Austria
Dept. Application Development

Spittelauer Laende 5
A-1090  Wien
tel: ++43-1-313 04 / 5340
mail: nagy@ubavie.gv.at
http://www.ubavie.gv.at

ASCII-Ribbon Campaign
"""""""""""""""""""""
No HTML or WORD in Mails
HTML is for WEB, Word is for Microsoft.






From domm at zsi.at  Thu May 22 05:16:29 2003
From: domm at zsi.at (Thomas Klausner)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] Perl/Tk Allgemeine Anfrage
In-Reply-To: <6D5BF24847A0A44AB725899D3CE6CB69013FA23F@pcmail4.ubavie.gv.at>
References: <6D5BF24847A0A44AB725899D3CE6CB69013FA23F@pcmail4.ubavie.gv.at>
Message-ID: <20030522101629.GD21450@zsi.at>

Hi!

On Thu, May 22, 2003 at 11:59:27AM +0200, Nagy Wilhelm wrote:

> ich bin in der vielfalt der m?glichkeiten des perl/tk's verlorengegangen ;-)

Sorry, mit perl/tk kenn ich mich nicht aus, aber /muss/ es tk sein?

Es gibt naemlich noch ein paar andere Toolkits/Module fuer
GUI-Programmierung in Perl (ich selber verwende eigentlich immer HTML, kenn
mich also auch bei diesen anderen Modulen nicht wirklich aus, aber
vielleicht ist ja was interessantes dabei)


wxPerl
http://wxperl.sourceforge.net/
http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html (von Jouke Visser)

Win31::GUI
http://sourceforge.net/projects/perl-win32-gui


-- 
#!/usr/bin/perl                               http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}

From max at sternwelten.at  Thu May 22 06:25:27 2003
From: max at sternwelten.at (maximilian attems)
Date: Mon Aug  2 21:39:11 2004
Subject: [Vienna-pm] Perl/Tk Allgemeine Anfrage
In-Reply-To: <6D5BF24847A0A44AB725899D3CE6CB69013FA23F@pcmail4.ubavie.gv.at>
References: <6D5BF24847A0A44AB725899D3CE6CB69013FA23F@pcmail4.ubavie.gv.at>
Message-ID: <20030522112527.GA965@mail.sternwelten.at>


On Thu, 22 May 2003, Nagy Wilhelm wrote:

> Hallo Ihr,
> 
> ich bin in der vielfalt der m?glichkeiten des perl/tk's verlorengegangen ;-)

vielleicht hilft dir folgendes perl/tk tutorial:
http://www.perl.com/lpt/a/1999/10/perltk/index.html

oder A Drag-and-Drop Primer for Perl/Tk
http://www.perl.com/lpt/a/2001/12/11/perltk.html

eventuel die perl/tk faq:
http://www.perl.com/doc/FAQs/tk/ptkTOC.html



-- 
?Wo ist das Wissen? Verschwunden in der Information.?
 (T.S. Eliot)
-------------- 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/pipermail/vienna-pm/attachments/20030522/0be6a352/attachment.bin