From dominic at s5g.de  Tue Dec  2 00:30:56 2014
From: dominic at s5g.de (Dominic Sonntag)
Date: Tue, 02 Dec 2014 09:30:56 +0100
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Dezember 2014
Message-ID: <547D78C0.5060104@s5g.de>

Am Donnerstag treffen sich wieder die Dresden Perl Mongers. Neben den
allgemeinen Themen wird es wieder um die Vorbereitung des German Perl
Workshop gehen, der vom 6. bis 8. Mai 2015 in Dresden stattfinden wird!

  Donnerstag, 04. Dezember 2014
  2o.oo Uhr

  Newtown Bar
  Helgolandstraße 9 b / Ecke Fritz-Reuter-Str.
  01097 Dresden
  http://goo.gl/maps/jwyiv
  http://newtownbar.de

Aktuelle Infos hier:

  * http://dresden-pm.org/PM/TermineTreffen

Allgemein:

Wir reden und hacken üblicherweise an unserem eigenen Kram rum
und bieten ernsthaften Support rund um Perl-Einstiegsthemen wie

  * Code-Reviews
  * erstes CPAN-Modul bauen
  * Updates zu Perl[56], Parrot, Rakudo, Perlworkshop, YAPC

und für Fortgeschrittene

  * Trost
  * Folklore
  * misc & etc

Jeder ist eingeladen.

Grüße,
Dominic

From roberto.schaefer86 at googlemail.com  Tue Dec  2 01:50:55 2014
From: roberto.schaefer86 at googlemail.com (=?UTF-8?Q?Roberto_Sch=C3=A4fer?=)
Date: Tue, 2 Dec 2014 10:50:55 +0100
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Dezember 2014
In-Reply-To: <547D78C0.5060104@s5g.de>
References: <547D78C0.5060104@s5g.de>
Message-ID: <CAErvz4oAifj87SD8V4KHTqf=docWUYsnxYcYK56FDA-xWoK2ZA@mail.gmail.com>

Servus Jungs,

Ich habe leider den Zwerg an diesem Abend und kann deswegen nicht zugegen
sein.

Grüße Roberto
Am 02.12.2014 09:31 schrieb "Dominic Sonntag" <dominic at s5g.de>:

> Am Donnerstag treffen sich wieder die Dresden Perl Mongers. Neben den
> allgemeinen Themen wird es wieder um die Vorbereitung des German Perl
> Workshop gehen, der vom 6. bis 8. Mai 2015 in Dresden stattfinden wird!
>
>   Donnerstag, 04. Dezember 2014
>   2o.oo Uhr
>
>   Newtown Bar
>   Helgolandstraße 9 b / Ecke Fritz-Reuter-Str.
>   01097 Dresden
>   http://goo.gl/maps/jwyiv
>   http://newtownbar.de
>
> Aktuelle Infos hier:
>
>   * http://dresden-pm.org/PM/TermineTreffen
>
> Allgemein:
>
> Wir reden und hacken üblicherweise an unserem eigenen Kram rum
> und bieten ernsthaften Support rund um Perl-Einstiegsthemen wie
>
>   * Code-Reviews
>   * erstes CPAN-Modul bauen
>   * Updates zu Perl[56], Parrot, Rakudo, Perlworkshop, YAPC
>
> und für Fortgeschrittene
>
>   * Trost
>   * Folklore
>   * misc & etc
>
> Jeder ist eingeladen.
>
> Grüße,
> Dominic
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
>
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20141202/5e0c97aa/attachment.html>

From steffen.schwigon at gmx.de  Tue Dec  2 09:05:29 2014
From: steffen.schwigon at gmx.de (Steffen Schwigon)
Date: Tue, 2 Dec 2014 18:05:29 +0100
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Dezember 2014
Message-ID: <trinity-c16e3500-f65d-4a03-b961-bc4797d799e3-1417539927959@msvc244>

Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20141202/a919affa/attachment.html>

From ml at megamaddin.org  Tue Dec  2 11:33:19 2014
From: ml at megamaddin.org (Martin Probst)
Date: Tue, 2 Dec 2014 20:33:19 +0100
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Dezember 2014
In-Reply-To: <9D08A61D-BE9F-44DE-B321-38F2F3D2DE4E@megamaddin.org>
References: <trinity-c16e3500-f65d-4a03-b961-bc4797d799e3-1417539927959@msvc244>
	<9D08A61D-BE9F-44DE-B321-38F2F3D2DE4E@megamaddin.org>
Message-ID: <D5553DB3-93A6-477E-9F1E-30EF2A3E5660@megamaddin.org>

Bin auch dabei, komme aber sicher erst 21:00 Uhr - muss bis 20:00 Uhr arbeiten :-)

Viele Grüße,
Martin

> On 02 Dec 2014, at 20:28, Martin Probst <maddin at megamaddin.org> wrote:
> 
> Bin auch dabei, komme aber sicher erst 21:00 Uhr - muss bis 20:00 Uhr arbeiten :-)
> 
> Viele Grüße,
> Martin
> 
>> On 02 Dec 2014, at 18:05, Steffen Schwigon <steffen.schwigon at gmx.de> wrote:
>> 
>> Bin dabei.
>> 
>> Steffen
>> -- 
>> steffen.schwigon at gmx.de
>> 
>> 
>> 
>> Dominic Sonntag <dominic at s5g.de> schrieb:
>> Am Donnerstag treffen sich wieder die Dresden Perl Mongers. Neben den
>> allgemeinen Themen wird es wieder um die Vorbereitung des German Perl
>> Workshop gehen, der vom 6. bis 8. Mai 2015 in Dresden stattfinden wird!
>> 
>> Donnerstag, 04. Dezember 2014
>> 2o.oo Uhr
>> 
>> Newtown Bar
>> Helgolandstraße 9 b / Ecke Fritz-Reuter-Str.
>> 01097 Dresden
>> http://goo.gl/maps/jwyiv
>> http://newtownbar.de
>> 
>> Aktuelle Infos hier:
>> 
>> * http://dresden-pm.org/PM/TermineTreffen
>> 
>> Allgemein:
>> 
>> Wir reden und hacken üblicherweise an unserem eigenen Kram rum
>> und bieten ernsthaften Support rund um Perl-Einstiegsthemen wie
>> 
>> * Code-Reviews
>> * erstes CPAN-Modul bauen
>> * Updates zu Perl[56], Parrot, Rakudo, Perlworkshop, YAPC
>> 
>> und für Fortgeschrittene
>> 
>> * Trost
>> * Folklore
>> * misc & etc
>> 
>> Jeder ist eingeladen.
>> 
>> Grüße,
>> Dominic
>> _______________________________________________
>> Dresden-pm mailing list
>> Dresden-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/dresden-pm
>> _______________________________________________
>> Dresden-pm mailing list
>> Dresden-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/dresden-pm


From hd.kirmse at gmx.de  Mon Dec  8 22:29:33 2014
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Tue, 09 Dec 2014 07:29:33 +0100
Subject: [Dresden-pm] Frage zum rekursiven Kopieren von Verzeichnissen
Message-ID: <548696CD.5040708@gmx.de>

Guten Morgen,

in Ermangelung einer PM-Gruppe in Thüringen wendet sich euer Zaungast 
aus Saalfeld wiedermal an euch mit der Bitte um Unterstützung.

Eine Kollegin aus Sachsen hat folgendes Anliegen: In ihrer Schule 
werkelt ein Linux-Server (delixs) und sie haben eine größere Anzahl von 
Windows-Clients. Um bei schon vorhandenen Accounts den Desktop 
anzupassen wurde deshalb um ein Script gebeten, was von einem 
Musteraccount die neuen Dateien und Verzeichnisse auf den Desktop der 
vorhandenen Dateien kopiert. Eine (lauffähige) erste Version eines 
solchen Scripts habe ich erstellt

  http://www.erasmus-reinhold-gymnasium.de/temp/add2desktop.pl.html

Leider kopiert dieses Script nur Dateien, aber keine Verzeichnisse.
Ich weiss zwar, dass es das Modul File::Copy::Recursive gibt, aber es 
müssen auch die Rechte gesetzt werden (das kann vielleicht auch noch 
entfallen), aber es muss auf jeden Fall der Owner geändert werden. Und 
wie man das mit Perl für einen Verzeichnis rekursiv macht, habe ich 
nicht gefunden. Auch wenn es hier vermutlich nicht gebraucht wird, bei 
den Rechten sollten ja eigentlich die für Dateien und Verzeichnisse 
unterschiedlich gesetzt werden. Auch das weiss ich nicht, wie man das 
machen könnte.

Zusammengefasst: es geht um das Ersetzen des 'TODO's in dem folgenden 
Abschnitt:

# wenn Datei
if (-f $quelldatei) {
   # dann kopieren (gegebenenfalls überschreiben)
   $okay = copy $quelldatei, $zieldatei;
   # wenn das Kopieren geklappt hat
   if ($okay) {
     # den Owner und Gruppe setzen
     chown $uid, $gid, $zieldatei;
     # die Rechte setzen
     chmod 0755, $zieldatei;
     # den Dateizähler um 1 erhöhen
     $anz_files++;
   }	
}
# sonst (wenn Verzeichnis)
else {
   #
   # TODO  (analog für Verzeichnisse, aber eben rekursiv)
   #
}		


Wäre für jeden Hinweis zu diesem Problem sehr dankbar.

Viele Grüße
Hans-Dietrich

PS: da ich als Laie und Autodidakt und zudem hier "im eigenen Saft 
schmore" würde ich mich auch über jeden Hinweis bzw. Kritik zu diesem 
Script unabhängig von diesem Kopierproblem freuen.

From ml at megamaddin.org  Tue Dec  9 13:36:25 2014
From: ml at megamaddin.org (Martin Probst)
Date: Tue, 9 Dec 2014 22:36:25 +0100
Subject: [Dresden-pm] Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <548696CD.5040708@gmx.de>
References: <548696CD.5040708@gmx.de>
Message-ID: <9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>

Hallo Hans-Dietrich,

> On 09 Dec 2014, at 07:29, Hans-Dietrich Kirmse <hd.kirmse at gmx.de> wrote:
> 
> Guten Morgen,
> 
> [...]
> Leider kopiert dieses Script nur Dateien, aber keine Verzeichnisse.
> Ich weiss zwar, dass es das Modul File::Copy::Recursive gibt, aber es müssen auch die Rechte gesetzt werden (das kann vielleicht auch noch entfallen), aber es muss auf jeden Fall der Owner geändert werden. Und wie man das mit Perl für einen Verzeichnis rekursiv macht, habe ich nicht gefunden. Auch wenn es hier vermutlich nicht gebraucht wird, bei den Rechten sollten ja eigentlich die für Dateien und Verzeichnisse unterschiedlich gesetzt werden. Auch das weiss ich nicht, wie man das machen könnte.
> 
> Zusammengefasst: es geht um das Ersetzen des 'TODO's in dem folgenden Abschnitt:
> 
> # wenn Datei
> if (-f $quelldatei) {
>  # dann kopieren (gegebenenfalls überschreiben)
>  $okay = copy $quelldatei, $zieldatei;
>  # wenn das Kopieren geklappt hat
>  if ($okay) {
>    # den Owner und Gruppe setzen
>    chown $uid, $gid, $zieldatei;
>    # die Rechte setzen
>    chmod 0755, $zieldatei;
>    # den Dateizähler um 1 erhöhen
>    $anz_files++;
>  }	
> }
> # sonst (wenn Verzeichnis)
> else {
>  #
>  # TODO  (analog für Verzeichnisse, aber eben rekursiv)
>  #
> }		
> 
> 
> Wäre für jeden Hinweis zu diesem Problem sehr dankbar.
> 
> PS: da ich als Laie und Autodidakt und zudem hier "im eigenen Saft schmore" würde ich mich auch über jeden Hinweis bzw. Kritik zu diesem Script unabhängig von diesem Kopierproblem freuen.

Als erster Tipp, nutze für die einzelnen Aufgaben doch sub?s. Das macht das Script an sich übersichtlicher und besser lesbar.

Ich würde ähnlich wie du herangehen, also Verzeichniseinträge lesen, Test ob Verzeichnis oder Datei und dann kopieren. Ich würde dafür jedoch eine rekursive Funktion nutzen, die diese Aufgabe erledigt. Es sollte quasi immer, wenn die Quelle ein Verzeichnis ist, ein einlesen des Verzeichnis, Test ob Datei... usw. usf. stattfinden.

Meine Q&D Lösung sieht daher in Perl so aus:

#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;
use v5.10;

my $src = $ARGV[0];
my $dst = $ARGV[1];

mycopy($src, $dst);

sub mycopy {
    my $s = shift;
    my $d = shift;

    if(-d $s) {
        unless(-d "$d") {
            warn "$d is not a directory";
            return;
        }
        opendir(my $dh, $s) or die "Can't open dir $s: $!";
        while(my $ent = readdir($dh)) {
            next if($ent =~ m/^\.|\.\.$/);
            if(-d "$s/$ent") {
                mkdir("$d/$ent");
                chown(1337, 42, "$d/$ent");
                chmod(0755, "$d/$ent");
            }
            mycopy("$s/$ent", "$d/$ent");
        }
        closedir($dh);
    } else { # we assume that source must be a regular file
        $d = "$d/$s" if(-d $d);
        copy($s, $d);
        chown(1337, 42, "$d");
        chmod(0644, "$d");
    }
}

Aber mal anders gefragt, wenn du sowieso auf einem Linux-System bist, was spricht gegen ein Shell-Skript?

Viele Grüße,
Martin

From hd.kirmse at gmx.de  Tue Dec  9 14:15:11 2014
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Tue, 09 Dec 2014 23:15:11 +0100
Subject: [Dresden-pm] Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>
References: <548696CD.5040708@gmx.de>
	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>
Message-ID: <5487746F.20101@gmx.de>

Hallo Martin,

danke für deine Antwort.

Am 09.12.2014 um 22:36 schrieb Martin Probst:
> Hallo Hans-Dietrich,
>
>> On 09 Dec 2014, at 07:29, Hans-Dietrich Kirmse <hd.kirmse at gmx.de> wrote:
>>
>> Guten Morgen,
>>
>> [...]
>> Leider kopiert dieses Script nur Dateien, aber keine Verzeichnisse.
>> Ich weiss zwar, dass es das Modul File::Copy::Recursive gibt, aber es müssen auch die Rechte gesetzt werden (das kann vielleicht auch noch entfallen), aber es muss auf jeden Fall der Owner geändert werden. Und wie man das mit Perl für einen Verzeichnis rekursiv macht, habe ich nicht gefunden. Auch wenn es hier vermutlich nicht gebraucht wird, bei den Rechten sollten ja eigentlich die für Dateien und Verzeichnisse unterschiedlich gesetzt werden. Auch das weiss ich nicht, wie man das machen könnte.
>>
>> Zusammengefasst: es geht um das Ersetzen des 'TODO's in dem folgenden Abschnitt:
>>
>> # wenn Datei
>> if (-f $quelldatei) {
>>   # dann kopieren (gegebenenfalls überschreiben)
>>   $okay = copy $quelldatei, $zieldatei;
>>   # wenn das Kopieren geklappt hat
>>   if ($okay) {
>>     # den Owner und Gruppe setzen
>>     chown $uid, $gid, $zieldatei;
>>     # die Rechte setzen
>>     chmod 0755, $zieldatei;
>>     # den Dateizähler um 1 erhöhen
>>     $anz_files++;
>>   }	
>> }
>> # sonst (wenn Verzeichnis)
>> else {
>>   #
>>   # TODO  (analog für Verzeichnisse, aber eben rekursiv)
>>   #
>> }		
>>
>>
>> Wäre für jeden Hinweis zu diesem Problem sehr dankbar.
>>
>> PS: da ich als Laie und Autodidakt und zudem hier "im eigenen Saft schmore" würde ich mich auch über jeden Hinweis bzw. Kritik zu diesem Script unabhängig von diesem Kopierproblem freuen.
>
> Als erster Tipp, nutze für die einzelnen Aufgaben doch sub?s. Das macht das Script an sich übersichtlicher und besser lesbar.
>
> Ich würde ähnlich wie du herangehen, also Verzeichniseinträge lesen, Test ob Verzeichnis oder Datei und dann kopieren.
> Ich würde dafür jedoch eine rekursive Funktion nutzen, die diese Aufgabe erledigt. Es sollte quasi immer, wenn die Quelle ein Verzeichnis ist, ein einlesen des Verzeichnis, Test ob Datei... usw. usf. stattfinden.

Hm, ich bin eigentlich Laie. In etwa 8 Jahren gehe ich in Rente, Perl 
habe ich mir vor ca. 10 Jahren autodidaktisch angeeignet, sicher mehr 
recht als schlecht. Da das Script für (andere) Lehrer zur Verfügung 
gestellt werden soll, die in der Schule die Server / Netze betreuen, 
meist unbezahlt und in ihrer Freizeit, wollte ich um eine stabile Lösung 
zu erstellen eigentlich auf getestete und bewährte Module zurückgreifen. 
Aber genau für diese m.E. üblichen Anforderungen habe ich kein Modul 
gefunden (kopieren alleine ist zu wenig)

> Meine Q&D Lösung sieht daher in Perl so aus:


> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use File::Copy;
> use v5.10;
>
> my $src = $ARGV[0];
> my $dst = $ARGV[1];
>
> mycopy($src, $dst);
>
> sub mycopy {
>      my $s = shift;
>      my $d = shift;
>
>      if(-d $s) {
>          unless(-d "$d") {
>              warn "$d is not a directory";
>              return;
>          }
>          opendir(my $dh, $s) or die "Can't open dir $s: $!";
>          while(my $ent = readdir($dh)) {
>              next if($ent =~ m/^\.|\.\.$/);
>              if(-d "$s/$ent") {
>                  mkdir("$d/$ent");
>                  chown(1337, 42, "$d/$ent");
>                  chmod(0755, "$d/$ent");
>              }
>              mycopy("$s/$ent", "$d/$ent");
>          }
>          closedir($dh);
>      } else { # we assume that source must be a regular file
>          $d = "$d/$s" if(-d $d);
>          copy($s, $d);
>          chown(1337, 42, "$d");
>          chmod(0644, "$d");
>      }
> }

Sowas hatte ich nach der Wende mal in Pascal programmiert. für mich ist 
das nicht Q&D, sondern genau das, was ich eigentlich nicht programmieren 
wollte ;) Wie schon angegeben, habe gedacht, es gibt sowas als Modul.

> Aber mal anders gefragt, wenn du sowieso auf einem Linux-System bist, was spricht gegen ein Shell-Skript?

sehr viel: ich kann kein Shellscripting - nur ein paar Shellbefehle und 
die schlage ich erst nach ;) . Das bedeutet, ich erledige alle meine 
Aufgaben als "Hobby-Admin" bzw. bei der Mitarbeit in dem 
Schulserver-Projekt mit Perl.

Danke nochmal für diese Lösung. Ich bin damit wunschlos glücklich und 
baue das in mein Script ein. Zudem wird die Lösung ja schlanker, weil 
ich den Fall der Datei jetzt canceln kann und nur noch 2 Fälle habe für 
das rekursive kopieren des (einen) Verzeichnisses - des Desktops.

Viele Grüße
Hans-Dietrich

From ml at megamaddin.org  Fri Dec 12 08:52:42 2014
From: ml at megamaddin.org (Martin Probst)
Date: Fri, 12 Dec 2014 17:52:42 +0100
Subject: [Dresden-pm] Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <5487746F.20101@gmx.de>
References: <548696CD.5040708@gmx.de>
	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>
	<5487746F.20101@gmx.de>
Message-ID: <0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>

Hallo Hans-Dietrich,

da war noch ein Fehler drin - die Zeile

> next if($ent =~ m/^\.|\.\.$/);

müsste in

> next if($ent =~ m/^(?:\.|\.\.)$/);


geändert werden. Sorry dafür.

Viele Grüße,
Martin

--
Via Motorola International 3200

On 09.12.2014, at 23:15, Hans-Dietrich Kirmse <hd.kirmse at gmx.de <mailto:hd.kirmse at gmx.de>> wrote:

> Hallo Martin,
> 
> danke für deine Antwort.
> 
> Am 09.12.2014 um 22:36 schrieb Martin Probst:
>> Hallo Hans-Dietrich,
>> 
>>> On 09 Dec 2014, at 07:29, Hans-Dietrich Kirmse <hd.kirmse at gmx.de <mailto:hd.kirmse at gmx.de>> wrote:
>>> 
>>> Guten Morgen,
>>> 
>>> [...]
>>> Leider kopiert dieses Script nur Dateien, aber keine Verzeichnisse.
>>> Ich weiss zwar, dass es das Modul File::Copy::Recursive gibt, aber es müssen auch die Rechte gesetzt werden (das kann vielleicht auch noch entfallen), aber es muss auf jeden Fall der Owner geändert werden. Und wie man das mit Perl für einen Verzeichnis rekursiv macht, habe ich nicht gefunden. Auch wenn es hier vermutlich nicht gebraucht wird, bei den Rechten sollten ja eigentlich die für Dateien und Verzeichnisse unterschiedlich gesetzt werden. Auch das weiss ich nicht, wie man das machen könnte.
>>> 
>>> Zusammengefasst: es geht um das Ersetzen des 'TODO's in dem folgenden Abschnitt:
>>> 
>>> # wenn Datei
>>> if (-f $quelldatei) {
>>>  # dann kopieren (gegebenenfalls überschreiben)
>>>  $okay = copy $quelldatei, $zieldatei;
>>>  # wenn das Kopieren geklappt hat
>>>  if ($okay) {
>>>    # den Owner und Gruppe setzen
>>>    chown $uid, $gid, $zieldatei;
>>>    # die Rechte setzen
>>>    chmod 0755, $zieldatei;
>>>    # den Dateizähler um 1 erhöhen
>>>    $anz_files++;
>>>  }    
>>> }
>>> # sonst (wenn Verzeichnis)
>>> else {
>>>  #
>>>  # TODO  (analog für Verzeichnisse, aber eben rekursiv)
>>>  #
>>> }        
>>> 
>>> 
>>> Wäre für jeden Hinweis zu diesem Problem sehr dankbar.
>>> 
>>> PS: da ich als Laie und Autodidakt und zudem hier "im eigenen Saft schmore" würde ich mich auch über jeden Hinweis bzw. Kritik zu diesem Script unabhängig von diesem Kopierproblem freuen.
>> 
>> Als erster Tipp, nutze für die einzelnen Aufgaben doch sub?s. Das macht das Script an sich übersichtlicher und besser lesbar.
>> 
>> Ich würde ähnlich wie du herangehen, also Verzeichniseinträge lesen, Test ob Verzeichnis oder Datei und dann kopieren.
>> Ich würde dafür jedoch eine rekursive Funktion nutzen, die diese Aufgabe erledigt. Es sollte quasi immer, wenn die Quelle ein Verzeichnis ist, ein einlesen des Verzeichnis, Test ob Datei... usw. usf. stattfinden.
> 
> Hm, ich bin eigentlich Laie. In etwa 8 Jahren gehe ich in Rente, Perl habe ich mir vor ca. 10 Jahren autodidaktisch angeeignet, sicher mehr recht als schlecht. Da das Script für (andere) Lehrer zur Verfügung gestellt werden soll, die in der Schule die Server / Netze betreuen, meist unbezahlt und in ihrer Freizeit, wollte ich um eine stabile Lösung zu erstellen eigentlich auf getestete und bewährte Module zurückgreifen. Aber genau für diese m.E. üblichen Anforderungen habe ich kein Modul gefunden (kopieren alleine ist zu wenig)
> 
>> Meine Q&D Lösung sieht daher in Perl so aus:
> 
> 
>> #!/usr/bin/perl
>> 
>> use strict;
>> use warnings;
>> use File::Copy;
>> use v5.10;
>> 
>> my $src = $ARGV[0];
>> my $dst = $ARGV[1];
>> 
>> mycopy($src, $dst);
>> 
>> sub mycopy {
>>     my $s = shift;
>>     my $d = shift;
>> 
>>     if(-d $s) {
>>         unless(-d "$d") {
>>             warn "$d is not a directory";
>>             return;
>>         }
>>         opendir(my $dh, $s) or die "Can't open dir $s: $!";
>>         while(my $ent = readdir($dh)) {
>>             next if($ent =~ m/^\.|\.\.$/);
>>             if(-d "$s/$ent") {
>>                 mkdir("$d/$ent");
>>                 chown(1337, 42, "$d/$ent");
>>                 chmod(0755, "$d/$ent");
>>             }
>>             mycopy("$s/$ent", "$d/$ent");
>>         }
>>         closedir($dh);
>>     } else { # we assume that source must be a regular file
>>         $d = "$d/$s" if(-d $d);
>>         copy($s, $d);
>>         chown(1337, 42, "$d");
>>         chmod(0644, "$d");
>>     }
>> }
> 
> Sowas hatte ich nach der Wende mal in Pascal programmiert. für mich ist das nicht Q&D, sondern genau das, was ich eigentlich nicht programmieren wollte ;) Wie schon angegeben, habe gedacht, es gibt sowas als Modul.
> 
>> Aber mal anders gefragt, wenn du sowieso auf einem Linux-System bist, was spricht gegen ein Shell-Skript?
> 
> sehr viel: ich kann kein Shellscripting - nur ein paar Shellbefehle und die schlage ich erst nach ;) . Das bedeutet, ich erledige alle meine Aufgaben als "Hobby-Admin" bzw. bei der Mitarbeit in dem Schulserver-Projekt mit Perl.
> 
> Danke nochmal für diese Lösung. Ich bin damit wunschlos glücklich und baue das in mein Script ein. Zudem wird die Lösung ja schlanker, weil ich den Fall der Datei jetzt canceln kann und nur noch 2 Fälle habe für das rekursive kopieren des (einen) Verzeichnisses - des Desktops.
> 
> Viele Grüße
> Hans-Dietrich
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org <mailto:Dresden-pm at pm.org>
> http://mail.pm.org/mailman/listinfo/dresden-pm <http://mail.pm.org/mailman/listinfo/dresden-pm>
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20141212/94dd21ba/attachment.html>

From pagaltzis at gmx.de  Fri Dec 12 12:42:45 2014
From: pagaltzis at gmx.de (Aristoteles Pagaltzis)
Date: Fri, 12 Dec 2014 21:42:45 +0100
Subject: [Dresden-pm] Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
References: <548696CD.5040708@gmx.de>
	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>
	<5487746F.20101@gmx.de>
	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
Message-ID: <20141212204245.GA50355@plasmasturm.org>

* Martin Probst <ml at megamaddin.org> [2014-12-12 17:55]:
> da war noch ein Fehler drin - die Zeile
>
> > next if($ent =~ m/^\.|\.\.$/);
>
> müsste in
>
> > next if($ent =~ m/^(?:\.|\.\.)$/);
>
> geändert werden. Sorry dafür.

Warum nicht so?

    next if $ent =~ m/^\.\.?$/;

Kürzer und klarer, nicht?

Wobei du \z statt $ willst, weil du sonst einen Bug hast.

Ich neige ja mittlerweile dazu, es stupide auszuschreiben:

    next if $ent eq '.' or $ent eq '..';

-- 
Aristoteles Pagaltzis // <http://plasmasturm.org/>

From roberto.schaefer86 at googlemail.com  Fri Dec 12 14:56:39 2014
From: roberto.schaefer86 at googlemail.com (=?UTF-8?Q?Roberto_Sch=C3=A4fer?=)
Date: Fri, 12 Dec 2014 23:56:39 +0100
Subject: [Dresden-pm] Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <20141212204245.GA50355@plasmasturm.org>
References: <548696CD.5040708@gmx.de>
	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>
	<5487746F.20101@gmx.de>
	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
	<20141212204245.GA50355@plasmasturm.org>
Message-ID: <CAErvz4p48ThUi4YcdXPEo=c3facjQ6Sa6sMJeVFCxd8OJ6Tm2A@mail.gmail.com>

Das prüfen mit "eq" sollte auch schneller sein.
Am 12.12.2014 21:42 schrieb "Aristoteles Pagaltzis" <pagaltzis at gmx.de>:

> * Martin Probst <ml at megamaddin.org> [2014-12-12 17:55]:
> > da war noch ein Fehler drin - die Zeile
> >
> > > next if($ent =~ m/^\.|\.\.$/);
> >
> > müsste in
> >
> > > next if($ent =~ m/^(?:\.|\.\.)$/);
> >
> > geändert werden. Sorry dafür.
>
> Warum nicht so?
>
>     next if $ent =~ m/^\.\.?$/;
>
> Kürzer und klarer, nicht?
>
> Wobei du \z statt $ willst, weil du sonst einen Bug hast.
>
> Ich neige ja mittlerweile dazu, es stupide auszuschreiben:
>
>     next if $ent eq '.' or $ent eq '..';
>
> --
> Aristoteles Pagaltzis // <http://plasmasturm.org/>
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
>
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20141212/de38cbf9/attachment.html>

From hd.kirmse at gmx.de  Fri Dec 12 23:26:02 2014
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Sat, 13 Dec 2014 08:26:02 +0100
Subject: [Dresden-pm] Nachwuchs, Werbung,
 u.a.m  - war: Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
References: <548696CD.5040708@gmx.de>	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>	<5487746F.20101@gmx.de>
	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
Message-ID: <548BEA0A.7000000@gmx.de>

Hallo Martin, hallo @all,

Am 12.12.2014 um 17:52 schrieb Martin Probst:
> Hallo Hans-Dietrich,
>
> da war noch ein Fehler drin - die Zeile
>
>> next if($ent =~ m/^\.|\.\.$/);
>
> müsste in
>
>> next if($ent =~ m/^(?:\.|\.\.)$/);
>
> geändert werden. Sorry dafür.

das versteh ich zwar (noch) nicht, für mich war die erste Zeile 
schlüssig/richtig. Aber ich habe das auch als Vorlage aufgefasst,
nicht als die Lösung, die genau in dieser Form nun meine Probleme lösen 
muss. Ich sehe es schon als meine Aufgabe/Arbeit an, das so anzupassen, 
auch zu überarbeiten, sodass ich bei Bedarf Anpassungen vornehmen kann. 
Auch wenn du vielleicht nicht glücklich bist, dass ich dieses Script 
jetzt als Vorlage "abstempel", aber du hast mir mit dieser Vorlage viel 
mehr geholfen, als du (vermutlich) überhaupt erahnen kannst und ich 
selbst auch nicht erwartet habe. Wie schon gesagt, ich war davon 
ausgegangen, dass es ein Modul dafür gibt, dass ich eben nur nicht 
gefunden habe.

Will damit sagen, an der Routine werde ich noch eine ganze Weile 
"feilen". In Hinblick auf den Anlass, also das Script für den 
Schulserver werde ich hinsichtlicher der Parameter optimieren und 
testen. Ob das Script eine Woche eher oder eine Woche später fertig ist, 
ist nicht so dramatisch. Es wurde gewünscht und es wird erstellt.


Zum Betreff: im foo-Magazin war ja gelegentlich etwas zur 
Nachwuchsförderung zu lesen. Der Nutznießer war stets ich, denn ich 
wurde von Renée Becker schon mehrere Jahre unterstützt, indem er für 
Schüler, die bei "jugend forscht" mit einer Arbeit angetreten sind, wo 
Perl zum Einsatz kam, ein Sonderpreis ausgelobt wurde. Es ging 
normalerweise um ein Jahresabo des foo-Magazins. Da Renée Becker ja hier 
mitliest, möchte ich mich an dieser Stelle nochmal recht herzlich dafür 
bei ihm bedanken.

Ich unterrichte in der 11. und 12. Klasse Informatik und da wir auch das 
Leistungsfach anbieten, sind wegen dem Zentralabitur die 
Programmiersprachen festgelegt: Delphi oder Java, optional Prolog 
(früher Oberon und ganz früher Pascal). Mit dem Wahlpflichtfach wäre 
zwar möglich, in der 10. Klasse den Lehrplan mit Perl umzusetzen, aber 
das bekommt mein Kollege leider nicht auf die Reihe (mit einer anderen 
Sprache aber auch nicht).

Wie die informatik in der 11. und 12. Klasse bei uns in Thüringen und 
insbesondere an unserer Schule umgesetzt wird, ist hier dokumentiert:

  http://www.erasmus-reinhold-gymnasium.de/info

Diese Seiten stellen defacto unser elektronisches Lehrbuch dar - für Java!

Über die Liste der Informatiklehrer ging vor einigen Wochen, dass in 
einem anderen Bundesland der Umstieg auf eine Interpretersprache (und 
zwar auf Python) in der Abiturstufe anvisiert wird. So wie ich das 
verstanden habe, wird das über die Fern-Uni Hagen betreut.

Da bei uns im Grundfach inzwischen nur noch die mdl. Prüfung möglich ist 
(und damit kein Zentralabitur) bin ich im Grundfach in der Wahl der 
Programmiersprache letztlich doch frei - ich muss natürlich den Lehrplan 
erfüllen. Ich habe (zumindest) für dieses Jahr vor, im Grundfach die 
Programmiersprache Perl einzusetzen, im Leistungsfach wird/muss es 
weiter Java sein. Es soll also praktisch die gesamte 11. Klasse, die 
momentan für Java konzipiert ist, nun für Perl erstellt werden. Diese 
Seiten müssen natürlich im Vorlauf erstellt werden und mit 
vergleichbarer Qualität wie die Java-Seiten. Das ist keineswegs nur ein 
Plan, sondern ich habe ja angefangen: auf der Seite der Klasse 11 nach 
dem HTML-Projekt ist ein Link zu der Perl-Seite und die erste 
Leistungskontrolle ist auch schon geschrieben - ich kann also nicht mehr 
zurück ;)

Bzgl. des Programms habe ich vor, im Stoffgebiet 3: Rekursion und 
Iteration dieses Programm quasi als Highlight bereit zu stellen. Einmal 
als kommentierten und leicht verständlichen Quelltext und eben Aufgaben 
dazu, so dass die Schüler sich mit dieser Lösung auseinandersetzen 
müssen. Für Leistungskontrollen würde sich das Programm zum Kommentieren 
eignen, wobei die Schüler insbesondere die Rekursion (den Selbstaufruf 
und die Abbruchbedingung) kenntlich machen müssen. Ein besseres Beispiel 
konnte mir für die Rekursion gar nicht über den Weg laufen. ;)

@Martin: ich hoffe, dass ich für diese Verwendung von dir die Erlaubnis 
bekomme - ist das okay?

@all: Falls jemand für bestimmte Themen etwas beisteuern will, wäre ich 
sehr dankbar. Konkrete Themen wären z.B.:
- Zugriff auf Datenbanken (SQLite wäre m.E. optimal)
- Programmierung von Oberflächen (auch fragmentarisch z.B. für die 
Linien und Sterne bei 2.4)
- OOP (sowas wie ein Crashkurs zu Moose)

das erstmal zur (angedachten) Verwendung des Programms und zu dem 
Wagnis, Perl im Unterricht als erste Programmiersprache einzusetzen.


Viele Grüße
Hans-Dietrich

From hd.kirmse at gmx.de  Fri Dec 12 23:57:26 2014
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Sat, 13 Dec 2014 08:57:26 +0100
Subject: [Dresden-pm] Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <CAErvz4p48ThUi4YcdXPEo=c3facjQ6Sa6sMJeVFCxd8OJ6Tm2A@mail.gmail.com>
References: <548696CD.5040708@gmx.de>	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>	<5487746F.20101@gmx.de>	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>	<20141212204245.GA50355@plasmasturm.org>
	<CAErvz4p48ThUi4YcdXPEo=c3facjQ6Sa6sMJeVFCxd8OJ6Tm2A@mail.gmail.com>
Message-ID: <548BF166.8080903@gmx.de>

Hallo,

Am 12.12.2014 um 23:56 schrieb Roberto Schäfer:
> Das prüfen mit "eq" sollte auch schneller sein.
>
> Am 12.12.2014 21:42 schrieb "Aristoteles Pagaltzis" <pagaltzis at gmx.de
> <mailto:pagaltzis at gmx.de>>:
>
>     * Martin Probst <ml at megamaddin.org <mailto:ml at megamaddin.org>>
>     [2014-12-12 17:55]:
>      > da war noch ein Fehler drin - die Zeile
>      >
>      > > next if($ent =~ m/^\.|\.\.$/);
>      >
>      > müsste in
>      >
>      > > next if($ent =~ m/^(?:\.|\.\.)$/);
>      >
>      > geändert werden. Sorry dafür.
>
>     Warum nicht so?
>
>          next if $ent =~ m/^\.\.?$/;
>
>     Kürzer und klarer, nicht?

Ich sehe mich ja nur als Laie und meine Schüler sind es mit Sicherheit 
noch mehr: meine Meinung: kürzer ist es, aber klarer (verständlicher) 
ist es aus meiner Sicht nicht.


>     Wobei du \z statt $ willst, weil du sonst einen Bug hast.

das verstehe ich eh alles nicht.

>     Ich neige ja mittlerweile dazu, es stupide auszuschreiben:
>
>          next if $ent eq '.' or $ent eq '..';

das nachgestellte if verwende ich selbst nur in Ausnahmefällen und im 
Unterricht mit Sicherheit nicht, also würde das bei mir so aussehen:

   # wenn der Eintrag gleich "." oder ".." ist
   if ($entry eq '.'  or $entry eq '..') {
     # dann den nächsten Eintrag
     next;
   }

Ist aber natürlich dasselbe. Ob etwas schneller ist, macht bei dem 
Kopierscript kaum was aus. Und ob z.B. das Script bei unseren 400 
Schülern dann vielleicht 10 oder stattdessen 15 Sekunden dauert - damit 
muss der Admin einfach leben. Aber ob ich oder wer auch immer bei der 
Betreuung des Scripts später Stunden bei der Fehlersuche ver(sch)wende, 
das ist ganz gewiss nicht egal. - sowas diskutiere ich natürlich auch 
mit meinen Schülern und frage sowas dann in der 
Leistungskontrolle/Kursarbeit im 1. Teil ohne Computer ab. ;)

Viele Grüße
Hans-Dietrich


From pm.list at perl-services.de  Sat Dec 13 00:38:14 2014
From: pm.list at perl-services.de (Renee B)
Date: Sat, 13 Dec 2014 09:38:14 +0100
Subject: [Dresden-pm] Nachwuchs, Werbung,
 u.a.m  - war: Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <548BEA0A.7000000@gmx.de>
References: <548696CD.5040708@gmx.de>	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>	<5487746F.20101@gmx.de>	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
	<548BEA0A.7000000@gmx.de>
Message-ID: <548BFAF6.2000300@perl-services.de>

Da hier gerade parallel inhaltlich verwandte Themen besprochen werden,
aber nicht jeder alle Mailinglisten liest, würde ich gerne die Mails an
einer öffentlichen Stelle dokumentieren wenn das für euch ok ist.

@Thomas, @Hans-Dietrich, @LanX, @Ronnie, @Wieland. Darf ich?


On 13.12.2014 08:26, Hans-Dietrich Kirmse wrote:
>
> Ich unterrichte in der 11. und 12. Klasse Informatik und da wir auch
> das Leistungsfach anbieten, sind wegen dem Zentralabitur die
> Programmiersprachen festgelegt: Delphi oder Java, optional Prolog
> (früher Oberon und ganz früher Pascal). Mit dem Wahlpflichtfach wäre
> zwar möglich, in der 10. Klasse den Lehrplan mit Perl umzusetzen, aber
> das bekommt mein Kollege leider nicht auf die Reihe (mit einer anderen
> Sprache aber auch nicht).
>
> Wie die informatik in der 11. und 12. Klasse bei uns in Thüringen und
> insbesondere an unserer Schule umgesetzt wird, ist hier dokumentiert:
>
>  http://www.erasmus-reinhold-gymnasium.de/info
>
> Diese Seiten stellen defacto unser elektronisches Lehrbuch dar - für
> Java!
>
> Über die Liste der Informatiklehrer ging vor einigen Wochen, dass in
> einem anderen Bundesland der Umstieg auf eine Interpretersprache (und
> zwar auf Python) in der Abiturstufe anvisiert wird. So wie ich das
> verstanden habe, wird das über die Fern-Uni Hagen betreut.
>
> Da bei uns im Grundfach inzwischen nur noch die mdl. Prüfung möglich
> ist (und damit kein Zentralabitur) bin ich im Grundfach in der Wahl
> der Programmiersprache letztlich doch frei - ich muss natürlich den
> Lehrplan erfüllen. Ich habe (zumindest) für dieses Jahr vor, im
> Grundfach die Programmiersprache Perl einzusetzen, im Leistungsfach
> wird/muss es weiter Java sein. Es soll also praktisch die gesamte 11.
> Klasse, die momentan für Java konzipiert ist, nun für Perl erstellt
> werden. Diese Seiten müssen natürlich im Vorlauf erstellt werden und
> mit vergleichbarer Qualität wie die Java-Seiten. Das ist keineswegs
> nur ein Plan, sondern ich habe ja angefangen: auf der Seite der Klasse
> 11 nach dem HTML-Projekt ist ein Link zu der Perl-Seite und die erste
> Leistungskontrolle ist auch schon geschrieben - ich kann also nicht
> mehr zurück ;)
>
> Bzgl. des Programms habe ich vor, im Stoffgebiet 3: Rekursion und
> Iteration dieses Programm quasi als Highlight bereit zu stellen.
> Einmal als kommentierten und leicht verständlichen Quelltext und eben
> Aufgaben dazu, so dass die Schüler sich mit dieser Lösung
> auseinandersetzen müssen. Für Leistungskontrollen würde sich das
> Programm zum Kommentieren eignen, wobei die Schüler insbesondere die
> Rekursion (den Selbstaufruf und die Abbruchbedingung) kenntlich machen
> müssen. Ein besseres Beispiel konnte mir für die Rekursion gar nicht
> über den Weg laufen. ;)
>
> @Martin: ich hoffe, dass ich für diese Verwendung von dir die
> Erlaubnis bekomme - ist das okay?
>
> @all: Falls jemand für bestimmte Themen etwas beisteuern will, wäre
> ich sehr dankbar. Konkrete Themen wären z.B.:
> - Zugriff auf Datenbanken (SQLite wäre m.E. optimal)
> - Programmierung von Oberflächen (auch fragmentarisch z.B. für die
> Linien und Sterne bei 2.4)
> - OOP (sowas wie ein Crashkurs zu Moose)
>
> das erstmal zur (angedachten) Verwendung des Programms und zu dem
> Wagnis, Perl im Unterricht als erste Programmiersprache einzusetzen.


From hd.kirmse at gmx.de  Sat Dec 13 00:56:22 2014
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Sat, 13 Dec 2014 09:56:22 +0100
Subject: [Dresden-pm] Nachwuchs, Werbung,
 u.a.m  - war: Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <548BFAF6.2000300@perl-services.de>
References: <548696CD.5040708@gmx.de>	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>	<5487746F.20101@gmx.de>	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>	<548BEA0A.7000000@gmx.de>
	<548BFAF6.2000300@perl-services.de>
Message-ID: <548BFF36.6040509@gmx.de>

Hallo Renée,

Am 13.12.2014 um 09:38 schrieb Renee B:
> Da hier gerade parallel inhaltlich verwandte Themen besprochen werden,
> aber nicht jeder alle Mailinglisten liest, würde ich gerne die Mails an
> einer öffentlichen Stelle dokumentieren wenn das für euch ok ist.
>
> @Thomas, @Hans-Dietrich, @LanX, @Ronnie, @Wieland. Darf ich?

meine Erlaubnis hast du.

Viele Grüße
Hans-Dietrich

From pm.list at perl-services.de  Sat Dec 13 01:32:34 2014
From: pm.list at perl-services.de (Renee B)
Date: Sat, 13 Dec 2014 10:32:34 +0100
Subject: [Dresden-pm] Nachwuchs, Werbung,
 u.a.m  - war: Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <548BEA0A.7000000@gmx.de>
References: <548696CD.5040708@gmx.de>	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>	<5487746F.20101@gmx.de>	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
	<548BEA0A.7000000@gmx.de>
Message-ID: <548C07B2.2040708@perl-services.de>

On 13.12.2014 08:26, Hans-Dietrich Kirmse wrote:
> Hallo Martin, hallo @all,
>
> Am 12.12.2014 um 17:52 schrieb Martin Probst:
>> Hallo Hans-Dietrich,
>>
>> da war noch ein Fehler drin - die Zeile
>>
>>> next if($ent =~ m/^\.|\.\.$/);
>>
>> müsste in
>>
>>> next if($ent =~ m/^(?:\.|\.\.)$/);
>>
>> geändert werden. Sorry dafür.
>
> das versteh ich zwar (noch) nicht, für mich war die erste Zeile
> schlüssig/richtig.

Der erste Regex ist wie  m/(^\.)|(\.\.$)/;

$ perl -E 'say ".test" =~ m{^\.|\.\.$}'
1
$ perl -E 'say "." =~ m{^\.|\.\.$}'
1
$ perl -E 'say ".." =~ m{^\.|\.\.$}'
1
$ perl -E 'say "..test" =~ m{^\.|\.\.$}'
1
$ perl -E 'say "test.." =~ m{^\.|\.\.$}'
1
$ perl -E 'say "test." =~ m{^\.|\.\.$}'

$


>
>
> Zum Betreff: im foo-Magazin war ja gelegentlich etwas zur
> Nachwuchsförderung zu lesen. Der Nutznießer war stets ich, denn ich
> wurde von Renée Becker schon mehrere Jahre unterstützt, indem er für
> Schüler, die bei "jugend forscht" mit einer Arbeit angetreten sind, wo
> Perl zum Einsatz kam, ein Sonderpreis ausgelobt wurde. Es ging
> normalerweise um ein Jahresabo des foo-Magazins. Da Renée Becker ja
> hier mitliest, möchte ich mich an dieser Stelle nochmal recht herzlich
> dafür bei ihm bedanken.

Auch wenn das Magazin eingestellt wird, werden wir in Zukunft schon was
finden...

From ml at megamaddin.org  Sat Dec 13 02:59:58 2014
From: ml at megamaddin.org (Martin Probst)
Date: Sat, 13 Dec 2014 11:59:58 +0100
Subject: [Dresden-pm] Nachwuchs, Werbung,
	u.a.m  - war: Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <548BEA0A.7000000@gmx.de>
References: <548696CD.5040708@gmx.de>
	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>
	<5487746F.20101@gmx.de>
	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>
	<548BEA0A.7000000@gmx.de>
Message-ID: <B0E42D0E-FDB5-4387-BBC7-CD9392A0BEE2@megamaddin.org>

Guten Morgen Hans-Dietrich,

> Da bei uns im Grundfach inzwischen nur noch die mdl. Prüfung möglich ist (und damit kein Zentralabitur) bin ich im Grundfach in der Wahl der Programmiersprache letztlich doch frei - ich muss natürlich den Lehrplan erfüllen. Ich habe (zumindest) für dieses Jahr vor, im Grundfach die Programmiersprache Perl einzusetzen, im Leistungsfach wird/muss es weiter Java sein. Es soll also praktisch die gesamte 11. Klasse, die momentan für Java konzipiert ist, nun für Perl erstellt werden. Diese Seiten müssen natürlich im Vorlauf erstellt werden und mit vergleichbarer Qualität wie die Java-Seiten. Das ist keineswegs nur ein Plan, sondern ich habe ja angefangen: auf der Seite der Klasse 11 nach dem HTML-Projekt ist ein Link zu der Perl-Seite und die erste Leistungskontrolle ist auch schon geschrieben - ich kann also nicht mehr zurück ;)

Wow, das freut mich zu lesen. Ich mag 1 - die Idee, da Perl IMHO eine leicht zu erlernende und vielseitige Sprache ist und 2 - deine Eigeninitiative als Lehrer. Wenn ich da an meine ersten Informatikkurse in der Mittelschule denke, na ja ;-)

> 
> Bzgl. des Programms habe ich vor, im Stoffgebiet 3: Rekursion und Iteration dieses Programm quasi als Highlight bereit zu stellen. Einmal als kommentierten und leicht verständlichen Quelltext und eben Aufgaben dazu, so dass die Schüler sich mit dieser Lösung auseinandersetzen müssen. Für Leistungskontrollen würde sich das Programm zum Kommentieren eignen, wobei die Schüler insbesondere die Rekursion (den Selbstaufruf und die Abbruchbedingung) kenntlich machen müssen. Ein besseres Beispiel konnte mir für die Rekursion gar nicht über den Weg laufen. ;)
> 
> @Martin: ich hoffe, dass ich für diese Verwendung von dir die Erlaubnis bekomme - ist das okay?

Definitiv! Wenn die Chance besteht den einen oder anderen Perl-Monger heranzuziehen, würde ich mich sehr darüber freuen!

> das erstmal zur (angedachten) Verwendung des Programms und zu dem Wagnis, Perl im Unterricht als erste Programmiersprache einzusetzen.

Was wäre das Leben ohne Wagnisse und Herausforderungen :-)

Ein schönes Wochenende!
Martin

From hd.kirmse at gmx.de  Sat Dec 13 07:17:52 2014
From: hd.kirmse at gmx.de (Hans-Dietrich Kirmse)
Date: Sat, 13 Dec 2014 16:17:52 +0100
Subject: [Dresden-pm] Nachwuchs, Werbung,
 u.a.m  - war: Frage zum rekursiven Kopieren von Verzeichnissen
In-Reply-To: <548C07B2.2040708@perl-services.de>
References: <548696CD.5040708@gmx.de>	<9F832EE0-BD6A-44F4-9FF4-D8F6AEDB6854@megamaddin.org>	<5487746F.20101@gmx.de>	<0A875E03-A133-48EB-B496-8C698A9D0F5F@megamaddin.org>	<548BEA0A.7000000@gmx.de>
	<548C07B2.2040708@perl-services.de>
Message-ID: <548C58A0.7090904@gmx.de>

Hallo Renée,

Am 13.12.2014 um 10:32 schrieb Renee B:
> On 13.12.2014 08:26, Hans-Dietrich Kirmse wrote:
>> Hallo Martin, hallo @all,
>>
>> Am 12.12.2014 um 17:52 schrieb Martin Probst:
>>> Hallo Hans-Dietrich,
>>>
>>> da war noch ein Fehler drin - die Zeile
>>>
>>>> next if($ent =~ m/^\.|\.\.$/);
>>>
>>> müsste in
>>>
>>>> next if($ent =~ m/^(?:\.|\.\.)$/);
>>>
>>> geändert werden. Sorry dafür.
>>
>> das versteh ich zwar (noch) nicht, für mich war die erste Zeile
>> schlüssig/richtig.
>
> Der erste Regex ist wie  m/(^\.)|(\.\.$)/;
>
> $ perl -E 'say ".test" =~ m{^\.|\.\.$}'
> 1
> $ perl -E 'say "." =~ m{^\.|\.\.$}'
> 1
> $ perl -E 'say ".." =~ m{^\.|\.\.$}'
> 1
> $ perl -E 'say "..test" =~ m{^\.|\.\.$}'
> 1
> $ perl -E 'say "test.." =~ m{^\.|\.\.$}'
> 1
> $ perl -E 'say "test." =~ m{^\.|\.\.$}'
>
> $

ich denke, das ich jetzt das Problem bzw. die Probleme mit dem Ansatz 
über eine Regex verstanden habe. - Danke.


>> Zum Betreff: im foo-Magazin war ja gelegentlich etwas zur
>> Nachwuchsförderung zu lesen. Der Nutznießer war stets ich, denn ich
>> wurde von Renée Becker schon mehrere Jahre unterstützt, indem er für
>> Schüler, die bei "jugend forscht" mit einer Arbeit angetreten sind, wo
>> Perl zum Einsatz kam, ein Sonderpreis ausgelobt wurde. Es ging
>> normalerweise um ein Jahresabo des foo-Magazins. Da Renée Becker ja
>> hier mitliest, möchte ich mich an dieser Stelle nochmal recht herzlich
>> dafür bei ihm bedanken.
>
> Auch wenn das Magazin eingestellt wird, werden wir in Zukunft schon was
> finden...

Danke für die Zusage. - für die nächste Runde (also jufo 2015) ist bei 
meinem Wettbewerb keine Arbeit dabei. Ich gehe (leider) davon aus, das 
bundesweit auch bei keinem anderen Regional-Wettbewerb eine Arbeit unter 
Nutzung von Perl als Programmiersprache dabei ist. Dem Vorstand von jufo 
in Hamburg ist ja bekannt, dass es diesen Sonderpreis gibt/gab und die 
hätten bei einer Nachfrage das sofort weitergeleitet.

Allerdings gehe ich davon aus, dass sich 2016 zumindest bei uns 
(Thüringen Süd) die Situation sich beim Regionalwettbewerb deutlich ändert.

Viele Grüße
Hans-Dietrich


From dominic at s5g.de  Sat Dec 27 11:31:55 2014
From: dominic at s5g.de (Dominic Sonntag)
Date: Sat, 27 Dec 2014 20:31:55 +0100
Subject: [Dresden-pm] Verschiebung Treffer im Januar 2015: 1.1. -> 8.1.
Message-ID: <549F092B.30405@s5g.de>

Hallo alle zusammen,

unser nächstes Treffen wäre turnusgemäß am 1.1.2015. Wir hatten das beim
letzten Treffen schon teilweise angesprochen: Ich schlage vor, dass wir
das Treffen um eine Woche auf Donnerstag, den 8. Januar 2015 verschieben.

Bis dahin wünsche ich euch einen guten Start ins neue Jahr!

Herzliche Grüße
Dominic

From roberto.schaefer86 at googlemail.com  Sat Dec 27 12:21:29 2014
From: roberto.schaefer86 at googlemail.com (=?UTF-8?Q?Roberto_Sch=C3=A4fer?=)
Date: Sat, 27 Dec 2014 21:21:29 +0100
Subject: [Dresden-pm] Verschiebung Treffer im Januar 2015: 1.1. -> 8.1.
In-Reply-To: <549F092B.30405@s5g.de>
References: <549F092B.30405@s5g.de>
Message-ID: <CAErvz4pFzSebeUj8zUwyZyzW5Nw5LiYjWb34d8CG=OZrFJescg@mail.gmail.com>

Ich kann noch nicht defintiv zusagen aber ich hätte für den 1.1. Sowieso
abgesagt ;-)
Am 27.12.2014 20:40 schrieb "Dominic Sonntag" <dominic at s5g.de>:

> Hallo alle zusammen,
>
> unser nächstes Treffen wäre turnusgemäß am 1.1.2015. Wir hatten das beim
> letzten Treffen schon teilweise angesprochen: Ich schlage vor, dass wir
> das Treffen um eine Woche auf Donnerstag, den 8. Januar 2015 verschieben.
>
> Bis dahin wünsche ich euch einen guten Start ins neue Jahr!
>
> Herzliche Grüße
> Dominic
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
>
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20141227/c895a186/attachment.html>

From joerg.westphal at ionix.de  Sat Dec 27 12:29:46 2014
From: joerg.westphal at ionix.de (=?utf-8?Q?J=C3=B6rg_Westphal?=)
Date: Sat, 27 Dec 2014 21:29:46 +0100
Subject: [Dresden-pm] Verschiebung Treffer im Januar 2015: 1.1. -> 8.1.
In-Reply-To: <549F092B.30405@s5g.de>
References: <549F092B.30405@s5g.de>
Message-ID: <j05bb8qBRKTkaLA.RZmta@mo4-p00-ob.smtp.rzone.de>

Muss ich leider passen. Bin am 8. und 9. dienstlich unterwegs.

Gruß Jörg 

----- Ursprüngliche Nachricht -----
Von: "Dominic Sonntag" <dominic at s5g.de>
Gesendet: ?27.?12.?2014 20:40
An: "dresden-pm at pm.org" <dresden-pm at pm.org>
Betreff: [Dresden-pm] Verschiebung Treffer im Januar 2015: 1.1. -> 8.1.

Hallo alle zusammen,

unser nächstes Treffen wäre turnusgemäß am 1.1.2015. Wir hatten das beim
letzten Treffen schon teilweise angesprochen: Ich schlage vor, dass wir
das Treffen um eine Woche auf Donnerstag, den 8. Januar 2015 verschieben.

Bis dahin wünsche ich euch einen guten Start ins neue Jahr!

Herzliche Grüße
Dominic
_______________________________________________
Dresden-pm mailing list
Dresden-pm at pm.org
http://mail.pm.org/mailman/listinfo/dresden-pm
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20141227/48b73c5f/attachment.html>