From mihi at gmx.at Sat Nov 3 06:47:07 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] Verzweiflung mit hasharrays Message-ID: * * * vienna-pm-list * * * Hallo mongers, lang nicht mehr gesehn. Verzweifle grad mit hash arrays und zwar folgendes: while ($d=shift @emnrc) { if ($opt == 2) {$opt--;} if ($d eq "opt\n") {$opt=2; $n++;}; if ($opt==1) {($name,$value)=split '=',$d; $menu[$n]{$name}=$value; }} %bb=$menu[0]; foreach $key (keys %bb) { print $key $bb{$key}; } warum gibt mir das nix aus? @emnrc { "opt\n", "name=foo", "value=bar" }; sollte doch eigentlich namefoovaluebar ausgeben nich? oder hab ich da was falsch verstanden. gruss in verzweiflung mihi -- At end of article, press SPACE for next unread article. PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From marcel.gruenauer at chello.at Sat Nov 3 07:44:48 2001 From: marcel.gruenauer at chello.at (Marcel Grunauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] Verzweiflung mit hasharrays In-Reply-To: Message-ID: <20011103134424.TFLE10991.viefep15-int.chello.at@localhost> * * * vienna-pm-list * * * Hi Michael, zunaechst mal: immer 'use strict' und 'use warnings' (-w vor Version 5.6). Immer! Immer! > @emnrc { "opt\n", > "name=foo", > "value=bar" }; Ich nehme an, Du meinst my @emnrc = ( "opt\n", "name=foo", "value=bar" ); D.h. runde statt geschwungener Klammern, sodass Du eine Liste von drei Elementen hast, nicht eine Liste von einem Element, das ein hashref ist. Oder? Was macht das $opt und $n eigentlich? Das geht doch sicher einfacher. Vielleicht, wenn Du's erklaerst, was das ganze Codestueck tun soll, kann man's vereinfachen. > %bb=$menu[0]; Allenfalls ist in $menu[1] was drin, da Du ja $n erhoeht hast. Und $menu[1] ist ein hashref, also musst Du es dereferenzieren: my %bb = %{ $menu[1] }; Mit 'warnings' haettest Du hier eine Fehlermeldung bekommen. > print $key $bb{$key}; Das hier verwendet $key als filehandle. Vielleicht meinst Du print $key, $bb{$key}; oder print $key . $bb{$key}; oder print "$key $bb{$key}"; Siehe "perldoc -f print". Ein einfaches Hilfsmittel, um herauszufinden, wie die von Dir erzeugte Struktur aussieht, ist Data::Denter (oder Data::Dumper) zu verwenden. Data::Dumper ist ein Standardmodul; Data::Denter musst Du zwar erst installieren, ist aber bei weitem uebersichtlicher. also use Data::Denter; print Denter \@menu; am Ende. Nach Einruecken, 'use strict', 'use warnings' und Entfernung ueberfluessiger Interpunktion kommt raus: #!/usr/bin/perl use warnings; use strict; use Data::Denter; my $opt = 0; my $n = 0; my @menu; my @emnrc = ( "opt\n", "name=foo", "value=bar" ); while (my $d = shift @emnrc) { $opt-- if $opt == 2; if ($d eq "opt\n") { $opt=2; $n++ } if ($opt==1) { my ($name,$value) = split '=', $d; $menu[$n]{$name} = $value; } } print Denter \@menu; my %bb = %{ $menu[1] }; foreach my $key (keys %bb) { print $key.$bb{$key}; } und gibt aus: @ ? % name => foo value => bar valuebarnamefoo Die ersteren Zeilen stammen von Data::Denter. Das '?' heisst, dass $menu[0] undefiniert ist. Siehe 'perldoc Data::Denter'. Marcel -- Aspect-Oriented Perl http://codewerk.unixbeard.net/aspects/ cpan> install Aspect ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Sun Nov 4 07:15:15 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] Verzweiflung mit hasharrays In-Reply-To: <20011103134424.TFLE10991.viefep15-int.chello.at@localhost> Message-ID: * * * vienna-pm-list * * * > zunaechst mal: immer 'use strict' und 'use warnings' (-w vor Version > 5.6). Ja ich werds ja machen, tut leid;) > my @emnrc = ( > "opt\n", > "name=foo", > "value=bar" > ); ja stimmt war ein bisschen zu schnell.. > Was macht das $opt und $n eigentlich? Das geht doch sicher einfacher. > Vielleicht, wenn Du's erklaerst, was das ganze Codestueck tun soll, > kann man's vereinfachen. naja es soll nen array (@emnrc) analysieren, das kommt aus nem file die erste zeile eines eintrages ist immer opt dann kommt name=value name2=value2 usw... > >> %bb=$menu[0]; > > Allenfalls ist in $menu[1] was drin, da Du ja $n erhoeht hast. stimmt schon $n = -1; steht davor. > Und $menu[1] ist ein hashref, also musst Du es dereferenzieren: > > my %bb = %{ $menu[1] }; o.k. da liegt der fehler. > > Mit 'warnings' haettest Du hier eine Fehlermeldung bekommen. *rotwerd* > >> print $key $bb{$key}; > > Das hier verwendet $key als filehandle. Vielleicht meinst Du scheisse hab mich vertan, warnings hätt da auch was gespuckt (write on closed filehandle oder so nich?) > Siehe "perldoc -f print". print ist mir durchaus bekannt. > use Data::Denter; > print Denter \@menu; thx mal anschaun. [...] danke. Sorry aber muss noch an meinem perl-stil arbeiten ;) wirklich mit strict komm ich noch nicht zurecht ;) gruss mihi -- Failure is not an option. It comes bundled with your Microsoft product. PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Mon Nov 5 22:00:05 2001 From: mihi at gmx.at (vienna.pm reminder) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] [ANNOUNCE] vienna.pm treffen Message-ID: * * * vienna-pm-list * * * Hallo leute, wir treffen uns am nächsten dienstag den 13.11. um 19 uhr im Hopfenstange, Kaiserstraße 12, 1070 Wien. kommt zahlreich! euer reminder. Anreise: http://www.unet.univie.ac.at/~a9900470/perlmap.jpg ### You are subscribed to vienna-pm-list as "vienna.pm reminder" http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Fri Nov 9 07:34:15 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] [ANNOUNCE] vienna.pm treffen In-Reply-To: Message-ID: * * * vienna-pm-list * * * On 06-Nov-2001 vienna.pm reminder wrote: > Hallo leute, > wir treffen uns am nächsten dienstag den 13.11. um 19 uhr im Hopfenstange, > Kaiserstraße 12, 1070 Wien. kommt zahlreich! > euer reminder. Hat jemand lust zu kommen? Ich schon. 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 http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Fri Nov 9 07:52:16 2001 From: hjp at wsr.ac.at (Peter J . Holzer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] [ANNOUNCE] vienna.pm treffen In-Reply-To: ; from mihi@gmx.at on Fri, Nov 09, 2001 at 02:34:15PM +0100 References: Message-ID: <20011109145216.C23779@wsr.ac.at> On 2001-11-09 14:34:15 +0100, Michael Bauer wrote: > On 06-Nov-2001 vienna.pm reminder wrote: > > Hallo leute, > > wir treffen uns am n?chsten dienstag den 13.11. um 19 uhr im Hopfenstange, > > Kaiserstra?e 12, 1070 Wien. kommt zahlreich! > > euer reminder. > > Hat jemand lust zu kommen? Ich schon. Ich auch. 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: 427 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20011109/cd726d88/attachment.bin From toni at soth.at Fri Nov 9 08:19:51 2001 From: toni at soth.at (Toni Andjelkovic) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] [ANNOUNCE] vienna.pm treffen In-Reply-To: <20011109145216.C23779@wsr.ac.at>; from hjp@wsr.ac.at on Fri, Nov 09, 2001 at 02:52:16PM +0100 References: <20011109145216.C23779@wsr.ac.at> Message-ID: <20011109151951.N368@titan.soth.at> * * * vienna-pm-list * * * Peter J . Holzer wrote on Fri, Nov 09 2001 (14:52:16 +0100): > > Hat jemand lust zu kommen? Ich schon. > Ich auch. diesmal versuch ich's auch. cu, -- Toni Andjelkovic ### You are subscribed to vienna-pm-list as Toni Andjelkovic http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Mon Nov 12 06:57:55 2001 From: roland.bauer at fff.at (roland.bauer@fff.at) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] [announce] vienna.pm treffen Message-ID: * * * vienna-pm-list * * * > > > Hat jemand lust zu kommen? Ich schon. > > Ich auch. > diesmal versuch ich's auch. ich hab auch vor zu kommen (muss aber frueher weg) roland ### You are subscribed to vienna-pm-list as http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Wed Nov 14 02:41:52 2001 From: roland.bauer at fff.at (roland.bauer@fff.at) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] Modul XTM-0.24 - XML Topic Maps Message-ID: * * * vienna-pm-list * * * Hallo, Linktips mit Perl-Hintergrund: http://search.cpan.org/recent http://search.cpan.org/search?dist=XTM-0.24 http://www.topicmaps.org/xtm/1.0/ Bittet postet hier Eure Links, wenn Ihr ueber etwas Interessantes stolpert, was mich interessieren koennte ;-) Roland -- roland.bauer@fff.at http://www.fff.at/ ### You are subscribed to vienna-pm-list as http://www.fff.at/fff/vienna.pm/ From marcel.gruenauer at chello.at Wed Nov 14 04:48:44 2001 From: marcel.gruenauer at chello.at (Marcel Grunauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] Modul XTM-0.24 - XML Topic Maps In-Reply-To: Message-ID: <20011114104754.FMUY1238.viefep16-int.chello.at@localhost> * * * vienna-pm-list * * * > Bittet postet hier Eure Links, wenn Ihr ueber > etwas Interessantes stolpert, was mich > interessieren koennte ;-) Na sowas. Zufall. Ich hab auch gerade begonnen, mich fuer Topic Maps zu interessieren. Ich gehe davon aus, dass ihr am Dienstag darueber gesprochen habt. http://www.ontopia.net/topicmaps/learn_more.html http://www.topicmaps.org/ http://topicmaps.bond.edu.au/ http://www.infoloom.com/tmartic.htm Ich wuerde mich gerne mit Leuten, die an XTM (und TM i.A.) interessiert sind, mal in einem Kaffeehaus oder so zusammensetzen. Aktuelle Fragen (von meiner Seite) sind etwa, wie weit XTM.pm die XTM Specification unterstuetzt, ein Parser fuer LTM (linear topic map notation) waere interessant (und bin schon dabei, ihn mit Parse::RecDescent zu basteln). Und eine query language. TMQL ist im Gespraech, aber als Anhaenger der Logikprogrammierung scheint mir tolog (auch vom ersten der obenstehenden Links referenziert), eine an Prolog angelehnte query language, interessanter. Mich wuerde auch interessieren, wofuer ihr TMs einsetzen wollt. Mir schweben da einige Anwendungen vor, die vermutlich auch kommerziell interessant werden koennten. Reden wir darueber. Wann? Wo? Bin flexibel. Marcel -- Aspect-Oriented Perl http://codewerk.unixbeard.net/aspects/ cpan> install Aspect ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel.gruenauer at chello.at Wed Nov 14 14:30:01 2001 From: marcel.gruenauer at chello.at (Marcel Grunauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] Topic Maps wieder Message-ID: <20011114202918.JIPI1238.viefep16-int.chello.at@localhost> * * * vienna-pm-list * * * Weitere Topic Map-Links: http://index.bonn.iz- soz.de/~sigel/veroeff/ISI-2000/resources/companies.html http://index.bonn.iz-soz.de/~sigel/veroeff/XTM-Book/ Das sind Seiten von Alexander Sigel, der auch den Deutschen Perl-Workshop im Februar mitorganisiert. Wir machen dort vielleicht einen XTM-BOF (birds of a feather; Gespraechskreis von Leuten, die an einem Thema interessiert sind). Marcel -- Aspect-Oriented Perl http://codewerk.unixbeard.net/aspects/ cpan> install Aspect ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Fri Nov 30 15:55:56 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] spass mit split Message-ID: * * * vienna-pm-list * * * foreach(split'','question'){$w+=ord($_);} foreach(split'',$w){$n+=$_} @n=split'',$n; $answer=$n[1].$n[0]; print $answer; kann man das irgendwie optimieren? gruss mihi -- geeks don't need sex, geeks write kernel-patches PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From marcel.gruenauer at chello.at Fri Nov 30 17:19:50 2001 From: marcel.gruenauer at chello.at (Marcel Grunauer) Date: Thu Aug 5 00:23:50 2004 Subject: [vienna.pm] spass mit split In-Reply-To: Message-ID: <20011130231820.JCBY1236.viefep14-int.chello.at@localhost> * * * vienna-pm-list * * * > foreach(split'','question'){$w+=ord($_);} > foreach(split'',$w){$n+=$_} > @n=split'',$n; > $answer=$n[1].$n[0]; > print $answer; > > kann man das irgendwie optimieren? Sicher. print 42; Oder nicht unbedingt optimiert, aber etwas formschoener: $w += ord for split // => 'question'; $n += $_ for split // => $w; print reverse split // => $n; Marcel -- Aspect-Oriented Perl http://codewerk.unixbeard.net/aspects/ cpan> install Aspect ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/