From oliver.baier at lotterien.at  Mon Jan  7 06:45:56 2008
From: oliver.baier at lotterien.at (Baier Oliver)
Date: Mon, 7 Jan 2008 15:45:56 +0100
Subject: [Vienna-pm] seek ans stream ende?
Message-ID: <11FC899FAE8B8748AB9E591B1454774402369257@EXCHCLU01.office.lottery.co.at>

Hi,

ein ganz simples

	open LOG, "$gunzip -c $log |" or warn "($!)\n";
	seek LOG,-30,2;
	chomp (my $row = <LOG>);
	print "$row ($.)\n";
	close LOG;

klappt nicht, da er scheinbar erst weiter einliest, wenn man sich den Inhalt holt.

Aber es muss doch eine einfach M?glichkeit geben, an die letzten Zeichen
eines Streams ranzukommen, oder?

lg
Oliver

From bernd at firmix.at  Mon Jan  7 06:51:14 2008
From: bernd at firmix.at (Bernd Petrovitsch)
Date: Mon, 07 Jan 2008 15:51:14 +0100
Subject: [Vienna-pm] seek ans stream ende?
In-Reply-To: <11FC899FAE8B8748AB9E591B1454774402369257@EXCHCLU01.office.lottery.co.at>
References: <11FC899FAE8B8748AB9E591B1454774402369257@EXCHCLU01.office.lottery.co.at>
Message-ID: <1199717474.17366.24.camel@tara.firmix.at>

On Mon, 2008-01-07 at 15:45 +0100, Baier Oliver wrote:
> Hi,
> 
> ein ganz simples
> 
> 	open LOG, "$gunzip -c $log |" or warn "($!)\n";
> 	seek LOG,-30,2;
> 	chomp (my $row = <LOG>);
> 	print "$row ($.)\n";
> 	close LOG;
> 
> klappt nicht, da er scheinbar erst weiter einliest, wenn man sich den Inhalt holt.

"scheinbar"?
Bau mal Fehlerchecks dazu - Pipes (named und unnamed) sind (u.a.) in der
Unix-Welt kein seekable Streams und das `seek` oben sollte schief gehen.

> Aber es muss doch eine einfach M?glichkeit geben, an die letzten Zeichen
> eines Streams ranzukommen, oder?

Generisch: Alles lesen und die letzten n gew?nschten Zeichen ausgeben.

	Bernd
-- 
Firmix Software GmbH                   http://www.firmix.at/
mobil: +43 664 4416156                 fax: +43 1 7890849-55
          Embedded Linux Development and Services



From hjp-vienna-pm-list at hjp.at  Mon Jan  7 06:58:01 2008
From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer)
Date: Mon, 7 Jan 2008 15:58:01 +0100
Subject: [Vienna-pm] seek ans stream ende?
In-Reply-To: <11FC899FAE8B8748AB9E591B1454774402369257@EXCHCLU01.office.lottery.co.at>
References: <11FC899FAE8B8748AB9E591B1454774402369257@EXCHCLU01.office.lottery.co.at>
Message-ID: <20080107145801.GB4510@hjp.at>

On 2008-01-07 15:45:56 +0100, Baier Oliver wrote:
> ein ganz simples
> 
> 	open LOG, "$gunzip -c $log |" or warn "($!)\n";
                                   ^
Das ist eine Pipe.

> 	seek LOG,-30,2;

Seek auf Pipes funktioniert nicht. Ebensowenig auf Sockets, Terminals
oder andere Pseudofiles mit rein sequentiellem Zugriff. Wie sollte das
Positionieren an eine andere Stelle da vor sich gehen?

> 	chomp (my $row = <LOG>);
> 	print "$row ($.)\n";
> 	close LOG;
> 
> klappt nicht, da er scheinbar erst weiter einliest, wenn man sich den
> Inhalt holt.

Nein, es klappt deswegen nicht, weil seek auf Pipes nicht geht. Wenn Du
den Return-Code abgefragt h?ttest:

    seek LOG, -30, 2 or die "seek: $!\n";

h?ttest Du wenigstens die Meldung "Illegal seek" bekommen.


> Aber es muss doch eine einfach M?glichkeit geben, an die letzten Zeichen
> eines Streams ranzukommen, oder?

Ja, bis zum Ende lesen und die letzten $n Zeichen merken. Wobei
nat?rlich die Frage offenbleibt, wann das Ende erreicht ist: Wenn das
letzte bisher geschriebene Zeichen erreicht ist? Wenn der letzte
Schreiber die Pipe geschlossen hat? 

	hp

-- 
   _  | Peter J. Holzer    | It took a genius to create [TeX],
|_|_) | Sysadmin WSR       | and it takes a genius to maintain it.
| |   | hjp at hjp.at         | That's not engineering, that's art.
__/   | http://www.hjp.at/ |	-- David Kastrup in comp.text.tex
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: Digital signature
Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20080107/8fb6bdad/attachment.bin 

From oliver.baier at lotterien.at  Mon Jan  7 07:06:15 2008
From: oliver.baier at lotterien.at (Baier Oliver)
Date: Mon, 7 Jan 2008 16:06:15 +0100
Subject: [Vienna-pm] seek ans stream ende?
In-Reply-To: <20080107145801.GB4510@hjp.at>
References: <11FC899FAE8B8748AB9E591B1454774402369257@EXCHCLU01.office.lottery.co.at>
	<20080107145801.GB4510@hjp.at>
Message-ID: <11FC899FAE8B8748AB9E591B1454774402369259@EXCHCLU01.office.lottery.co.at>

> > 	open LOG, "$gunzip -c $log |" or warn "($!)\n";
>                                    ^
> Das ist eine Pipe.
> 
> > 	seek LOG,-30,2;
> 
> Seek auf Pipes funktioniert nicht. Ebensowenig auf Sockets, Terminals
> oder andere Pseudofiles mit rein sequentiellem Zugriff...

stimmt... sorry, weiss auch nicht wo mir heut der Kopf steht...
zu viele Dinge zugleich vielleicht?
Hab mich durch gzless verwirren lassen, der aber bei "G" nat?rlich auch
alles einliest und dann die letzten Zeilen anzeigt...

THX
Oliver

From rangerer at verisign.com  Mon Jan 14 02:24:33 2008
From: rangerer at verisign.com (Angerer, Roland)
Date: Mon, 14 Jan 2008 11:24:33 +0100
Subject: [Vienna-pm] Check external program version in Module::Build
Message-ID: <8D1E8F57BFF3CD4D8587EC7A6DDBE9720168C952@BER2WNEXMB01.vcorp.ad.vrsn.com>

Hi,

I want to check for the version of an external program (java and some
additional tools) from Build.PL like I do with the 'requires' hash for perl
modules.

So far I came up with 2 solutions which are not really "elegant":

- write a test which will be executed in ./Build test
- write perl code that dies with an according message in Build.PL

Any ideas?

Cheers, Roland

-------------------------------------------------------
Roland Angerer
Software Engineer
Mobile Application Services
rangerer at verisign.com
Direct: +43 (662) 45 00 03
Fax:    +43 (662) 45 00 03-55
Mobile: +43 (664) 808 41 515

VeriSignR
Jakob-Haringer Strasse 3
A-5020 Salzburg 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/x-pkcs7-signature
Size: 4782 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20080114/2875e4f8/attachment.bin 

From domm at cpan.org  Tue Jan 15 11:20:52 2008
From: domm at cpan.org (Thomas Klausner)
Date: Tue, 15 Jan 2008 20:20:52 +0100
Subject: [Vienna-pm] Check external program version in Module::Build
In-Reply-To: <8D1E8F57BFF3CD4D8587EC7A6DDBE9720168C952@BER2WNEXMB01.vcorp.ad.vrsn.com>
References: <8D1E8F57BFF3CD4D8587EC7A6DDBE9720168C952@BER2WNEXMB01.vcorp.ad.vrsn.com>
Message-ID: <20080115192051.GA5363@d610.chello.at>

Hi!

On Mon, Jan 14, 2008 at 11:24:33AM +0100, Angerer, Roland wrote:
> Hi,

Im allgemeines reden wir hier Deutsch (oder Varianten davon), ausser mit 
Leuten, die nicht (gut genug) Deutsch (oder Varianten davon) sprechen 
:-)

> I want to check for the version of an external program (java and some
> additional tools) from Build.PL like I do with the 'requires' hash for perl
> modules.

Willst du nur checken, ob eine passende Version installiert ist? Oder 
soll auch irgendwie die passende Version installiert werden?

> So far I came up with 2 solutions which are not really "elegant":
> 
> - write a test which will be executed in ./Build test

Da ist es IMO schon zu spaet. Vor allem koennte die installierende 
Person ja ./Build test einfach auslassen und dann eine kleine 
Ueberraschung erleben (bzw dich piesacken, warum dein Code nicht geht)

> - write perl code that dies with an according message in Build.PL

Wenn's nur ums rausfinden geht, wuerde ich das auch so machen.

Wenn die neue Version auch automatisch installiert werden soll: Soweit 
ich weiss kann das die CPAN toolchain leider nicht. Also bleibt dir eh 
nicht viel uebrig, als Build abzubrechen.

> Any ideas?

Wenn du's elegant haben willst, und das Problem oefter / bei 
verschiedenen Dists auftritt, koenntest du eine eigene Module::Build 
Subclass machen, die zB ein Feld 'require_external' hat. Dort koennte 
dann eine Coderef oder so gespeichert werden, die bei ./Build.PL 
aufgerufen wird. 

Eine andere Herangehensweise bietet der Alien Namespace auf CPAN. Hier 
werden 3rd-party-module (die eben nicht in Perl, sondern in C, Java, .. 
geschrieben sind) in eine Perl-Dist eingepackt, die dafuer zu sorgen 
hat, das eben jener Code installiert ist (das kann recht grauslich sein, 
je nach build-tool des 3rd-party-dings).

In deiner Dist sagst du dann einfach 
	requires=>{
		'Alien::Your3rdPartyWarpper' => 1.42,
	}

und fertig (wenn halt Alien::Your3rdPartyWarpper funktioniert).

Siehe:
http://search.cpan.org/dist/Alien/
oder zB:
http://search.cpan.org/dist/Alien-Selenium/
bzw was search.cpan.org halt sonst noch so auswirft...


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

From domm at cpan.org  Thu Jan 17 01:06:41 2008
From: domm at cpan.org (Thomas Klausner)
Date: Thu, 17 Jan 2008 10:06:41 +0100
Subject: [Vienna-pm] Emergency Social Meeting Heute!!
Message-ID: <20080117090641.GD5914@d610.validad.net>

Hi!

Da einerseits Nicholas Clark in Wien ist, und andererseits Aldo Calpinin 
(Dada) frisch von Italien nach Wien gezogen ist, findet heute Abend ein

   Emergecy Social Meeting

statt

Details:
 heute, 19:00
 Tin-Tan
 Florianigasse 1

Bitte um eine kurze Meldung, wer kommt, entweder im IRC, oder direkt an 
pepl <michael.kroell at uibk.ac.at>

Bis dann!

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

From jozef at kutej.net  Fri Jan 18 05:25:40 2008
From: jozef at kutej.net (Jozef Kutej)
Date: Fri, 18 Jan 2008 14:25:40 +0100
Subject: [Vienna-pm] Perl job in Bratislava
Message-ID: <4790A8D4.9030200@kutej.net>

Hallo *,

Es gibt ein neue Perl Job in Bratislava f?r Hewlett-Packard -

Network Tools Engineer/Developer

Mehr Info auf:

https://hp.taleo.net/servlets/CareerSection?art_ip_action=FlowDispatcher&ctx=1&flowTypeNo=13&pageSeq=2&art_servlet_language=en&reqNo=1456213&csNo=2

Mann braucht nur gute Englischkentnisse (und Perl naturlich...). Team
Leader kommst aus Kanada und Manager aus Deutschland ;)

Regards,
Jozef.

From domm at cpan.org  Thu Jan 31 11:28:52 2008
From: domm at cpan.org (Thomas Klausner)
Date: Thu, 31 Jan 2008 20:28:52 +0100
Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00
Message-ID: <20080131192852.GL5417@d610>


Einladung zum 1. TechSocialMeet von Vienna.pm im neuen Jahr!

Wie gehabt treffen wir uns zuerst zu einem Tech-Teil im NIG (Neues 
InstitutsGeb?de der Uni Wien, Universit?tsstrasse 7, 1010 Wien), Raum 
D116, Gang D um 19:00.

Der Social-Teil passiert anschliessend (je nach Dauer des Tech-Teils ab 
20:30 - 21:00) in der Stiegl Ambulanz im alten AKH. Damit ich diesmal 
einen Tisch reservieren kann, bitte ich um eine kurze Anmeldung per Mail 
an die Liste.

Programm:
* domm zeigt das neue Feature 'custom-sources' von CPANPLUS her
* domm zeigt App::TimeTracker her, ein kleines Toolchen zum Erfassen von
  Stundenlisten etc. Siehe auch  
  http://search.cpan.org/dist/App-TimeTracker/
* Winter Of Code Besprechung?
* Austrian Perl Workshop 2008?

Weitere Freiwillig-Meldungen sind natuerlich absolut willkommen, damit 
ich nicht immer den armen Alleinunterhalter spielen muss...

Bis dann!

PS: Der sehr vage angekuendigte Talk zum Thema Exception Handling ("die 
Perl, die!") ist sich nicht ausgegangen. Ich werd den wohl am 
uebernaechsten Meeting halten (3. Maerz). Da aber sicher, weil ich den 
Talk auch beim Dutch Perl Workshop halten werde/muss :-)

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

From gr at univie.ac.at  Thu Jan 31 14:58:06 2008
From: gr at univie.ac.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=)
Date: Thu, 31 Jan 2008 23:58:06 +0100
Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00
In-Reply-To: <20080131192852.GL5417@d610>
References: <20080131192852.GL5417@d610>
Message-ID: <0DF439D4-CAD1-4723-8493-8AEE26BC66A6@univie.ac.at>

On Jan 31, 2008, at 8:28 PM, Thomas Klausner wrote:

> Der Social-Teil passiert anschliessend (je nach Dauer des Tech- 
> Teils ab
> 20:30 - 21:00) in der Stiegl Ambulanz im alten AKH. Damit ich diesmal
> einen Tisch reservieren kann, bitte ich um eine kurze Anmeldung per  
> Mail
> an die Liste.

Ich meld mich an.

Bis dann,

Marcel
--
"hanekomu" on Twitter, Jaiku, IRC and AIM
CPAN: http://search.cpan.org/~marcel/
Journal: http://use.perl.org/~hanekomu/journal/


From rl at brabbel.net  Thu Jan 31 15:11:37 2008
From: rl at brabbel.net (Roland Lammel)
Date: Fri, 1 Feb 2008 00:11:37 +0100
Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00
In-Reply-To: <20080131192852.GL5417@d610>
References: <20080131192852.GL5417@d610>
Message-ID: <9b51ffb30801311511i1ad4cfa6vda56d8b789efe3df@mail.gmail.com>

Ich meld mich leider nur zu 50% an, also quasi mal keine Anmeldung. Ich komm
falls es sich doch ausgeht.

2008/1/31 Thomas Klausner <domm at cpan.org>:

>
> Einladung zum 1. TechSocialMeet von Vienna.pm im neuen Jahr!
>
> Wie gehabt treffen wir uns zuerst zu einem Tech-Teil im NIG (Neues
> InstitutsGeb?de der Uni Wien, Universit?tsstrasse 7, 1010 Wien), Raum
> D116, Gang D um 19:00.
>
> Der Social-Teil passiert anschliessend (je nach Dauer des Tech-Teils ab
> 20:30 - 21:00) in der Stiegl Ambulanz im alten AKH. Damit ich diesmal
> einen Tisch reservieren kann, bitte ich um eine kurze Anmeldung per Mail
> an die Liste.
>
> Programm:
> * domm zeigt das neue Feature 'custom-sources' von CPANPLUS her
> * domm zeigt App::TimeTracker her, ein kleines Toolchen zum Erfassen von
>  Stundenlisten etc. Siehe auch
>  http://search.cpan.org/dist/App-TimeTracker/
> * Winter Of Code Besprechung?
> * Austrian Perl Workshop 2008?
>
> Weitere Freiwillig-Meldungen sind natuerlich absolut willkommen, damit
> ich nicht immer den armen Alleinunterhalter spielen muss...
>
> Bis dann!
>
> PS: Der sehr vage angekuendigte Talk zum Thema Exception Handling ("die
> Perl, die!") ist sich nicht ausgegangen. Ich werd den wohl am
> uebernaechsten Meeting halten (3. Maerz). Da aber sicher, weil ich den
> Talk auch beim Dutch Perl Workshop halten werde/muss :-)
>
> --
> #!/usr/bin/perl                              http://domm.plix.at
> for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm




-- 
Roland Lammel

"Enjoy your job, make lots of money, work within the law. Choose any two."
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/vienna-pm/attachments/20080201/adc7f414/attachment.html