From Joerg.Westphal at gmx.de  Thu Aug  6 03:54:18 2009
From: Joerg.Westphal at gmx.de (Joerg Westphal)
Date: Thu, 06 Aug 2009 12:54:18 +0200
Subject: [Dresden-pm] Kommt heute jemand?
Message-ID: <20090806105418.22690@gmx.net>

Alle im Urlaub, oder ist eventuell jemand da um sich im Straßencafé zu treffen?
Ich habe jedenfalls Interesse und würde bei Rückmeldung auch erscheinen.

Gruß Jörg

From dresden-pm at demofreak.de  Thu Aug  6 07:41:27 2009
From: dresden-pm at demofreak.de (Johannes Studt)
Date: Thu, 6 Aug 2009 16:41:27 +0200
Subject: [Dresden-pm] Kommt heute jemand?
In-Reply-To: <20090806105418.22690@gmx.net>
References: <20090806105418.22690@gmx.net>
Message-ID: <200908061641.27855.dresden-pm@demofreak.de>

Wenn nix dazwischenkommt, dann icke...

Am Donnerstag, 6. August 2009 12:54:18 schrieb Joerg Westphal:
> Alle im Urlaub, oder ist eventuell jemand da um sich im Straßencafé zu
> treffen? Ich habe jedenfalls Interesse und würde bei Rückmeldung auch
> erscheinen.
>
> Gruß Jörg
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm

From ss5 at renormalist.net  Sun Aug  9 11:29:11 2009
From: ss5 at renormalist.net (Steffen Schwigon)
Date: Sun, 09 Aug 2009 20:29:11 +0200
Subject: [Dresden-pm] Kommt heute jemand?
In-Reply-To: <200908061641.27855.dresden-pm@demofreak.de> (Johannes Studt's
	message of "Thu, 6 Aug 2009 16:41:27 +0200")
References: <20090806105418.22690@gmx.net>
	<200908061641.27855.dresden-pm@demofreak.de>
Message-ID: <87ocqo3kp4.fsf@renormalist.net>

Johannes Studt <dresden-pm at demofreak.de> writes:
> Wenn nix dazwischenkommt, dann icke...
>
> Am Donnerstag, 6. August 2009 12:54:18 schrieb Joerg Westphal:
>> Alle im Urlaub, oder ist eventuell jemand da um sich im Straßencafé zu
>> treffen? Ich habe jedenfalls Interesse und würde bei Rückmeldung auch
>> erscheinen.

Wollmer am naechsten Donnerstag nochmal ne Runde machen?

Kind regards,
Steffen 
-- 
Steffen Schwigon <ss5 at renormalist.net>

From seidel at webit.de  Sun Aug  9 14:47:42 2009
From: seidel at webit.de (Alexander Seidel)
Date: Sun, 9 Aug 2009 23:47:42 +0200
Subject: [Dresden-pm] Kommt heute jemand?
In-Reply-To: <87ocqo3kp4.fsf@renormalist.net>
References: <20090806105418.22690@gmx.net>
	<200908061641.27855.dresden-pm@demofreak.de>
	<87ocqo3kp4.fsf@renormalist.net>
Message-ID: <20090809214742.GB31709@kabelbinder.webit.de>

On Sun, Aug 09, 2009 at 08:29:11PM +0200, Steffen Schwigon wrote:
> Johannes Studt <dresden-pm at demofreak.de> writes:
> > Wenn nix dazwischenkommt, dann icke...
> >
> > Am Donnerstag, 6. August 2009 12:54:18 schrieb Joerg Westphal:
> >> Alle im Urlaub, oder ist eventuell jemand da um sich im Straßencafé zu
> >> treffen? Ich habe jedenfalls Interesse und würde bei Rückmeldung auch
> >> erscheinen.
> 
> Wollmer am naechsten Donnerstag nochmal ne Runde machen?

Diesen Donnerstag kann ich nicht. Wir waren übrigens immerhin zu dritt.


Gruß

Alex, der Stille.

From ss5 at renormalist.net  Fri Aug 28 13:21:35 2009
From: ss5 at renormalist.net (Steffen Schwigon)
Date: Fri, 28 Aug 2009 22:21:35 +0200
Subject: [Dresden-pm] Dresden Perl Mongers Treffen September 2009
Message-ID: <E1Mh7x1-00018Q-7x@h132974.serverkompetenz.net>



          Bin ich noch auf der Liste?

Hi!

Am kommenden Donnerstag treffen sich wieder die Dresden Perl Mongers: 

  Donnerstag, den 3. September 2009
  20.30 Uhr
  Straßencafé (Straße E)
  Werner-Hartmann-Straße 4, 01099 Dresden
  http://www.strassencafe.de/

Themen:

   * ich hab noch keine Vorstellung
   * aber es wird sicher wieder
   * diverses zu bereden
   * geben
   * misc
   * etc

Anfahrt, Termine, Themen immer hier:

   * http://dresden-pm.org/cgi-bin/twiki/view/PM/TermineTreffen


Perl-, Gastronomie- und Gemütlichkeitsfans willkommen.

GreetinX
Steffen
-- 
Steffen Schwigon <ss5@@renormalist.net>
Dresden Perl Mongers <http://dresden-pm.org/>

From hd.kirmse at gmx.de  Sun Aug 30 08:10:52 2009
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Sun, 30 Aug 2009 17:10:52 +0200
Subject: [Dresden-pm] Frage zum Einlesen eines Textfiles
Message-ID: <4A9A967C.80505@gmx.de>

Hallo,

ich habe zu folgendem Problem leider nichts in der (mir zugängigen)
Literatur bzw. im Web gefunden.

Es soll durch ein Perlprogramm ein Textfile eingelesen werden.
Das Perl-Programm läuft einem Linux-Server, aber das Textfile ist
normalerweise ein Textfile im Windows-Format. Es soll aber auch
umgestellt werden können, sodass auch Files mit Linux-Zeilenumbrüchen
bzw. mit Umbrüchen von Apple-Rechnern gelesen werden können.
(das Script soll den betreffenden Typ nicht automatisch erkennen,
sondern das soll in der Konfiguration angegeben werden.)

Kann mir hier jemand einen Tipp geben?

Im Voraus meinen Dank.

Mit freundlichen Grüßen
Hans-Dietrich




From mailinglisten at renee-baecker.de  Sun Aug 30 09:10:36 2009
From: mailinglisten at renee-baecker.de (=?ISO-8859-1?Q?Renee_B=E4cker?=)
Date: Sun, 30 Aug 2009 18:10:36 +0200
Subject: [Dresden-pm] Frage zum Einlesen eines Textfiles
In-Reply-To: <4A9A967C.80505@gmx.de>
References: <4A9A967C.80505@gmx.de>
Message-ID: <4A9AA47C.4010008@renee-baecker.de>

Hallo,

ich verstehe noch nicht so ganz, wo Dein Problem liegt.

So sollte man ganz einfach eine Datei einlesen können:

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

GetOptions(
    'l=s' => \my $linebreak,
    'f=s' => \my $file,
);

my %map = (
    win   => "\015\012",
    linux => "\012",
    mac   => "\015",
);

$linebreak = 'win' unless $linebreak and exists $map{$linebreak};

# einlesen der Datei in einen extra Block, damit die Aenderungen
# an $/ später wieder zurückgestellt werden
{
    local $/ = $map{$linebreak};
    open my $fh, '<', $file or die $!;
    binmode $fh;
    while( my $line = <$fh> ) {
        chomp $line;
        print "Zeile: $line\n";
    }
}

Hans-Dietrich Kirmse schrieb:
> Hallo,
> 
> ich habe zu folgendem Problem leider nichts in der (mir zugängigen)
> Literatur bzw. im Web gefunden.
> 
> Es soll durch ein Perlprogramm ein Textfile eingelesen werden.
> Das Perl-Programm läuft einem Linux-Server, aber das Textfile ist
> normalerweise ein Textfile im Windows-Format. Es soll aber auch
> umgestellt werden können, sodass auch Files mit Linux-Zeilenumbrüchen
> bzw. mit Umbrüchen von Apple-Rechnern gelesen werden können.
> (das Script soll den betreffenden Typ nicht automatisch erkennen,
> sondern das soll in der Konfiguration angegeben werden.)
> 
> Kann mir hier jemand einen Tipp geben?
> 
> Im Voraus meinen Dank.
> 
> Mit freundlichen Grüßen
> Hans-Dietrich
> 
> 
> 
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
> 
> 


-- 

Perl-Magazin: http://perl-magazin.de
Perl-Nachrichten: http://perl-nachrichten.de

From hd.kirmse at gmx.de  Sun Aug 30 09:35:29 2009
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Sun, 30 Aug 2009 18:35:29 +0200
Subject: [Dresden-pm] Frage zum Einlesen eines Textfiles
In-Reply-To: <4A9AA47C.4010008@renee-baecker.de>
References: <4A9A967C.80505@gmx.de> <4A9AA47C.4010008@renee-baecker.de>
Message-ID: <4A9AAA51.4030701@gmx.de>

Hallo,

Danke für Antwort. Ich denke auch, dass die alle meine Probleme löst.
(warum in den binmode geschalten wird, verstehe ich zwar noch nicht,
aber das bekomme ich sicher selbst heraus.)

Renee Bäcker schrieb:
> Hallo,
> 
> ich verstehe noch nicht so ganz, wo Dein Problem liegt.

vermutlich in den Tatsachen, das
1. ich kein Englisch kann, dadurch entfällt etliches an Doku
2. in keinem der mir vorliegenden Bücher die Variable $/
    überhaupt erwähnt wird.
3. Und auch Beispiel-Code zu diesem Problem habe ich nicht
    im Netz gefunden.

> So sollte man ganz einfach eine Datei einlesen können:
> 
> #!/usr/bin/perl
> 
> use strict;
> use warnings;
> use Getopt::Long;
> 
> GetOptions(
>     'l=s' => \my $linebreak,
>     'f=s' => \my $file,
> );
> 
> my %map = (
>     win   => "\015\012",
>     linux => "\012",
>     mac   => "\015",
> );
> 
> $linebreak = 'win' unless $linebreak and exists $map{$linebreak};
> 
> # einlesen der Datei in einen extra Block, damit die Aenderungen
> # an $/ später wieder zurückgestellt werden
> {
>     local $/ = $map{$linebreak};

das ist genau das was ich erhofft habe bzw. brauche. - Super.

Nochmals meinen Dank.


Mit freundlichen Grüßen
Hans-Dietrich



From mailinglisten at renee-baecker.de  Sun Aug 30 09:42:37 2009
From: mailinglisten at renee-baecker.de (=?ISO-8859-1?Q?Renee_B=E4cker?=)
Date: Sun, 30 Aug 2009 18:42:37 +0200
Subject: [Dresden-pm] Frage zum Einlesen eines Textfiles
In-Reply-To: <4A9AAA51.4030701@gmx.de>
References: <4A9A967C.80505@gmx.de> <4A9AA47C.4010008@renee-baecker.de>
	<4A9AAA51.4030701@gmx.de>
Message-ID: <4A9AABFD.3020504@renee-baecker.de>

Hans-Dietrich Kirmse schrieb:
> Hallo,
> 
> Danke für Antwort. Ich denke auch, dass die alle meine Probleme löst.
> (warum in den binmode geschalten wird, verstehe ich zwar noch nicht,
> aber das bekomme ich sicher selbst heraus.)

Ups, sorry. Das "binmode" muss nicht sein. Das war noch vom ersten
Durchlauf. Sollte auch ohne funktionieren...

Renée

-- 

Perl-Magazin: http://perl-magazin.de
Perl-Nachrichten: http://perl-nachrichten.de