From Oliver.Baier at lotterien.at Mon Sep 4 01:40:03 2006 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Mon, 4 Sep 2006 10:40:03 +0200 Subject: [Vienna-pm] Trennzeile - das ewig muehsame Message-ID: <11FC899FAE8B8748AB9E591B1454774401578D76@EXCHCLU01.office.lottery.co.at> Hi, ich habe eine Liste, die mehrere zusammenhaengende Bloecke beinhaltet und will zwischen jedem Block eine Trennzeile ausgeben; allerdings nicht in der allerersten Zeile. Da das End-Pattern variabel ist, bin ich vom Anfangspattern abhaengig und auf Anhieb sind mir mal folgende haessliche Ansaetze eingefallen: A) my $row = 0; foreach (sort @out) { print "-" x 80 ,"\n" if /Anfangspattern/ && $row++ != 0; print; } Nachteil: Counter mitschleppen B) foreach (sort @out) { print "-" x 80 ,"\n" if /Anfangspattern/ && $_ !~ $out[0]; print; } Nachteil: wiederholtes Pattern matching C) my @sorted = sort @out; foreach my $i (0 .. $#sorted) { print "-" x 80 ,"\n" if $sorted[$i] =~ /Anfangspattern/ && $i != 0; print $sorted[$i]; } Nachteil: extra sortierte Liste Eigentlich suche ich ein: foreach (sort @out) { print "-" x 80 ,"\n" if /Anfangspattern/ && $_ ; print; } aber das gibt es ja glaub ich nicht auf diese Weise. Wie loest ihr diese Trennzeilenprobleme immer? lg Oliver From wilhelm.nagy at umweltbundesamt.at Mon Sep 4 01:52:06 2006 From: wilhelm.nagy at umweltbundesamt.at (Nagy Wilhelm) Date: Mon, 4 Sep 2006 10:52:06 +0200 Subject: [Vienna-pm] WG: Trennzeile - das ewig muehsame Message-ID: <72BF39602187F24A9F9538B8BAE2993EA3FAEE@PCMAIL1.umweltbundesamt.at> Ich verwende immer die 'Counter' Methode (A), - Leicht zu verstehen - leicht zu warten lg \^/ili -----Urspr?ngliche Nachricht----- Von: vienna-pm-bounces+wilhelm.nagy=umweltbundesamt.at at pm.org [mailto:vienna-pm-bounces+wilhelm.nagy=umweltbundesamt.at at pm.org] Im Auftrag von Baier Oliver Gesendet: Montag, 04. September 2006 10:40 An: vienna-pm at pm.org Betreff: [Vienna-pm] Trennzeile - das ewig muehsame Hi, ich habe eine Liste, die mehrere zusammenhaengende Bloecke beinhaltet und will zwischen jedem Block eine Trennzeile ausgeben; allerdings nicht in der allerersten Zeile. Da das End-Pattern variabel ist, bin ich vom Anfangspattern abhaengig und auf Anhieb sind mir mal folgende haessliche Ansaetze eingefallen: A) my $row = 0; foreach (sort @out) { print "-" x 80 ,"\n" if /Anfangspattern/ && $row++ != 0; print; } Nachteil: Counter mitschleppen B) foreach (sort @out) { print "-" x 80 ,"\n" if /Anfangspattern/ && $_ !~ $out[0]; print; } Nachteil: wiederholtes Pattern matching C) my @sorted = sort @out; foreach my $i (0 .. $#sorted) { print "-" x 80 ,"\n" if $sorted[$i] =~ /Anfangspattern/ && $i != 0; print $sorted[$i]; } Nachteil: extra sortierte Liste Eigentlich suche ich ein: foreach (sort @out) { print "-" x 80 ,"\n" if /Anfangspattern/ && $_ ; print; } aber das gibt es ja glaub ich nicht auf diese Weise. Wie loest ihr diese Trennzeilenprobleme immer? lg Oliver _______________________________________________ Vienna-pm mailing list Vienna-pm at pm.org http://mail.pm.org/mailman/listinfo/vienna-pm From KlausRusch at atmedia.net Mon Sep 4 01:52:52 2006 From: KlausRusch at atmedia.net (Klaus Johannes Rusch) Date: Mon, 04 Sep 2006 10:52:52 +0200 Subject: [Vienna-pm] Trennzeile - das ewig muehsame In-Reply-To: <11FC899FAE8B8748AB9E591B1454774401578D76@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774401578D76@EXCHCLU01.office.lottery.co.at> Message-ID: <44FBE964.1030806@atmedia.net> Baier Oliver wrote: >Eigentlich suche ich ein: > > foreach (sort @out) { > print "-" x 80 ,"\n" if /Anfangspattern/ && $_ >; > print; > } > >aber das gibt es ja glaub ich nicht auf diese Weise. >Wie loest ihr diese Trennzeilenprobleme immer? > > Noch zwei Varianten zur Auswahl: $notfirst = 0; foreach (sort @out) { print "-" x 80 ,"\n" if /pat/ && $notfirst; print; $notfirst ||= 1; } Oder @tmp = sort @out; print shift @tmp; foreach (@tmp) { print "-" x 80 ,"\n" if /pat/; print; } -- Klaus Johannes Rusch KlausRusch at atmedia.net http://www.atmedia.net/KlausRusch/ From Oliver.Baier at lotterien.at Mon Sep 4 03:57:38 2006 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Mon, 4 Sep 2006 12:57:38 +0200 Subject: [Vienna-pm] Trennzeile - das ewig muehsame Message-ID: <11FC899FAE8B8748AB9E591B1454774401578D7B@EXCHCLU01.office.lottery.co.at> Danke fuer euren Input. Das erste Element mit print shift rauszuziehen, ist eine nette Idee. Mal sehn, wieviele Bloecke es pro Liste durchschnittlich werden, dass sich das sort performancetechnisch auszahlt. lg Oliver > -----Urspr?ngliche Nachricht----- > Von: Klaus Johannes Rusch [mailto:KlausRusch at atmedia.net] > Gesendet: Montag, 04. September 2006 10:53 > An: Baier Oliver > Cc: vienna-pm at pm.org > Betreff: Re: [Vienna-pm] Trennzeile - das ewig muehsame > > Baier Oliver wrote: > > >Eigentlich suche ich ein: > > > > foreach (sort @out) { > > print "-" x 80 ,"\n" if /Anfangspattern/ && $_ > >; > > print; > > } > > > >aber das gibt es ja glaub ich nicht auf diese Weise. > >Wie loest ihr diese Trennzeilenprobleme immer? > > > > > Noch zwei Varianten zur Auswahl: > > $notfirst = 0; > foreach (sort @out) { > print "-" x 80 ,"\n" if /pat/ && $notfirst; > print; > $notfirst ||= 1; > } > > Oder > > @tmp = sort @out; > print shift @tmp; > foreach (@tmp) { > print "-" x 80 ,"\n" if /pat/; > print; > } > > -- > Klaus Johannes Rusch > KlausRusch at atmedia.net > http://www.atmedia.net/KlausRusch/ > > From Wolfgang.Laun at alcatel.at Tue Sep 5 23:19:31 2006 From: Wolfgang.Laun at alcatel.at (Wolfgang Laun) Date: Wed, 06 Sep 2006 08:19:31 +0200 Subject: [Vienna-pm] Trennzeile - das ewig muehsame In-Reply-To: <11FC899FAE8B8748AB9E591B1454774401578D76@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774401578D76@EXCHCLU01.office.lottery.co.at> Message-ID: <44FE6873.9080405@alcatel.at> Noch eine Variante: sub getSepBuilder { my $currSep = my $primSep = ""; my $succSep = shift; return sub { $currSep = $primSep; $primSep = $succSep; $currSep; } } my $getSep = getSepBuilder( ( '-' x 80 ) . "\n" ); foreach (@out){ print $getSep->() if /Anfang/; print; } mfg Wolfgang Baier Oliver wrote: >Hi, > >ich habe eine Liste, die mehrere zusammenhaengende Bloecke beinhaltet >und will zwischen jedem Block eine Trennzeile ausgeben; allerdings >nicht in der allerersten Zeile. Da das End-Pattern variabel ist, bin >ich vom Anfangspattern abhaengig und auf Anhieb sind mir mal folgende >haessliche Ansaetze eingefallen: > >A) my $row = 0; > foreach (sort @out) { > print "-" x 80 ,"\n" if /Anfangspattern/ && $row++ != 0; > print; > } > > Nachteil: Counter mitschleppen > >B) foreach (sort @out) { > print "-" x 80 ,"\n" if /Anfangspattern/ && $_ !~ >$out[0]; > print; > } > > Nachteil: wiederholtes Pattern matching > >C) my @sorted = sort @out; > foreach my $i (0 .. $#sorted) { > print "-" x 80 ,"\n" if $sorted[$i] =~ /Anfangspattern/ >&& $i != 0; > print $sorted[$i]; > } > > Nachteil: extra sortierte Liste > > >Eigentlich suche ich ein: > > foreach (sort @out) { > print "-" x 80 ,"\n" if /Anfangspattern/ && $_ >; > print; > } > >aber das gibt es ja glaub ich nicht auf diese Weise. >Wie loest ihr diese Trennzeilenprobleme immer? > >lg >Oliver >_______________________________________________ >Vienna-pm mailing list >Vienna-pm at pm.org >http://mail.pm.org/mailman/listinfo/vienna-pm > > From maros at k-1.com Wed Sep 6 01:36:01 2006 From: maros at k-1.com (Maros Kollar) Date: Wed, 06 Sep 2006 10:36:01 +0200 Subject: [Vienna-pm] Lokalisierung Message-ID: <44FE8871.6050707@k-1.com> Hallo Vienna.pm! Ich bastle gerade an einer gr??eren Applikation und mich qu?lt schon seit zwei Tagen das Thema Lokalisierung: Wie designe ich meine Klassen im Hinblick auf L10N am besten? Folgende Ausgangslage: - Ich habe eine Basisklassevon (nennen wir sie 'BASE') der sich beliebig viele Applikationsklassen (nennen wir sie 'MYAPPLICATION') ableiten. - Zus?tzlich zur Basisklasse habe ich eine Requestklasse (BASE::Request) welche f?r jeden Request ein Objekt erstellt, in welchem die aktuelle Sprache gespeichert wird. Analog zur Basisklasse gibt es f?r jede Applikation eine abgeleitete Requestklasse (MYAPPLICATION::Request). Jeder Request kann eine andere Sprache haben. Folgende Struktur f?r die L10N habe ich mir ?berlegt: - Eine globale Lokalisierungsklasse (sprachunabh?ngig) mit allen Methoden (BASE::L10N) - Eine globale Klasse pro Sprache (in der alle ?bersetzungen stehen) die von der globalen Lokalisierungsklasse erbt (z.B: BASE::L10N::de) - Eine abgeleitete Klasse pro Sprache und Applikation (in der eigene ?bersetzungen stehen, bzw. die globalen ?bersetzungen ?berladen werden k?nnen) (z.B: MYAPPLICATION::L10N::de) So weit so gut, jedoch stellt sich f?r mich das Problem wie ich die ?bersetzungs-Methode aufrufe. MYAPPLICATION::L10N::DE->translate('string'); Ich mag ja nicht ?berall in den hintersten Winkel den Namen der Applikationklasse und die gew?hlte Sprache durch reichen m?ssen. BASE::L10N->translate('string'); oder: use BASE::L10N qw(translate); translate('string'); So schon eher. Aber wie wei? die BASE::L10N Klasse welche Sprache und Applikationsklasse sie nehmen soll? Bisher habe ich die aktuell Sprache/Applikation in eine Klassenvariable in BASE::L10N geschrieben, aber das halte ich f?r ein bisserl gef?hrlich (wg. Mod_perl) und zudem f?r unelegant (diese Information hat imho in einer globalen Klasse nichts verloren) Habt Ihr irgendwelche Vorschl?ge wie man die Aufrufmethode oder gar die ganze Struktur besser gestalten kann, oder passt dass eh so wie es ist? Hat jemand mit so etwas schon Erfahrung? Bin f?r jeden sachdienlichen Hinweis dankbar Lg Maro? From bernd at firmix.at Wed Sep 6 01:40:56 2006 From: bernd at firmix.at (Bernd Petrovitsch) Date: Wed, 06 Sep 2006 10:40:56 +0200 Subject: [Vienna-pm] Lokalisierung In-Reply-To: <44FE8871.6050707@k-1.com> References: <44FE8871.6050707@k-1.com> Message-ID: <1157532056.2635.9.camel@tara.firmix.at> On Wed, 2006-09-06 at 10:36 +0200, Maros Kollar wrote: > Hallo Vienna.pm! > Ich bastle gerade an einer gr??eren Applikation und mich qu?lt schon > seit zwei Tagen das Thema Lokalisierung: Wie designe ich meine Klassen Gibt es einen besonderen Grund, da? nicht "einfach" per GNU-gettext + Infrastruktur zu erledigen? Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From domm at cpan.org Wed Sep 6 03:32:04 2006 From: domm at cpan.org (Thomas Klausner) Date: Wed, 6 Sep 2006 12:32:04 +0200 Subject: [Vienna-pm] Verlosung: Eintrittskarte zur EuroOSCON zu gewinnen! Message-ID: <20060906103204.GG26358@domm2.zsi.at> hiermal ein bissl spam... ----- Forwarded message from O'Reilly Verlag ----- From: O'Reilly Verlag Subject: Verlosung: Eintrittskarte zur EuroOSCON zu gewinnen! Date: Wed, 6 Sep 2006 11:56:13 +0200 (CEST) To: user_groups at oreilly.de Open Source-J?nger gesucht - wir verlosen eine =============================================== Eintrittskarte zur EuroOSCON! ============================== Sehr geehrte Leserinnen und Leser! Wollten Sie schon immer mal Rasmus Lerdorf ein PHP-Skript zeigen? Oder haben Sie einen Vorschlag f?r Herrn Hinrichs, dem Gr?nder der openBC-Plattform? Eine Frage an Jeff Waugh von Ubuntu? Auf der O'Reilly EuroOSCON haben Sie Gelegenheit. Beantworten Sie einfach diese Mail - und mit ein bisschen Gl?ck gewinnen Sie eine Eintrittskarte! Die englischsprachige Konferenz findet vom 18. bis. 21 September in Br?ssel statt. Weitere Informationen finden Sie unter: http://conferences.oreillynet.com/euos2006/ Mit freundlichen Gr??en Ihr O'Reilly Verlag P.S. Einsendeschlu? ist Freitag, der 08. September 2006, 12:00 Uhr. Im Gewinnfall werden Sie noch am gleichen Tag von uns benachrichtigt. ========================================================= Weitere Fragen und Anforderungen von Rezensionsexemplaren (bitte unter Angabe der gew?nschten Lieferanschrift) richten Sie bitte an ug at oreilly.de Coverabbildungen unserer Buecher finden Sie nach ISBN sortiert unter: ftp://ftp.oreilly.de/pub/ora/graphics/book_covers/hi-res/ Bitte lassen Sie uns Belegexemplare/Urls Ihrer Rezensionen zukommen. Vielen Dank! Wenn Sie diesen Informationsservice abbestellen moechten, schicken Sie bitte eine Mail mit folgendem Inhalt an majordomo at oreilly.de: unsubscribe user_groups IHRE-E-MAILADRESSE Tragen Sie diesen Text bitte nicht in die Betreffzeile, sondern in das Mitteilungsfeld des Mailprogramms ein. Wenn Sie Schwierigkeiten haben, wenden Sie sich bitte an listmaster at oreilly.de. ========================================================= O'Reilly Verlag GmbH & Co.KG, Balthasarstr. 81 50670 Koeln Tel.: +(49)-221-9731600 Fax.: +(49)-221-9731608 Geschaeftsfuehrer: Timothy O'Reilly, Elke Hansel Amtsgericht Koeln, HRA 13894, UST-IdNr.: DE 163372785 ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Wed Sep 6 03:35:49 2006 From: domm at cpan.org (Thomas Klausner) Date: Wed, 6 Sep 2006 12:35:49 +0200 Subject: [Vienna-pm] YAPC::Europe 2007 in Wien!!! Message-ID: <20060906103549.GH26358@domm2.zsi.at> Hi! Falls es jemand noch nicht mitbekommen haben sollte: Die YAPC::Europe 2007 findet vom 29 - 31 August 2007 in Wien statt. YAY!! http://use.perl.org/article.pl?sid=06/09/01/1524201 -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From spaceman at foo.at Wed Sep 6 04:18:41 2006 From: spaceman at foo.at (Stefan Weiss) Date: Wed, 06 Sep 2006 13:18:41 +0200 Subject: [Vienna-pm] Lokalisierung In-Reply-To: <1157532056.2635.9.camel@tara.firmix.at> References: <44FE8871.6050707@k-1.com> <1157532056.2635.9.camel@tara.firmix.at> Message-ID: <44FEAE91.3020109@foo.at> On 06/09/06 10:40, Bernd Petrovitsch wrote: > Gibt es einen besonderen Grund, da? nicht "einfach" per GNU-gettext + > Infrastruktur zu erledigen? Hab ich mir auch gedacht. Wobei gettext seine Grenzen hat, wenn parameterisierter Text ?bersetzt werden soll (Einzahl/Mehrzahl, m/w/s Artikel usw). Besonders auf Polnisch soll unangenehm zu ?bersetzen sein, wenn Mengenangaben vorkommen. Im CPAN hab ich einmal ein Modul gesehen, das um diese Schwierigkeiten herumkommt, aber an den Namen kann ich mich leider nimmer erinnern. Der Vorteil von gettext ist halt, dass es weit verbreitet ist (und die potentiellen ?bersetzer daran schon gew?hnt sein k?nnten), und dass es einige Meta-tools gibt. cheers, stefan From bernd at firmix.at Wed Sep 6 05:35:05 2006 From: bernd at firmix.at (Bernd Petrovitsch) Date: Wed, 06 Sep 2006 14:35:05 +0200 Subject: [Vienna-pm] Lokalisierung In-Reply-To: <44FEAE91.3020109@foo.at> References: <44FE8871.6050707@k-1.com> <1157532056.2635.9.camel@tara.firmix.at> <44FEAE91.3020109@foo.at> Message-ID: <1157546105.2635.87.camel@tara.firmix.at> On Wed, 2006-09-06 at 13:18 +0200, Stefan Weiss wrote: > On 06/09/06 10:40, Bernd Petrovitsch wrote: > > Gibt es einen besonderen Grund, da? nicht "einfach" per GNU-gettext + > > Infrastruktur zu erledigen? > > Hab ich mir auch gedacht. Wobei gettext seine Grenzen hat, wenn > parameterisierter Text ?bersetzt werden soll (Einzahl/Mehrzahl, m/w/s > Artikel usw). Besonders auf Polnisch soll unangenehm zu ?bersetzen sein, > wenn Mengenangaben vorkommen. Im CPAN hab ich einmal ein Modul gesehen, das Ja, aber ich seh' f?r das Problem dahinter keine einfache L?sung (au?er auf die ?bersetzung als solche zu verzichten) - egal, ob mit gettext oder etwas Msg-Ids+Tabellen oder sonstwas selbsterfundenen. Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From domm at cpan.org Mon Sep 18 06:50:36 2006 From: domm at cpan.org (Thomas Klausner) Date: Mon, 18 Sep 2006 15:50:36 +0200 Subject: [Vienna-pm] Fwd: 9. Deutscher Perl-Workshop / Call for Papers Message-ID: <20060918135035.GA13689@domm2.zsi.at> Hi! Deutscher Perl Workshop ist jetzt endlich offiziell: in Muenchen! Das ist nahe, d.h. IMO sollten ein paar von uns dort hinfahren (und auch gleich Werbung fuer die YAPC machen...) Hier koennten wir endlich mal die alte Perl-on-Rails-Idee umsetzten: Wir mieten uns ein Abteil im Zueg Wien->Muenchen, packen eine Wlan-Router ein und hacken die 4 Stunden im Zug irgendwas (oder auch verschiedenes...) ----- Forwarded message from ReneeB ----- From: ReneeB Subject: 9. Deutscher Perl-Workshop / Call for Papers Date: Fri, 15 Sep 2006 17:15:08 +0200 To: perl-mongers at 42.org Call for Papers / 9. Deutscher Perl-Workshop / 21.02.- 23.02.2007 Ort: Fachhochschule M?nchen Location: Fachhochschule M?nchen *** Von Aschermittwoch, dem 21. Februar 2007 bis Freitag, den 23. Februar 2007 findet der 9. Deutsche Perl-Workshop statt. Das Organisationskomitee l?dt dich ein, Vorschl?ge f?r einen oder mehrere Beitr?ge zum n?chsten Perl-Workshop einzureichen. Unser Workshop steht und f?llt mit den Vortr?gen. ?blicherweise sind Vortr?ge 5, 20 oder 40 Minuten lang. Alle Themen, die in irgendeiner Weise mit Perl oder dem Perl-Umfeld zu tun haben, k?nnen als Vortr?ge f?r den Workshop interessant sein. Unter http://www.perl-workshop.de/de/2007/cfp.html steht der ausf?hrliche "Call for Papers". Abgabefrist f?r die Einreichung von Vorschl?gen ist Sonntag, der 30.10.2006 Benutze bitte die Webseite http://www.perl-workshop.de/, um Deinen Vorschlag einzureichen. *** _English Abstract_ : The 9th German Perl-Workshop will take place from Wednesday, 21 Feb. 2007 to Friday, 23 Feb.2007 and you are invited to submit proposals for talks or tutorials. We will happily accept proposals for interesting talks related to Perl. Please use http://www.perl-workshop.de/ to enter your proposal. Wir freuen uns auf deinen Beitrag! wsorga at perl-workshop.de ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Mon Sep 25 06:24:36 2006 From: domm at cpan.org (Thomas Klausner) Date: Mon, 25 Sep 2006 15:24:36 +0200 Subject: [Vienna-pm] Social Meeting & YAPC::@007 Planung Message-ID: <20060925132436.GA15342@domm2.zsi.at> Hi! Am Mo, 2.10.06 findet ab 19::00 ein YAPC::Europe::2007 Planungstreffen mit Kombiniertem Vienna.pm Social Meeting statt. Und zwar im Metalab: http://metalab.at/wiki/Lage Neben ein bissl YAPC-Planung wirds sicher auch einiges Perl-et.al-Geplaudere geben... Wireless gibts natuerlich auch, Laptops sind also willkommen. Bis dann! -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From pilsl at goldfisch.at Wed Sep 27 01:12:37 2006 From: pilsl at goldfisch.at (peter pilsl) Date: Wed, 27 Sep 2006 10:12:37 +0200 Subject: [Vienna-pm] Trennzeile - das ewig muehsame In-Reply-To: <11FC899FAE8B8748AB9E591B1454774401578D76@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774401578D76@EXCHCLU01.office.lottery.co.at> Message-ID: <451A3275.7070005@goldfisch.at> Baier Oliver wrote: > > A) my $row = 0; > foreach (sort @out) { > print "-" x 80 ,"\n" if /Anfangspattern/ && $row++ != 0; > print; > } > > Nachteil: Counter mitschleppen > was ist an einem counter so schlimm? ein counter l?st viele probleme schnell und effizient. das problem, dass f?r ein randelement einer liste andere operationen gelten kann man auf zwei arten sehr schnell l?sen: i) counter ii) die operation (in deinem fall print) explizit f?r das erste element ausf?hren und dann f?r die anderen operation1 (shift @mylist); foreach (@mylist) { operation2($_)} lgp From gooly at gmx.at Wed Sep 27 08:04:59 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 27 Sep 2006 17:04:59 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? Message-ID: <200609271705.00391.gooly@gmx.at> Einen sch?nen guten Abend, ich meine, ich habe alles nach der Schrift gemacht - und werde trotzdem nicht erh?rt :( Das Objekt meiner Begierde ist mein Tel SPA941, dass ich mit Perl und dessen Web-Zugriff zu einem Login und Logout bei den VoIP-Providern bewegen m?chte, auf das dann im Autostart-Ordner und so automatische gemacht wird. Es ist ja nur eiin kleines Progr?mmchen, dessen Erfolg sich aber daran ablesen lassen muss, dass sich der Zustand des Tel ver?ndert, sichtbar dadurch dass alles LED blicken, die Farben wechslen und so -- aber nix is :( Die versuchten Formen des ->click() (#-Zeilen) bringt nichts - h?ngt das damit zusammen, dass das submit Feld keinen Namen hat? Unten ist jetzt zuerst das Progr?mmchen, danach dessen Ausdruck - wenn auch verk?rzt. Die ?nderung der Felder gelingt, aber das submit danach nicht. Wieso liefert dieses POST die Zeile aller Felder mit '&'? Habe ich da etwas ?besehen, denn vom Konquerer klappts klasse. Danke schon mal, Calli #! /usr/bin/perl # use LWP::UserAgent; use HTTP::Request::Common; use HTML::Form; our $v = 1; $ua = LWP::UserAgent->new; $ua->agent($MOZILLA); my $res = $ua->request(GET 'http://10.10.10.77/admin/'); #print $res->content if $v; my $R = 1; #(() =~/1|in|/i) ? 1 : 0; # 1 = Login, 0 = Logout my $reff = $res->base; my $nF = 1;# Index of Form that has to filled and clicked my $form = HTML::Form->parse( $res->content, $res->base ); print "fillFORM: res:$res; R:$R; reff:$reff method:", $form->method," No.Inputs:",(scalar $form->inputs),"\n" if $v; foreach my $i ($form->inputs) { # das sind die relevanten Felder: Line Enable(1) || Disable(0) if ($i->name =~ /^47$|^62511$|^59439$/) { printf "\t%10s %10s %s",$i->name,$i->type,$i->value; $i->value( $R ); printf " => \t%10s %10s %s\n",$i->name,$i->type,$i->value; } #else { print "\n" } #if ($i->type =~/submit/i) { # print "\n\nok, try to click.. \n"; # my $hmm = $i->click($form); # print "\n",$hmm->content,"\n"; #} } $rett = $form->click; print "\n\n#############\n\nDer POST-Request..(??)= ", "alle Felder mit verbunden durch '&'\n\n",$rett->content if $v; print "\n"; ############### Ausdruck ############ fillFORM: res:HTTP::Response=HASH(0x84c9f2c); R:1; reff:http://10.10.10.77/admin/ method:POST No.Inputs:182 47 option 0 => 47 option 1 62511 option 0 => 62511 option 1 59439 option 0 => 59439 option 1 ############# Der POST-Request..(??)= alle Felder mit verbunden durch '&' 30959=1&P30767=&29807=0&29743=10.10.10.77&29935=255.255.255.0&29871= .. (usw) From mjy at geizhals.at Wed Sep 27 08:14:19 2006 From: mjy at geizhals.at (Marinos Yannikos) Date: Wed, 27 Sep 2006 17:14:19 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? In-Reply-To: <200609271705.00391.gooly@gmx.at> References: <200609271705.00391.gooly@gmx.at> Message-ID: <451A954B.7090407@geizhals.at> Carl A. Schreiber schrieb: > nicht. Wieso liefert dieses POST die Zeile aller Felder mit '&'? Das ist normal - "url-encoded" (application/x-www-form-urlencoded). Andere Formate m??ten im FORM-Tag vorgegeben sein (http://www.w3.org/TR/html4/interact/forms.html#h-17.13.4) > Habe ich da etwas ?besehen, denn vom Konquerer klappts klasse. Am besten mal mit tcpdump schauen, was Konqueror so ?ber die Leitung schickt und dann vergleichen. Mit HTML::Form und diesem Router kenne ich mich leider nicht aus. ;-) Mich wundert nur, da? keine Authentifizierung durchgef?hrt wird, obwohl du ja das admin-Interface verwendest. MfG, -mjy -- Dipl.-Ing. Marinos Yannikos, CEO Preisvergleich Internet Services AG Obere Donaustrasse 63, A-1020 Wien Tel./Fax: (+431) 5811609-52/-55 From kh at dartbase.com Wed Sep 27 09:05:15 2006 From: kh at dartbase.com (Karlheinz) Date: Wed, 27 Sep 2006 18:05:15 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? In-Reply-To: <200609271705.00391.gooly@gmx.at> References: <200609271705.00391.gooly@gmx.at> Message-ID: <451AA13B.7090204@dartbase.com> Carl A. Schreiber wrote: > Einen sch?nen guten Abend, hi, ich sehe da jetzt auf die gschwinde nix, was boese sein koennte. eventuell koenntest du's mal mit http://search.cpan.org/~petdance/WWW-Mechanize-1.20/lib/WWW/Mechanize.pm versuchen, das ist wirklich praktisch, und sollte sich mit dem low-level zeug brauchbar auseinandersetzen. ;-) > h?ngt das damit zusammen, dass das submit Feld keinen Namen hat? vermutlich, ja... dass das admin interface irgendwelche (semi)grauslichen sachen mit javascript macht, hast du wohl schon gecheckt. ;-) oder dass das admin zeugs den agent string checkt, oder aehnliche widerwaertigkeiten - man kann da nie wissen. lg kh From gooly at gmx.at Wed Sep 27 09:21:09 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 27 Sep 2006 18:21:09 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? In-Reply-To: <451A954B.7090407@geizhals.at> References: <200609271705.00391.gooly@gmx.at> <451A954B.7090407@geizhals.at> Message-ID: <200609271821.09885.gooly@gmx.at> Hi, nur kurze Antwort.. Am Mittwoch, 27. September 2006 17:14 schrieb Marinos Yannikos: > Carl A. Schreiber schrieb: > > nicht. Wieso liefert dieses POST die Zeile aller Felder mit '&'? > > Das ist normal - "url-encoded" (application/x-www-form-urlencoded). > Andere Formate m??ten im FORM-Tag vorgegeben sein > (http://www.w3.org/TR/html4/interact/forms.html#h-17.13.4) > > > Habe ich da etwas ?besehen, denn vom Konquerer klappts klasse. > > Am besten mal mit tcpdump schauen, was Konqueror so ?ber die Leitung > schickt und dann vergleichen. hmm probier ich mal.. > Mit HTML::Form und diesem Router kenne > ich mich leider nicht aus. ;-) Mich wundert nur, da? keine > Authentifizierung durchgef?hrt wird, obwohl du ja das admin-Interface > verwendest. Naja, ein admin Passwort kann man vergeben, aber, da ich nur alleine dasitze, habe ich mir das erstmal erspart.. > > MfG, > -mjy From gooly at gmx.at Wed Sep 27 09:32:12 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 27 Sep 2006 18:32:12 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? In-Reply-To: <451AA13B.7090204@dartbase.com> References: <200609271705.00391.gooly@gmx.at> <451AA13B.7090204@dartbase.com> Message-ID: <200609271832.12044.gooly@gmx.at> Am Mittwoch, 27. September 2006 18:05 schrieb Karlheinz: > Carl A. Schreiber wrote: > > Einen sch?nen guten Abend, > > hi, > > ich sehe da jetzt auf die gschwinde nix, was boese sein koennte. > > eventuell koenntest du's mal mit > > http://search.cpan.org/~petdance/WWW-Mechanize-1.20/lib/WWW/Mechanize >.pm > > versuchen, das ist wirklich praktisch, und sollte sich mit dem > low-level zeug brauchbar auseinandersetzen. ;-) danke schau ich mir mal an,.. > > > h?ngt das damit zusammen, dass das submit Feld keinen Namen hat? > > vermutlich, ja... > > dass das admin interface irgendwelche (semi)grauslichen sachen mit > javascript macht, hast du wohl schon gecheckt. ;-) > da hab ich nur stylin gefunden.. > oder dass das admin zeugs den agent string checkt, oder aehnliche > widerwaertigkeiten - man kann da nie wissen. das Ende der Form ist einfach: ...     > > lg > kh Ich werd morgen mal an Sipura / Linksys / Cisco schreiben.. mal sehen, was dann m?glich wid. Bis dann Calli > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm From pilsl at goldfisch.at Wed Sep 27 11:54:18 2006 From: pilsl at goldfisch.at (peter pilsl) Date: Wed, 27 Sep 2006 20:54:18 +0200 Subject: [Vienna-pm] datumsfrage : tage in datum umwandeln Message-ID: <451AC8DA.5010102@goldfisch.at> Ich bin mit den Datumsmodulen kaum vertraut und ein kurzes reinschauen in die g?ngigsten hat mich nicht schlauer gemacht: Ich muss die Anzahl der Tage seit dem 1.1.1990 in das aktuelle Datum umwandeln. Inkl. aller Schaltjahre usw. Der Hintergrund: Excel speichert das Datum intern in diesem "Tage seit 1.1.1999"-Format und beim import von excel-files krieg ich dann die Zahl. danke lgp -- mag. peter pilsl goldfisch.at IT- & dataconsulting tel: +43 650 3574035 tel: +43 1 8900602 fax: +43 1 8900602 15 pilsl at goldfisch.at From kh at dartbase.com Wed Sep 27 12:04:27 2006 From: kh at dartbase.com (Karlheinz Zoechling) Date: Wed, 27 Sep 2006 21:04:27 +0200 Subject: [Vienna-pm] datumsfrage : tage in datum umwandeln In-Reply-To: <451AC8DA.5010102@goldfisch.at> References: <451AC8DA.5010102@goldfisch.at> Message-ID: <451ACB3B.4000201@dartbase.com> Date::Calc http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod #Add_Delta_Days ($year,$month,$day) = Add_Delta_Days($year,$month,$day,$Dd); lG kh peter pilsl wrote: >Ich bin mit den Datumsmodulen kaum vertraut und ein kurzes reinschauen >in die g?ngigsten hat mich nicht schlauer gemacht: Ich muss die Anzahl >der Tage seit dem 1.1.1990 in das aktuelle Datum umwandeln. Inkl. aller >Schaltjahre usw. > >Der Hintergrund: Excel speichert das Datum intern in diesem "Tage seit >1.1.1999"-Format und beim import von excel-files krieg ich dann die Zahl. > >danke >lgp > > > From domm at cpan.org Wed Sep 27 16:06:46 2006 From: domm at cpan.org (Thomas Klausner) Date: Thu, 28 Sep 2006 01:06:46 +0200 Subject: [Vienna-pm] datumsfrage : tage in datum umwandeln In-Reply-To: <451AC8DA.5010102@goldfisch.at> References: <451AC8DA.5010102@goldfisch.at> Message-ID: <20060927230645.GH20341@domm2.zsi.at> Hi! On Wed, Sep 27, 2006 at 08:54:18PM +0200, peter pilsl wrote: > Ich bin mit den Datumsmodulen kaum vertraut und ein kurzes reinschauen > in die g?ngigsten hat mich nicht schlauer gemacht: Ich muss die Anzahl > der Tage seit dem 1.1.1990 in das aktuelle Datum umwandeln. Inkl. aller > Schaltjahre usw. > > Der Hintergrund: Excel speichert das Datum intern in diesem "Tage seit > 1.1.1999"-Format und beim import von excel-files krieg ich dann die Zahl. Ich verwende meistens DateTime: http://search.cpan.org/dist/DateTime/ Das ist sehr gut im Datums-Berechnen (kann auch div abstruse Kalender). use strict; use warnings; use DateTime; my $date=DateTime->new( year=>1999, month=>1, day=>1, ); $date->add(days=>1000); print $date; Aber ev koennen auch die Excel-Module helfen, zB Spreadsheet-ParseExcel -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Wed Sep 27 16:06:46 2006 From: domm at cpan.org (Thomas Klausner) Date: Thu, 28 Sep 2006 01:06:46 +0200 Subject: [Vienna-pm] datumsfrage : tage in datum umwandeln In-Reply-To: <451AC8DA.5010102@goldfisch.at> References: <451AC8DA.5010102@goldfisch.at> Message-ID: <20060927230645.GH20341@domm2.zsi.at> Hi! On Wed, Sep 27, 2006 at 08:54:18PM +0200, peter pilsl wrote: > Ich bin mit den Datumsmodulen kaum vertraut und ein kurzes reinschauen > in die g?ngigsten hat mich nicht schlauer gemacht: Ich muss die Anzahl > der Tage seit dem 1.1.1990 in das aktuelle Datum umwandeln. Inkl. aller > Schaltjahre usw. > > Der Hintergrund: Excel speichert das Datum intern in diesem "Tage seit > 1.1.1999"-Format und beim import von excel-files krieg ich dann die Zahl. Ich verwende meistens DateTime: http://search.cpan.org/dist/DateTime/ Das ist sehr gut im Datums-Berechnen (kann auch div abstruse Kalender). use strict; use warnings; use DateTime; my $date=DateTime->new( year=>1999, month=>1, day=>1, ); $date->add(days=>1000); print $date; Aber ev koennen auch die Excel-Module helfen, zB Spreadsheet-ParseExcel -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From gooly at gmx.at Thu Sep 28 06:01:06 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Thu, 28 Sep 2006 15:01:06 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? In-Reply-To: <200609271821.09885.gooly@gmx.at> References: <200609271705.00391.gooly@gmx.at> <451A954B.7090407@geizhals.at> <200609271821.09885.gooly@gmx.at> Message-ID: <200609281501.06286.gooly@gmx.at> Also, tcpdump sagt mir, dass der POST-Request offenbar nicht abgesetzt wird - wahrscheinlich wegen des fehlenden Namens des Submit-Feldes ?? Das zB: $form->click; geht nicht!! Aber auch das: foreach my $i ($form->inputs) { if ($i->name =~ /^47$|^62511$|^59439$/) { # rel.Felder printf "\t%10s %10s %s",$i->name,$i->type,$i->value; $i->value( (($i->value) ? 0 : 1) ); # ?ndere Feldwert printf " => \t%10s %10s %s\n",$i->name,$i->type,$i->value; } if ($i->type =~/submit/i) {# DAS submit Feld gefunden !! print "\n\nrename and click.. \n"; my $hmm = $i->name( 'OK' ); } } sleep 5; $from->click( 'OK' ); sleep 5; # neu laden = 2. GET-Request ist OK und tcpdump-sichtbar! geht nicht. Konkret gibt es 10 Sekunden (2x Sleep 5) _nix_im log an den 80er Port des Telefones, w?hrend bei Konquerer sehr wohl der POST-Request dorthin schickt uund er abgesetzt wird!! Die beiden GET-Requests zum Laden der Seite (Form) erscheinen sehr wohl. Das bedeutet der POST-Request wird vom Perl-Programm nicht erzeugt (im Gegensatz zum GET)? Jemand mit einer Idee warum? Danke, Calli Das From sieht in etwa so aus (ich sehe kein Java/JavaScript beim Submit) Sipura SPA Configuration
Sipura Technology Inc
[ ... ]

[ .. ]
   
From kh at dartbase.com Thu Sep 28 06:14:09 2006 From: kh at dartbase.com (Karlheinz) Date: Thu, 28 Sep 2006 15:14:09 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? In-Reply-To: <200609281501.06286.gooly@gmx.at> References: <200609271705.00391.gooly@gmx.at> <451A954B.7090407@geizhals.at> <200609271821.09885.gooly@gmx.at> <200609281501.06286.gooly@gmx.at> Message-ID: <451BCAA1.7020509@dartbase.com> Carl A. Schreiber wrote: > Also, > > tcpdump sagt mir, dass der POST-Request offenbar nicht abgesetzt wird - > wahrscheinlich wegen des fehlenden Namens des Submit-Feldes ?? > Das zB: > $form->click; > geht nicht!! das submittet auch nicht, sondern ergibt ein HTTP::Request objekt: >request = $form->click( $name, $x, $y ) >Will "click" on the first clickable input (which will be of type submit >or image). The result of clicking is an HTTP::Request object that can >then be passed to LWP::UserAgent if you want to obtain the server >response. lg kh From gooly at gmx.at Thu Sep 28 06:29:54 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Thu, 28 Sep 2006 15:29:54 +0200 Subject: [Vienna-pm] $form-click() uund nix ?? In-Reply-To: <451BCAA1.7020509@dartbase.com> References: <200609271705.00391.gooly@gmx.at> <200609281501.06286.gooly@gmx.at> <451BCAA1.7020509@dartbase.com> Message-ID: <200609281529.54638.gooly@gmx.at> Am Donnerstag, 28. September 2006 15:14 schrieb Karlheinz: > Carl A. Schreiber wrote: > > Also, > > > > tcpdump sagt mir, dass der POST-Request offenbar nicht abgesetzt > > wird - wahrscheinlich wegen des fehlenden Namens des Submit-Feldes > > ?? Das zB: > > $form->click; > > geht nicht!! > > das submittet auch nicht, sondern ergibt ein HTTP::Request objekt: > >request = $form->click( $name, $x, $y ) ahh - das war's ich dachte das $form->click entspricht bereits dem Maus->click und das request bereits das Ergebnis des Requests.. Ein einfaches ua->request($form->click) tut's dann .. Danke noch mal, Calli