From alex at zit.at  Tue Mar 12 03:52:59 2002
From: alex at zit.at (Alexander Hammer)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Netzwerk-Sniffer
Message-ID: <20020312095259.16383.qmail@zit.at>

* * * vienna-pm-list * * *


Hi, Mongers!

Um einem laestigen DNS-Problem auf die Schliche zu kommen, habe
ich mit Net::Pcap einen kleinen Sniffer geschrieben, der auch in
die DNS-Pakete hineinschaut. 

Dummerweise stuerzt das Programm nach einiger Zeit mit "Out of
memory" ab. Ausserdem sollte es die gecaptureden Pakete mit
Net::Pcap::dump binary in eine Datei schreiben, was es
anscheinend auch nicht macht. 

Das DNS-Problem ist mittlerweile zwar geloest (alte bind-Version),
aber fuer zukuenftige Anwendungen haette ich die Fehler schon
ganz gerne beseitigt. 

Any ideas, was man da machen koennte? 

Alexander 


Hier das Programm: 

#!/usr/bin/perl -w 

$|=1; 

use Net::Pcap;
use Net::DNS::Packet;
use NetPacket::UDP;
use NetPacket::IP;
use NetPacket::Ethernet qw(:strip);
use NetAddr::IP; 

$netrange = new NetAddr::IP "192.168.1.1/22"; 

$device = Net::Pcap::lookupdev(\$err);
die "can't find device" unless $device; 

die ("can't find info for dev: $device\n")
 if (Net::Pcap::lookupnet($device,\$netnum,\$netmask,\$err)); 

print "Sniffing on device $device\n"; 

$desc = Net::Pcap::open_live($device,8192,1,360000,\$err); 

Net::Pcap::compile($desc, \$filter_t, "dst host 10.0.0.1 and src port 53", 
1, $netmask); 

Net::Pcap::setfilter($desc,$filter_t); 

$dumper = Net::Pcap::dump_open($desc,"dnsniff.log");
  die("Can't open logfile\n") unless $dumper;

Net::Pcap::loop($desc,-1,\&dns_filter,''); 

Net::Pcap::dump_close($dumper); 

Net::Pcap::close($desc); 


sub dns_filter {
  my ($user_data,$hdr,$pkt) = @_; 

  my $ip_obj = NetPacket::IP->decode(eth_strip($pkt));
  my $udp_obj = NetPacket::UDP->decode($ip_obj->{data}); 

  my $dns_data = $udp_obj->{data}; 

  (my $dns_obj, my $err2) = new Net::DNS::Packet(\$dns_data); 

  if (defined $dns_obj) { 

     my @answer=$dns_obj->answer; 

     my $flag=0; 

     foreach $ans (@answer) {
        if ($ans->type eq "A") { 

           my $ans_ip= new NetAddr::IP $ans->address;
           if ($ans_ip->within($netrange)) {
              $flag=1;
           }
        }
     }
     if ($flag == 1) {
        Net::Pcap::dump($dumper, $hdr ,$pkt);
        print ("$ip_obj->{src_ip}:$udp_obj->{src_port} -> 
$ip_obj->{dest_ip}:$udp_obj->{dest_port}\n");
        print $dns_obj->string."\n";
     }
  } else {
     print ("$ip_obj->{src_ip}:$udp_obj->{src_port} -> 
$ip_obj->{dest_ip}:$udp_obj->{dest_port}\n");
     print "Unreadable Packet: $err2\n";
     Net::Pcap::dump($dumper, $hdr, $pkt);
  }
} 

###
You are subscribed to vienna-pm-list as Alexander Hammer <alex@zit.at>
http://www.fff.at/fff/vienna.pm/

From mihi at gmx.at  Tue Mar 12 04:24:12 2002
From: mihi at gmx.at (Michael Bauer)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Extraktion von XML tags
Message-ID: <XFMail.20020312112412.mihi@gmx.at>

* * * vienna-pm-list * * *


Hallo liste

Brauche einen regex der mir alle XML tags aus einem string extrahiert.
s/[^(<.*?>)]//; Funktioniert nicht richtig. Also z.b. man hat
<addr>1.1.1.1</addr> und rauskommen sollt <addr><addr>. Irgendwie bin ich nicht
der hellste was regexes angeht. denn bei dem kommt ein <ddr>10.0.0.101</addr>
raus, was eindeutig nicht das erw?nschte ist ;)

gruss mihi

-- 
May the stability be with you!
PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc

###
You are subscribed to vienna-pm-list as Michael Bauer <mihi@gmx.at>
http://www.fff.at/fff/vienna.pm/

From bernd at gams.at  Tue Mar 12 04:42:36 2002
From: bernd at gams.at (Bernd Petrovitsch)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Extraktion von XML tags 
In-Reply-To: Your message of "Tue, 12 Mar 2002 11:24:12 +0100."
             <XFMail.20020312112412.mihi@gmx.at> 
References: <XFMail.20020312112412.mihi@gmx.at> 
Message-ID: <200203121042.g2CAgaW18408@frodo.gams.co.at>

* * * vienna-pm-list * * *


Michael Bauer <mihi@gmx.at> wrote:
>Brauche einen regex der mir alle XML tags aus einem string extrahiert.
>s/[^(<.*?>)]//; Funktioniert nicht richtig. Also z.b. man hat
><addr>1.1.1.1</addr> und rauskommen sollt <addr><addr>. Irgendwie bin ich nich
<addr><addr> oder <addr></addr> ?
>t
>der hellste was regexes angeht. denn bei dem kommt ein <ddr>10.0.0.101</addr>
>raus, was eindeutig nicht das erw?nschte ist ;)

Wie"suaber" ist das XML ?
Wenn sonst keine < und > vorkommen sollte es etwas wie
s/^[^<]*</</; s/>[^<]*</></g; s/>[^>]*$/>/;
tun. Wenn es doch auch CDATA oder so verwendet (und damit potentiell 
alles m?gliche strategisch gequotet sein kann), w?rd ich eher nach 
einem Modul suchen, das richtig parst.

	Bernd
-- 
Bernd Petrovitsch                              Email : bernd@gams.at
g.a.m.s gmbh                                  Fax : +43 1 205255-900
Prinz-Eugen-Stra?e 8                    A-1040 Vienna/Austria/Europe
                     LUGA : http://www.luga.at


###
You are subscribed to vienna-pm-list as Bernd Petrovitsch <bernd@gams.at>
http://www.fff.at/fff/vienna.pm/

From domm at zsi.at  Tue Mar 12 04:45:05 2002
From: domm at zsi.at (Thomas Klausner)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Extraktion von XML tags
In-Reply-To: <XFMail.20020312112412.mihi@gmx.at>; from mihi@gmx.at on Tue, Mar 12, 2002 at 11:24:12AM +0100
References: <XFMail.20020312112412.mihi@gmx.at>
Message-ID: <20020312114505.A374@zsi.at>

* * * vienna-pm-list * * *


Hi!

On Tue, Mar 12, 2002 at 11:24:12AM +0100, Michael Bauer wrote:
> Brauche einen regex der mir alle XML tags aus einem string extrahiert.
> s/[^(<.*?>)]//; Funktioniert nicht richtig. Also z.b. man hat
> <addr>1.1.1.1</addr> und rauskommen sollt <addr><addr>. Irgendwie bin ich nicht
> der hellste was regexes angeht. denn bei dem kommt ein <ddr>10.0.0.101</addr>
> raus, was eindeutig nicht das erw?nschte ist ;)
Ich wuerde mal ein CPAN-Modul vorschlagen, da gibts sicher was passendes
(kann allerdings nix konkretes empfehlen, weil ich mit XML so gut wie nix
mache)

Wenn's darum geht, die XML-Tags aufzulisten, sollte das gehen (allerdings
eher nur bei einfachen Dokumenten, Nesting oder Excapen von < oder > muesste
man da noch einbauen, weshalb ein Module sicher besser ist...

my $i='<addr>1.1.1.1</addr>';

while ($i=~/(<(.*?)>)/g) {
      print "$1\n";
}

-- 
 D_OMM      +---->  http://domm.zsi.at <-----+
 O_xyderkes |       neu:  Arbeitsplatz       |   
 M_echanen  | http://domm.zsi.at/d/d162.html |
 M_asteuei  +--------------------------------+


###
You are subscribed to vienna-pm-list as Thomas Klausner <domm@zsi.at>
http://www.fff.at/fff/vienna.pm/

From mihi at gmx.at  Tue Mar 12 04:50:46 2002
From: mihi at gmx.at (Michael Bauer)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Extraktion von XML tags
In-Reply-To: <200203121042.g2CAgaW18408@frodo.gams.co.at>
Message-ID: <XFMail.20020312115046.mihi@gmx.at>

* * * vienna-pm-list * * *



On 12-Mar-2002 Bernd Petrovitsch wrote:
> Wie"suaber" ist das XML ?
> Wenn sonst keine < und > vorkommen sollte es etwas wie
> s/^[^<]*</</; s/>[^<]*</></g; s/>[^>]*$/>/;

Das ist genau was ich gesucht habe hmm wollt das unbedingt in einen regex
wurschteln. aber geht ja auch mit mehreren. Das XML ist selbstgeneriert, und
ich will nicht auf XML::Parser oder darauf aufsetzenden modulen zur?ckgreifen. 

danke

gruss mihi.
-- 
Is there a spoon?
there is no spoon.
http://www.planetblackandwhite.com/blackandwhite/faq/#misc19
PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc

###
You are subscribed to vienna-pm-list as Michael Bauer <mihi@gmx.at>
http://www.fff.at/fff/vienna.pm/

From juffi at ai.univie.ac.at  Tue Mar 12 04:58:55 2002
From: juffi at ai.univie.ac.at (Johannes Fuernkranz)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Extraktion von XML tags
References: <XFMail.20020312112412.mihi@gmx.at>
Message-ID: <3C8DDF6F.4000600@ai.univie.ac.at>

* * * vienna-pm-list * * *


Michael Bauer wrote:
> * * * vienna-pm-list * * *
> 
> 
> Hallo liste
> 
> Brauche einen regex der mir alle XML tags aus einem string extrahiert.
> s/[^(<.*?>)]//; Funktioniert nicht richtig. Also z.b. man hat
> <addr>1.1.1.1</addr> und rauskommen sollt <addr><addr>. Irgendwie bin ich nicht
> der hellste was regexes angeht. denn bei dem kommt ein <ddr>10.0.0.101</addr>
> raus, was eindeutig nicht das erw?nschte ist ;)

Naja, ich glaube zumindest zu wissen, warum Deine Version nicht 
funktioniert: [] matcht einzelne Charakters, und der erste Charakter, 
der nicht einer von <.*?> ist, ist ein 'a', und der wird 
rausgeschmissen. Die anderen auch wenn Du hinten ein g dranschreibst 
(s/[^(<.*?>)]//g).

Einfacher ist es, alle Tags rauszuhauen:
s/<.*?>//g;
Aber wie man das verneint, weisz ich auch nicht. Interessante Frage.

Meine Loesung wuerde ja eher in die Richtung gehen:

my @tags = split />[^<^>]*</;

Das hat noch Kinderkrankheiten (z.B. werden die <> auszer beim ersten 
und letzten mit weggenommen, aber ich denke das kann man ausbuegeln.
Wenn Du allerdings wirklich alle Tokens in einem String brauchst, musz 
es sicher bessere Loesungen geben.

Auf jeden Fall taet mich auch interessieren, ob man patterns verneinen 
kann. Weisz das wer?

						Juffi

PS: Wieso Deine Version aus dem 1.1.1.1 ein 10.0.0.101 macht, weisz ich 
auch nicht. :-)

###
You are subscribed to vienna-pm-list as Johannes Fuernkranz <juffi@ai.univie.ac.at>
http://www.fff.at/fff/vienna.pm/

From seitz at bzs.tu-graz.ac.at  Wed Mar 13 00:33:58 2002
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Literatur fuer Perl GUI unter Windows
Message-ID: <200203130854.g2D8shb29162@cplinux.cp.de>

* * * vienna-pm-list * * *


Hallo Perl-Freunde,

kann mir jemand Literatur empfehlen, wie ich unter Windows mit Perl 
Programme schreiben kann, welche ein GUI haben. Ich habe gehoert, 
dass dies mittels TCL/TK moeglich sein soll, hab mich aber noch nicht 
naeher darum gekuemmert.

Ich benoetige Beispiele, wie man GUI unter Perl anpackt. Ich habe bis 
jetzt noch keine GUIs programmiert, aber irgendwann muss man ja mal 
damit anfangen :-)

Die Programme sollen spaeter auf Windows Compiliert werden. Den Link 
auf den Compiler kann ich bei Bedarf gerne raussuchen.

Danke fuer Euere 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
###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz@bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/

From BaierO at spardat.at  Wed Mar 13 05:02:21 2002
From: BaierO at spardat.at (Baier Oliver INT SD)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Conditional Operator ?
Message-ID: <1FCFCFC1F0830E4D93860866CACC07B6EEE0B3@m0114.s-mxs.net>

* * * vienna-pm-list * * *


Hi!

Um wegen einer kleinen Entscheidung nicht gleich ein ganzes
if-then-else Konstrukt zu basteln, habe ich mich fuer die
Verwendung des wesentlich kuerzeren Conditional parameters
entschieden.

Nur leider scheine ich bei dieser Funktion irgendwie auf
der Leitung zu stehen.

------- kurzes Script -------
#!/usr/local/bin/perl -w

$value = "100:10";

($value) = split /:/, $value;
print "$value => ";
$value > 20 ? $value = "groesser" : $value = "kleiner";
print "$value\n";
-----------------------------

----- Output des Scripts ----
100 => kleiner
-----------------------------

Warum entscheidet es sich fuer "kleiner",
wenn 100 doch eindeutig groesser als 20 ist?

mfg
Oliver
###
You are subscribed to vienna-pm-list as "Baier Oliver INT SD" <BaierO@spardat.at>
http://www.fff.at/fff/vienna.pm/

From BaierO at spardat.at  Wed Mar 13 05:21:55 2002
From: BaierO at spardat.at (Baier Oliver INT SD)
Date: Thu Aug  5 00:23:55 2004
Subject: AW: [vienna.pm] Conditional Operator ?
Message-ID: <1FCFCFC1F0830E4D93860866CACC07B62E79A8@m0114.s-mxs.net>

* * * vienna-pm-list * * *



man sollte halt genauer auf die Syntax schauen...

habe das Dokubeispiel
	$a = $ok ? $b : $c;
gleich mit meinem Fall
	$a > $ok ? $b : $c;
assoziiert.

Das das = bei diesem Fehlvergleich eigentlich ein ==
sein muesste, habe ich nur unbewusst mitbekommen
und ignoriert.

Danke fuer die Aufdeckung *peinlich*
Oliver


> -----Urspr?ngliche Nachricht-----
> Von: Lukas Ertl [mailto:l.ertl@univie.ac.at]
> Gesendet: Mittwoch, 13. M?rz 2002 12:08
> An: Baier Oliver INT SD
> Cc: vienna-pm-list@happyfunball.pm.org
> Betreff: Re: [vienna.pm] Conditional Operator ?
> 
> 
> On Wed, 13 Mar 2002, Baier Oliver INT SD wrote:
> 
> > Nur leider scheine ich bei dieser Funktion irgendwie auf
> > der Leitung zu stehen.
> >
> > ------- kurzes Script -------
> > #!/usr/local/bin/perl -w
> >
> > $value = "100:10";
> >
> > ($value) = split /:/, $value;
> > print "$value => ";
> > $value > 20 ? $value = "groesser" : $value = "kleiner";
> > print "$value\n";
> > -----------------------------
> 
> $value = ($value > 20) ? "groesser" : "kleiner";
> 
> lg,
> le
> 
> -- 
> Lukas Ertl                             eMail: l.ertl@univie.ac.at
> UNIX-Systemadministrator               Tel.:  (+43 1) 4277-14073
> Zentraler Informatikdienst (ZID)       Fax.:  (+43 1) 4277-9140
> der Universit?t Wien                   
> http://mailbox.univie.ac.at/~le/
> 
> 
###
You are subscribed to vienna-pm-list as "Baier Oliver INT SD" <BaierO@spardat.at>
http://www.fff.at/fff/vienna.pm/

From hjp at wsr.ac.at  Wed Mar 13 05:55:18 2002
From: hjp at wsr.ac.at (Peter J. Holzer)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Extraktion von XML tags
In-Reply-To: <3C8DDF6F.4000600@ai.univie.ac.at>; from juffi@ai.univie.ac.at on Tue, Mar 12, 2002 at 11:58:55AM +0100
References: <XFMail.20020312112412.mihi@gmx.at> <3C8DDF6F.4000600@ai.univie.ac.at>
Message-ID: <20020313125518.D682@wsr.ac.at>

On 2002-03-12 11:58:55 +0100, Johannes Fuernkranz wrote:
> * * * vienna-pm-list * * *
> 
> 
> Michael Bauer wrote:
> > * * * vienna-pm-list * * *
> > 
> > 
> > Hallo liste
> > 
> > Brauche einen regex der mir alle XML tags aus einem string extrahiert.
> > s/[^(<.*?>)]//; Funktioniert nicht richtig.
> 
> Naja, ich glaube zumindest zu wissen, warum Deine Version nicht 
> funktioniert: [] matcht einzelne Charakters, und der erste Charakter, 
> der nicht einer von <.*?> ist, ist ein 'a', und der wird 
> rausgeschmissen. Die anderen auch wenn Du hinten ein g dranschreibst 
> (s/[^(<.*?>)]//g).

So ist es.

> Einfacher ist es, alle Tags rauszuhauen:
> s/<.*?>//g;
> Aber wie man das verneint, weisz ich auch nicht. Interessante Frage.
> 
> Meine Loesung wuerde ja eher in die Richtung gehen:
> 
> my @tags = split />[^<^>]*</;

Wie w?r's mit:

my @tags = grep /^</, split /(<.*?>)/;

	hp

-- 
   _  | Peter J. Holzer      | My definition of a stupid question is
|_|_) | Sysadmin WSR / LUGA  | "a question that if you're embarassed to
| |   | hjp@wsr.ac.at        | ask it, you stay stupid."
__/   | http://www.hjp.at/   |    -- Tim Helck on dbi-users, 2001-07-30
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 431 bytes
Desc: not available
Url : http://mail.pm.org/archives/vienna-pm/attachments/20020313/446e9b79/attachment.bin
From hjp at wsr.ac.at  Wed Mar 13 06:06:41 2002
From: hjp at wsr.ac.at (Peter J. Holzer)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Conditional Operator ?
In-Reply-To: <1FCFCFC1F0830E4D93860866CACC07B6EEE0B3@m0114.s-mxs.net>; from BaierO@spardat.at on Wed, Mar 13, 2002 at 12:02:21PM +0100
References: <1FCFCFC1F0830E4D93860866CACC07B6EEE0B3@m0114.s-mxs.net>
Message-ID: <20020313130641.E682@wsr.ac.at>

On 2002-03-13 12:02:21 +0100, Baier Oliver INT SD wrote:
> Um wegen einer kleinen Entscheidung nicht gleich ein ganzes
> if-then-else Konstrukt zu basteln, habe ich mich fuer die
> Verwendung des wesentlich kuerzeren Conditional parameters
> entschieden.
> 
> Nur leider scheine ich bei dieser Funktion irgendwie auf
> der Leitung zu stehen.
> 
> ------- kurzes Script -------
> #!/usr/local/bin/perl -w
> 
> $value = "100:10";
> 
> ($value) = split /:/, $value;
> print "$value => ";
> $value > 20 ? $value = "groesser" : $value = "kleiner";
> print "$value\n";
> -----------------------------
> 
> ----- Output des Scripts ----
> 100 => kleiner
> -----------------------------
> 
> Warum entscheidet es sich fuer "kleiner",
> wenn 100 doch eindeutig groesser als 20 ist?

perldoc perlop:

           right       ?:
           right       = += -= *= etc.

?: bindet also st?rker als =, daher ist das, was Du geschrieben hast,
?quivalent zu:

    ($value > 20 ? $value = "groesser" : $value) = "kleiner";

Wenn also $value > als 20 ist, bekommt $value den Wert gr??er, sonst
passiert nichts, der Wert des Klammerausdrucks ist aber auf jeden Fall
der L-Value $value. Man kann den Ausdruck also zu

    $value = "kleiner";

vereinfachen. 



Du h?ttest schreiben m?ssen:

    $value > 20 ? $value = "groesser" : ($value = "kleiner");

Da `$value = ' in beiden H?lften das Ausdrucks vorkommt, kann man es
herausziehen (immer gut, wenn man algebraische Umformungen, die man
schon in der Volksschule gelernt hat, auch in Programmiersprachen
anwenden kann :-) und den Ausdruck zu 

    $value = $value > 20 ? "groesser" : "kleiner";

umformen. Das ist die Form, die man meistens verwendet.

	hp

-- 
   _  | Peter J. Holzer      | My definition of a stupid question is
|_|_) | Sysadmin WSR / LUGA  | "a question that if you're embarassed to
| |   | hjp@wsr.ac.at        | ask it, you stay stupid."
__/   | http://www.hjp.at/   |    -- Tim Helck on dbi-users, 2001-07-30
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 431 bytes
Desc: not available
Url : http://mail.pm.org/archives/vienna-pm/attachments/20020313/a919e854/attachment.bin
From juffi at ai.univie.ac.at  Wed Mar 13 06:12:42 2002
From: juffi at ai.univie.ac.at (Johannes Fuernkranz)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Extraktion von XML tags
References: <XFMail.20020312112412.mihi@gmx.at> <3C8DDF6F.4000600@ai.univie.ac.at> <20020313125518.D682@wsr.ac.at>
Message-ID: <3C8F423A.90405@ai.univie.ac.at>

* * * vienna-pm-list * * *


> Wie w?r's mit:
> 
> my @tags = grep /^</, split /(<.*?>)/;
> 
> 	hp

Sehr huebsch! Der Trick mit den Klammern im Pattern ist mir neu. Das 
h?tt ich schon ?fter gebraucht!

						Juffi

###
You are subscribed to vienna-pm-list as Johannes Fuernkranz <juffi@ai.univie.ac.at>
http://www.fff.at/fff/vienna.pm/

From f.helmberger at uptime.at  Wed Mar 13 08:07:16 2002
From: f.helmberger at uptime.at (Florian Helmberger)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Literatur fuer Perl GUI unter Windows
In-Reply-To: <200203130854.g2D8shb29162@cplinux.cp.de>
Message-ID: <OPEOLKEAAIMGBAMJNACKKEFMDOAA.f.helmberger@uptime.at>

* * * vienna-pm-list * * *


Hi.

> kann mir jemand Literatur empfehlen, wie ich unter Windows mit Perl
> Programme schreiben kann, welche ein GUI haben. Ich habe gehoert,
> dass dies mittels TCL/TK moeglich sein soll, hab mich aber noch nicht
> naeher darum gekuemmert.

Es gibt zumindest zwei von O'Reilly:

http://www.amazon.com/exec/obidos/ASIN/B00005UL4M/qid=1016028363/sr=8-3/ref=
sr_8_71_3/002-7125648-7567202
http://www.oreilly.com/catalog/mastperltk/

Ein Artikel von O'Reilly:

http://www.amazon.com/exec/obidos/ASIN/B00005UL4M/qid=1016028363/sr=8-3/ref=
sr_8_71_3/002-7125648-7567202

Ein interessanter Artikel von perl.com, der mich erst zu dem Thema gebracht
hat:

http://www.perl.com/pub/a/2001/08/27/bjornstad.html

LG,
Florian



-- Passed the mailscanner.

###
You are subscribed to vienna-pm-list as "Florian Helmberger" <f.helmberger@uptime.at>
http://www.fff.at/fff/vienna.pm/

From martin at leyrer.priv.at  Wed Mar 13 09:13:39 2002
From: martin at leyrer.priv.at (Martin 'm3' Leyrer)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Literatur fuer Perl GUI unter Windows
In-Reply-To: <200203130854.g2D8shb29162@cplinux.cp.de>
Message-ID: <3C8F7AB3.23665.13E4C0A@localhost>

* * * vienna-pm-list * * *


Am 13 Mar 2002 um 7:33, schrieb Peter Seitz:

> kann mir jemand Literatur empfehlen, wie ich unter Windows mit Perl
> Programme schreiben kann, welche ein GUI haben. Ich habe gehoert, dass
> dies mittels TCL/TK moeglich sein soll, hab mich aber noch nicht naeher
> darum gekuemmert.

Unter http://www.perl.com/pub/q/Article_Archive#User%20Interfaces gibts ein paar 
Artikel - der Point-of-Sale mit Perl/Tk ist nicht schlecht und mit Beispielen.

HTH
-- 
Martin 'm3' Leyrer

Die Meldung zur Mail:
SWAG (Scientifc Wild Ass Guess)


###
You are subscribed to vienna-pm-list as "Martin 'm3' Leyrer" <martin@leyrer.priv.at>
http://www.fff.at/fff/vienna.pm/

From BaierO at spardat.at  Tue Mar 26 09:05:30 2002
From: BaierO at spardat.at (Baier Oliver INT SD)
Date: Thu Aug  5 00:23:55 2004
Subject: [vienna.pm] Apache CGIs parsen
Message-ID: <1FCFCFC1F0830E4D93860866CACC07B62E79C2@m0114.s-mxs.net>

* * * vienna-pm-list * * *


Hi!

Habe das Problem, dass ich mit meinem "customized_error_cgi"
nur Parameter auslesen und bearbeiten, nicht aber gleich eine
dynamische Page inkludieren kann.

Es scheint mir, dass sich "Options Includes" und "AddHandler
server-parsed" nicht vertragen.

Die derzeitige Loesung ist ein $cgi->redirect auf die dynamische
Seite mit den entsprechenden Parametern angehaengt, aber schoener
waere halt doch gleich ein virtual include.

Gibt's da eine Moeglichkeit?

mfg
Oliver
###
You are subscribed to vienna-pm-list as "Baier Oliver INT SD" <BaierO@spardat.at>
http://www.fff.at/fff/vienna.pm/