From juffi at ai.univie.ac.at  Thu May  4 06:40:18 2000
From: juffi at ai.univie.ac.at (Johannes Fuernkranz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] pipe or die
Message-ID: <391161A2.191C7A58@ai.univie.ac.at>

* * * vienna-pm-list * * *


Habe folgendes Problem:

open(IN,"< non_existent_file") or die "File doesn't exist";

verstirbt brav. Aber

open(IN,"non_existent_script |") or die "Script doesn't exist";

geht nicht. Der Aufruf von non_existent_script scheitert, produziert
keinen Output, und der leere Output wird mit IN assoziert. 

Frage: Wie bring ich das zum Sterben ohne dasz ich auf ein Zwischenfile
schreiben musz?

thx,

						Juffi
--
Johannes Fuernkranz    
Austrian Research Inst. for Artificial Intelligence fax:+43-1-5336112-77
Schottengasse 3, A-1010 Vienna, Austria, Europe   phone:+43-1-5336112-19 
http://www.ai.univie.ac.at/~juffi           mailto:juffi@ai.univie.ac.at
--------------- "Life is too short for Chess." -- Byron ----------------
###
You are subscribed to vienna-pm-list as Johannes Fuernkranz <juffi@ai.univie.ac.at>
http://www.fff.at/fff/vienna.pm/

From toni at soth.at  Thu May  4 08:09:26 2000
From: toni at soth.at (Toni Andjelkovic)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] pipe or die
In-Reply-To: <391161A2.191C7A58@ai.univie.ac.at>; from juffi@ai.univie.ac.at on Thu, May 04, 2000 at 01:40:18PM +0200
References: <391161A2.191C7A58@ai.univie.ac.at>
Message-ID: <20000504150926.A10292@catacombs.soth.at>

* * * vienna-pm-list * * *


Johannes Fuernkranz wrote on Thu, May 04 2000 (13:40:18 +0200):
> open(IN,"non_existent_script |") or die "Script doesn't exist";

eventuell

  open(IN, "<foobar |") or die "open: $!\n";

oder du machst den check beim ersten read oder write auf
dieses filehandle.

der return-code ist deswegen immer ok, weil der prozess
"non_existent_script" geforkt wird, und der perl-parent
nur den return-code von fork() kriegt, glaub ich halt.

cu,
-- 
Toni Andjelkovic
toni@soth.at

###
You are subscribed to vienna-pm-list as Toni Andjelkovic <toni@soth.at>
http://www.fff.at/fff/vienna.pm/

From hjp+dbi at wsr.ac.at  Thu May  4 10:47:40 2000
From: hjp+dbi at wsr.ac.at (Peter J . Holzer)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] pipe or die
In-Reply-To: <20000504150926.A10292@catacombs.soth.at>; from Toni Andjelkovic on Thu, May 04, 2000 at 03:09:26PM +0200
References: <391161A2.191C7A58@ai.univie.ac.at> <20000504150926.A10292@catacombs.soth.at>
Message-ID: <20000504174740.G28705@wsr.ac.at>

On 2000-05-04 15:09:26 +0200, Toni Andjelkovic wrote:
> Johannes Fuernkranz wrote on Thu, May 04 2000 (13:40:18 +0200):
> > open(IN,"non_existent_script |") or die "Script doesn't exist";
> 
> eventuell
> 
>   open(IN, "<foobar |") or die "open: $!\n";
             ^^^^^^^^^^^
Das versucht ein File namens "foobar |" zum Lesen zu ?ffnen :-)


> oder du machst den check beim ersten read oder write auf
> dieses filehandle.
> 
> der return-code ist deswegen immer ok, weil der prozess
> "non_existent_script" geforkt wird, und der perl-parent
> nur den return-code von fork() kriegt, glaub ich halt.

Stimmt. Den Exit-Code des Scripts (eigentlich der Shell) bekommt er erst
beim Close.

folgendes Script:

#!/usr/bin/perl -w 


open(IN,"./a_script |") or die "open failed: $!";
while (<IN>) {
    print "Script: $_";
}
close(IN) or die "close failed: $!";

stirbt nach dem close, wenn das Script nicht existiert oder  einen
Exit-Code != 0  liefert. Den Exit-Code (*256) kann man mit $? abfragen,
wenn man unterschiedliche Exit-Codes unterschiedlich behandeln will. 

	hp

-- 
   _  | Peter J. Holzer      | ... Desinformation und Ger?chte,
|_|_) | Sysadmin WSR / LUGA  |  im Internet auch "flaming" genannt ...
| |   | hjp@wsr.ac.at        |
__/   | http://www.hjp.at/   |	   -- Telekom-Presse 2000-04-26    
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 371 bytes
Desc: not available
Url : http://mail.pm.org/archives/vienna-pm/attachments/20000504/6bdb9f84/attachment.bin
From Roland.Bauer at mediaprint.at  Mon May 15 03:05:55 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: Re: [vienna.pm] pipe or die
Message-ID: <s91fd46c.083@SE-MAIL>

* * * vienna-pm-list * * *


> Johannes Fuernkranz wrote on Thu, May 04 2000 (13:40:18 +0200):
> > open(IN,"non_existent_script |") or die "Script doesn't exist";


Ergaenzug aus dem Perl-FAQ ;-)
http://www.perl.com/perl/faq/

-----------------------
Question:
Why doesn't open() return an error when a pipe open fails?

    It does, but probably not how you expect it to. On systems that
    follow the standard fork()/exec() paradigm (such as Unix), it works
    like this: open() causes a fork(). In the parent, open() returns
    with the process ID of the child. The child exec()s the command to
    be piped to/from. The parent can't know whether the exec() was
    successful or not - all it can return is whether the fork()
    succeeded or not. To find out if the command succeeded, you have to
    catch SIGCHLD and wait() to get the exit status. You should also
    catch SIGPIPE if you're writing to the child -- you may not have
    found out the exec() failed by the time you write. This is
    documented in the perlipc manpage.

    On systems that follow the spawn() paradigm, open() *might* do what
    you expect - unless perl uses a shell to start your command. In
    this case the fork()/exec() description still applies.
------------------------------

Taeglich eine FAQ aus dem FAQ kann man sich zumailen lassen via
This is a daily mailing from the Perl FAQ a Day website.
For subscription info, or to have your address removed from 
the mailing list, please see http://yoak.com/daily_perl/ 

Schoene Gruesse
Roland






###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From p.guehring at poboxes.com  Mon May 15 12:27:22 2000
From: p.guehring at poboxes.com (Philipp Gühring)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Komprimierungsalgorithmus
Message-ID: <00051519323403.00508@linux1>

* * * vienna-pm-list * * *


Hi!

Ich bräuchte einen maßgeschneiderten Komprimierungsalgorithmus
, und daher wahrscheinlich einen Spezialisten, der mir dabei hilft, weil ich
mich bis jetzt fast gar nicht mit diesem Thema beschäftigt habe.

Folgende Anforderungen:
1. Asynchrones oder zumindest synchrones Verhalten: Die Dekomprimierung sollte
gleich lang oder wenns geht LÄNGER dauern, und nicht weiter optimierbar sein,
oder zumindest beeinflußbar und vorhersagbar sein.
2. Es dürfen keine CRCs, Checks, Redundanzen, ... im komprimierten Material
drinnen sein. Also explizit keine Absicherung und Information, ob die
dekomprimierung erfolgreich war, oder der komprimierte Strom fehlerhaft.
3. Gute Komprimierung ;-)

Achja, die Programmiersprache sollte bevorzugt Perl sein, sollte aber
portierbar sein. ;-)

Schöne Grüße,
-- 
~ Philipp Gühring              p.guehring@poboxes.com
~ http://www.futureware.at/       ICQ UIN: 6588261
###
You are subscribed to vienna-pm-list as Philipp Gühring <p.guehring@poboxes.com>
http://www.fff.at/fff/vienna.pm/

From seitz at bzs.tu-graz.ac.at  Mon May 15 17:42:00 2000
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Probs mit CGI-Script
Message-ID: <2B9D2D2113D@bzs.tu-graz.ac.at>

* * * vienna-pm-list * * *


Hallo Freunde,

ich habe ein klein wenig Schwierigkeiten mit einem CGI-Script, 
welches auf einem Apache (WinNT 4.0) mit ActivePerl laufen soll.

Fuer eine Listenfeld in einem Formular moechte ich bei der 
Fehlerbehandlung die bereits gesetzten Werte setzen. Ich habe das wie 
folgt realisiert:

sub novalue{
#   generate error message in case any important field is not filled out
#
  local( $item )= @_;
  $field_checklist1{"$FORM{'checklist'}"} = "checked";
  $field_checklist2{"$FORM{'month'}"} = "selected";
#print "$FORM{'month'} --\n"
print "$field_checklist2{'Februar'}\n";

print <<"EOT";
Content-type: text/html

<html><head><title>$item nicht definiert</title></head>
# [...]
    <td></font><font color=green><b>Termin:</b></font></td>
    <td><input name="day" size=2 maxlength=2 value="$FORM{'day'}">&nbsp;
    <select name="month" size=1>
    <option $field_checklist2{"Januar"}> Januar
    <option $field_checklist2{"Februar"}> Februar
    <option $field_checklist2{"M&auml;rz"}> M&auml;rz
    <option $field_checklist2{"April"}> April</option>
    <option> Mai</option>
    <option $field_checklist2{"Juni"}> Juni</option>
    <option $field_checklist2{"July"}> July</option>
    <option $field_checklist2{"August"}> August</option>
    <option $field_checklist2{"September"}> September</option>
    <option $field_checklist2{"Oktober"}> Oktober</option>
    <option> November</option>
    <option $field_checklist2{'Dezember'}> Dezember</option>
    </select>&nbsp;
    <input name="year" size=4 maxlength=4 value="2000" value="$FORM{'year'}"> wann Checkliste erledigt sein soll<br></td></tr>

# [...]
</table>

<ul></ul><input type=submit value="Dokument generieren"> --- <input type=reset value="Formular l?schen">
<br><font size=-2>Hinweis: Datum und Dokumentname werden automatisch generiert.
</FORM>

# [...]
EOT
;
   # Log The Error
#   if ($uselog eq '1') {
#      &log('no_name');
#   }
#  quit the cgi-script
   exit;
} ## novalue


Wenn ich nun im Mai auch ein $field_checklist2{"Mai"} einfuege, dann 
braucht das Script vom Browser aus aufgerufen eine halbe Ewigkeit und 
kommt nicht zu Ende. Wenn ich das script von der Befehlszeile aufrufe 
scheint alles zu klappen. Ein kurzer Test unter Linux auf der 
Befehlszeile hat auch nichts auffaelliges ergeben.

Irgendwo mach ich da wohl was falsch, doch nur was?

Daraufhin hab ich ein miniscript zum testen geschrieben, welches 
leider auch nicht funktioniert. Er schreibt sowas wie "malformatted 
header at <tr><td>"

#!c:\perl\bin\perl.exe -w

print <<"EOT";
<tr><td>5.&nbsp;&nbsp;</td>
    <td></font><font color=green><b>Termin:</b></font></td>
    <td><input name="day" size=2 maxlength=2 
value="$FORM{'day'}">&nbsp;
    <select name="month" size=1>
    <option $field_checklist2{"Januar"}> Januar
    <option $field_checklist2{"Februar"}> Februar
    <option $field_checklist2{"M&auml;rz"}> M&auml;rz
    <option $field_checklist2{"April"}> April</option>
    <option> Mai</option>
    <option $field_checklist2{"Juni"}> Juni</option>
    <option $field_checklist2{"July"}> July</option>
    <option $field_checklist2{"August"}> August</option>
    <option $field_checklist2{"September"}> September</option>
    <option $field_checklist2{"Oktober"}> Oktober</option>
    <option> November</option>
    <option> Dezember</option>
    </select>&nbsp;
    <input name="year" size=4 maxlength=4 value="2000" 
value="$FORM{'year'}"> wann Checkliste erledigt sein 
soll<br></td></tr>
EOT
;

Wer kann helfen.

Danke fuer Euere Tips.


With best compliments

           Peter Seitz
--

  Technische Universitaet Graz, Austria  - Fak. f. Bauingenieurwesen
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

              Mitglied der Pegasus Mail Supportgruppe
        Koordinator des Pegasus Mail Uebersetzungsprozesses
Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror:   http://ftp.uni-mannheim.de/mirror/pmail/


###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz@bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/

From fhe at mmm.at  Tue May 16 01:52:15 2000
From: fhe at mmm.at (Florian Helmberger)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Komprimierungsalgorithmus
In-Reply-To: <00051519323403.00508@linux1>
Message-ID: <4.3.0.20000516085126.00af2ea0@192.9.200.200>

* * * vienna-pm-list * * *


At 19:27 15.05.00 +0200, Philipp G?hring wrote:

>Folgende Anforderungen:
>1. Asynchrones oder zumindest synchrones Verhalten: Die Dekomprimierung sollte
>gleich lang oder wenns geht L?NGER dauern, und nicht weiter optimierbar sein,
>oder zumindest beeinflu?bar und vorhersagbar sein.
>2. Es d?rfen keine CRCs, Checks, Redundanzen, ... im komprimierten Material
>drinnen sein. Also explizit keine Absicherung und Information, ob die
>dekomprimierung erfolgreich war, oder der komprimierte Strom fehlerhaft.
>3. Gute Komprimierung ;-)
>
>Achja, die Programmiersprache sollte bevorzugt Perl sein, sollte aber
>portierbar sein. ;-)

Da das ja eine Perl Mailingliste ist:

http://search.cpan.org/Catalog/Archiving_Compression_Conversion/

Such Dir ein Modul aus, das Dir zu Gesicht steht.

Liebe Gr??e,
Florian


###
You are subscribed to vienna-pm-list as Florian Helmberger <fhe@mmm.at>
http://www.fff.at/fff/vienna.pm/

From marcel at codewerk.com  Tue May 16 02:36:51 2000
From: marcel at codewerk.com (Marcel Grunauer)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Probs mit CGI-Script
In-Reply-To: <2B9D2D2113D@bzs.tu-graz.ac.at>
References: <2B9D2D2113D@bzs.tu-graz.ac.at>
Message-ID: <eiu1isgibn54moe0o8lhkrpobmv4ognilb@4ax.com>

* * * vienna-pm-list * * *


On Mon, 15 May 2000 23:42:00 +0100, you wrote:

>Fuer eine Listenfeld in einem Formular moechte ich bei der 
>Fehlerbehandlung die bereits gesetzten Werte setzen. Ich habe das wie 
>folgt realisiert:

Wenn Du die HTML-Methoden von CGI.pm verwendest, sind die Werte darin
"sticky".


-- 
Marcel, Perl Padawan
sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker;
###
You are subscribed to vienna-pm-list as Marcel Grunauer <marcel@codewerk.com>
http://www.fff.at/fff/vienna.pm/

From seitz at bzs.tu-graz.ac.at  Tue May 16 17:31:33 2000
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Probs mit CGI-Script
Message-ID: <2D25CB652C4@bzs.tu-graz.ac.at>

* * * vienna-pm-list * * *


On Tue, 16 May 2000 8:50:55 +0200 I wrote:

> * * * vienna-pm-list * * *
> 
> 
> Hallo Freunde,
> 
> ich habe ein klein wenig Schwierigkeiten mit einem CGI-Script, 
> welches auf einem Apache (WinNT 4.0) mit ActivePerl laufen soll.
> 
> Fuer eine Listenfeld in einem Formular moechte ich bei der 
> Fehlerbehandlung die bereits gesetzten Werte setzen. Ich habe das wie 
> folgt realisiert:
> 
[...]
> 
> Wenn ich nun im Mai auch ein $field_checklist2{"Mai"} einfuege, dann 
> braucht das Script vom Browser aus aufgerufen eine halbe Ewigkeit und 
> kommt nicht zu Ende. 

Ich habe herausgefunden, dass Active Perl es offensichtlich nicht 
mag, wenn man perl mit der Option -w startet und dann zahlreiche 
Fehlermeldungen aufscheinen, wenn Variablen nur einmal verwendet 
werden oder wenn auf nicht initialisierte Variablen zugegriffen 
werden. Als ich die -w option entfernt habe hat alles wieder 
funktioniert.

Zusatzinfo: Wenn man den das CGI-Script im WEbbrowser abgebrochen hat 
ist nach wie vor ein perl.exe aktiv, welches sich als normaler 
Benutzer nicht mit dem Taskmanager killen laesst. Bei jedem weiteren 
Versuch landet ein weiteres perl.exe im Speicher, welches dann das 
System langsam und instabil werden laesst.

> Wenn ich das script von der Befehlszeile aufrufe 
> scheint alles zu klappen. Ein kurzer Test unter Linux auf der 
> Befehlszeile hat auch nichts auffaelliges ergeben.
> 
> Irgendwo mach ich da wohl was falsch, doch nur was?
> 
[...]

With best compliments

           Peter Seitz
--

  Technische Universitaet Graz, Austria  - Fak. f. Bauingenieurwesen
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

              Mitglied der Pegasus Mail Supportgruppe
        Koordinator des Pegasus Mail Uebersetzungsprozesses
Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror:   http://ftp.uni-mannheim.de/mirror/pmail/


###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz@bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/

From fhe at mmm.at  Wed May 17 03:17:27 2000
From: fhe at mmm.at (Florian Helmberger)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Probs mit CGI-Script
In-Reply-To: <2D25CB652C4@bzs.tu-graz.ac.at>
Message-ID: <4.3.0.20000517101647.00ad0950@192.9.200.200>

* * * vienna-pm-list * * *


At 23:31 16.05.00 +0100, Peter Seitz wrote:

>Ich habe herausgefunden, dass Active Perl es offensichtlich nicht
>mag, wenn man perl mit der Option -w startet und dann zahlreiche
>Fehlermeldungen aufscheinen, wenn Variablen nur einmal verwendet
>werden oder wenn auf nicht initialisierte Variablen zugegriffen
>werden. Als ich die -w option entfernt habe hat alles wieder
>funktioniert.

Statt -w kann man auch

use diagnostics;

benutzen. Kommt aufs gleiche raus ;)

Florian

###
You are subscribed to vienna-pm-list as Florian Helmberger <fhe@mmm.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Wed May 17 05:11:14 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: Re: [vienna.pm] Probs mit CGI-Script
Message-ID: <s9228c67.060@SE-MAIL>

* * * vienna-pm-list * * *


<Ich habe herausgefunden, dass Active Perl es offensichtlich nicht 
<mag, wenn man perl mit der Option -w startet und dann zahlreiche 
<Fehlermeldungen aufscheinen, wenn Variablen nur einmal verwendet 
<werden oder wenn auf nicht initialisierte Variablen zugegriffen 
<werden. Als ich die -w option entfernt habe hat alles wieder 
<funktioniert.

Aus meiner Sicht ist das genau die Aufgabe von -w, solche
Nachlassigkeiten (potentielle Fehler) aufzuzeigen.

-w (bzw. use diagnostics;) ist sozusagen die steigerung von use strict.

<Zusatzinfo: Wenn man den das CGI-Script im WEbbrowser abgebrochen hat 
<ist nach wie vor ein perl.exe aktiv

Das verstehe ich nicht: Wie kann man ein CGI-Script ueberhaupt
abbrechen? Ich dachte, man kann ein CGI-Script bloss aufrufen ...

Roland


--
roland.bauer@mediaprint.at
TEL: +43-1-36000/3949

###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From fhe at mmm.at  Wed May 17 05:12:03 2000
From: fhe at mmm.at (Florian Helmberger)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: Re: [vienna.pm] Probs mit CGI-Script
In-Reply-To: <s9228c67.060@SE-MAIL>
Message-ID: <4.3.0.20000517121148.00b01ac0@192.9.200.200>

* * * vienna-pm-list * * *


At 12:11 17.05.00 +0200, Roland Bauer wrote:

><Zusatzinfo: Wenn man den das CGI-Script im WEbbrowser abgebrochen hat
><ist nach wie vor ein perl.exe aktiv
>
>Das verstehe ich nicht: Wie kann man ein CGI-Script ueberhaupt
>abbrechen? Ich dachte, man kann ein CGI-Script bloss aufrufen ...

http://perl.apache.org/guide/debug.html#Handling_the_User_pressed_Stop_

Florian


###
You are subscribed to vienna-pm-list as Florian Helmberger <fhe@mmm.at>
http://www.fff.at/fff/vienna.pm/

From p.seitz at koehler-seitz.de  Sun May 21 13:05:39 2000
From: p.seitz at koehler-seitz.de (Peter Seitz jun.)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] CPAN auf CD-Rom
Message-ID: <A2D817D3A@koehler-seitz.de>

* * * vienna-pm-list * * *


Hallo Perl Freunde,

als TeX user und DANTE Mitglied bin ich es mittlerweile gewohnt den 
CTAN-Server einmal pro Jahr auf CD-Rom (3 Stueck) zu bekommen.

Das ist eine feine Sache, da man offline sehr schoen auf den CDs 
suche kann.

Auf dem CPAN finde ich mich online nicht immer gut zurecht und wuerde 
gerne dort etwas laenger stoebern.

Frage: gibt es den CPAN auch irgendwo auf CD-Rom? Wer kann mir hier 
einige guenstige Quellen nennen?

Ich hab gehoert, dass auf der professionellen RedHat 6.1 ein CPAN 
Abzug drauf sein soll, doch diese Version ist mir doch etwas zu 
teuer...


With best compliments

           Peter Seitz
--

  Technische Universitaet Graz, Austria  - Fak. f. Bauingenieurwesen
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

              Mitglied der Pegasus Mail Supportgruppe
        Koordinator des Pegasus Mail Uebersetzungsprozesses

Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror:   http://ftp.uni-mannheim.de/mirror/pmail/


###
You are subscribed to vienna-pm-list as "Peter Seitz jun." <p.seitz@koehler-seitz.de>
http://www.fff.at/fff/vienna.pm/

From p.guehring at poboxes.com  Sun May 21 12:03:17 2000
From: p.guehring at poboxes.com (Philipp Gühring)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] ftp://
Message-ID: <00052119114000.02632@linux1>

* * * vienna-pm-list * * *


Hallo!

Wieso geht das nicht? :
mirror("ftp://ftp.ucc.ie/pub/net/doc/acronym.dat.gz","Acronym/acronym.gz"); 

Ich hab mir den Source des Moduls angeschaut, und da wird ftp immer wieder mal
erwähnt.
Soll ich nun darauf warten, daß das ganze implementiert wird, es selber
implementieren, oder einfach einen Workaround machen?
Mein derzeitiger Workaround:

use Net::FTP;
$ftp=Net::FTP->new("ftp.ucc.ie");
$ftp->login("anonymous","p.guehring@poboxes.com");
$ftp->cwd("/pub/net/doc/");
$ftp->get("acronym.dat.gz","Acronym/acronym.gz");

Was meint ihr?
Schöne Grüße,
-- 
~ Philipp Gühring              p.guehring@poboxes.com
~ http://www.futureware.at/       ICQ UIN: 6588261
~ My /home is my Kastl.
###
You are subscribed to vienna-pm-list as Philipp Gühring <p.guehring@poboxes.com>
http://www.fff.at/fff/vienna.pm/

From mihi at gmx.at  Tue May 23 01:18:42 2000
From: mihi at gmx.at (mihi)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Date
Message-ID: <392A22C2.1F42E0A6@gmx.at>

* * * vienna-pm-list * * *


Hallo leute, wie kann ich auf date zugreifen?
danke mihi
###
You are subscribed to vienna-pm-list as mihi <mihi@gmx.at>
http://www.fff.at/fff/vienna.pm/

From fhe at mmm.at  Tue May 23 02:34:18 2000
From: fhe at mmm.at (Florian Helmberger)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Date
In-Reply-To: <392A22C2.1F42E0A6@gmx.at>
Message-ID: <4.3.0.20000523092951.00b028d0@192.9.200.200>

* * * vienna-pm-list * * *


At 08:18 23.05.00 +0200, mihi wrote:

>Hallo leute, wie kann ich auf date zugreifen?
>danke mihi

Kommt drauf an was Du machen willst - aber f?r "wildere" Sachen als einfach 
abzufragen, was das aktuelle Datum ist, schau Dich bei

         http://www.cpan.org

in der Unterkategorie Date.

F?r ersteres

         perldoc -f localtime

Liebe Gr??e,
Florian

###
You are subscribed to vienna-pm-list as Florian Helmberger <fhe@mmm.at>
http://www.fff.at/fff/vienna.pm/

From ad at mmm.at  Tue May 23 23:24:50 2000
From: ad at mmm.at (Andreas de Pretis)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Job
Message-ID: <4.3.1.0.20000524062255.00b57ed0@pop.intranet>

* * * vienna-pm-list * * *



Mitarbeiter f?r Datenkonvertierung

Eine interessante Position fuer BewerberInnen mit technischem know how in 
der Datenaufbereitung. Ihre Aufgabe ist es, Inputdaten fuer die 
Weiterverarbeitung in der  Druckvorstufe und fuer Internet- oder 
Multimediaproduktionen aufzubereiten.

Dabei verfuegen Sie ueber sehr gute Windows 9.x-Kenntnisse (MacOS, UNIX 
sind von Vorteil) und gute Kenntnisse der Script-Sprache Perl.

Fuer diese Position sind Flexibilitaet, genaues Arbeiten und kommunikative 
Faehigkeiten erforderlich.

Interessenten wenden sich bitte per e-Mail an:

     jobs@manzcrossmedia.at

###
You are subscribed to vienna-pm-list as Andreas de Pretis <ad@mmm.at>
http://www.fff.at/fff/vienna.pm/

From seitz at bzs.tu-graz.ac.at  Wed May 24 15:10:57 2000
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] cgi.pm Frage
Message-ID: <387B1F24477@bzs.tu-graz.ac.at>

* * * vienna-pm-list * * *


Hallo Freunde,

ich habe mir mal das cgi.pm Modul angeschaut.

Fuer eine Webanwendung moechte ich zahlreiche Eingabeformulare 
machen. Mir wurde gesagt, dass das mit dem cgi.pm viel einfacher ist. 
Zugegeben, die Auswertung derr Werte aus dem Formular ist schon 
einfacher, doch die generierung des HTML-Textes ist in der Regel sehr 
viel komplizierter als wenn ich es von Hand schreibe.

Ich sehe zwar bei der Auwertung der Formularfelder oder beim 
generieren eines HTML-Headers schon Vorteile von cgi.pm, doch wie
sieht es mit dem Rest aus? Wo liegt da wirklich der Vorteil?

Ich versuche mich momentan mit einem Mischmasch aus haendisch 
geschreibenen Formular und Dinge aus dem cgi.pm. Was verwendet Ihr 
fuer solche Geschichten?


With best compliments

           Peter Seitz
--

  Technische Universitaet Graz, Austria  - Fak. f. Bauingenieurwesen
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

              Mitglied der Pegasus Mail Supportgruppe
        Koordinator des Pegasus Mail Uebersetzungsprozesses

Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror:   http://ftp.uni-mannheim.de/mirror/pmail/


###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz@bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/

From seitz at bzs.tu-graz.ac.at  Wed May 24 15:06:18 2000
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Date
Message-ID: <387B1325265@bzs.tu-graz.ac.at>

* * * vienna-pm-list * * *


On Tue, 23 May 2000 9:40:54 +0200
   Florian Helmberger <fhe@mmm.at> wrote:

Hallo Mihi,

> * * * vienna-pm-list * * *
> 
> 
> At 08:18 23.05.00 +0200, mihi wrote:
> 
> >Hallo leute, wie kann ich auf date zugreifen?
> >danke mihi
> 
> Kommt drauf an was Du machen willst - aber f?r "wildere" Sachen als einfach 
> abzufragen, was das aktuelle Datum ist, schau Dich bei
> 
>          http://www.cpan.org
> 
> in der Unterkategorie Date.
> 
> F?r ersteres
> 
>          perldoc -f localtime
> 

ich mach das wie folgt:

#!/usr/bin/perl -w

  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  $year += 1900;        # $year is years since 1900
# for the timezone, we need a special package
#  $tzoffset = tz_local_offset();
#  $tzone =  sprintf("%s%02d%02d", $tzoffset >= 0 ? "+" : "-",
#              int(abs($tzoffset)/3600), int(abs($tzoffset)/60%60));
#  print "Timezone='$tzone'\n" if $debug;
#  $date =  sprintf("%3s, %2d %3s %4d %02d:%02d:%02d %5s",
#             $DoW[$wday], $mday, $MoY[$mon], $year, $hour, $min, $sec, $tzone);
  $date = sprintf("%4d-%02d-%02d", $year, $mon+1, $mday);
  print $date;

Somit steht in $date das aktuelle Datum.

Ich habe dazu aber gleich eine Frage. Wenn ich nun obiges Programm 
ausfuehre, dann kommt die Warnung:
Name "Main::sec" used only once: possible typo at c:\tmp\t in line 2
Die Warnung an sich ist mir schon klar, nur wie bekomme ich sie weg?

Ich benoetige in diesem Beispiel die Werte $min, $sec, etc nicht. 
Ich hab auch schon probiert die Werte einfach wegzulassen doch das 
hat nicht funktioniert.

Bin fuer professionelle Tips sehr dankbar :-)


With best compliments

           Peter Seitz
--

  Technische Universitaet Graz, Austria  - Fak. f. Bauingenieurwesen
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

              Mitglied der Pegasus Mail Supportgruppe
        Koordinator des Pegasus Mail Uebersetzungsprozesses

Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror:   http://ftp.uni-mannheim.de/mirror/pmail/



###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz@bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/

From seitz at bzs.tu-graz.ac.at  Wed May 24 15:17:26 2000
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Template Datei mit Werten ersetzen
Message-ID: <387B1F264B6@bzs.tu-graz.ac.at>

* * * vienna-pm-list * * *


Nochmals hallo Perl Freunde,

ich moechte mir fuer eine Webanwendung ein Template stricken, da das 
Grundformular ilmmer gleich aussieht und sich nur bestimmte Teile 
aendern. (PHP kann ich noch nicht...)

ich habe mir nun ueberlegt, dass ich in das template einfach die Perl 
Variablen reinschreiben koennte, also z.B. 

Das ist ein $test template  fuer eine Webanwendung...

Wenn ich dann auf $test den Wert "WICHTIGES" abgespeichert habe sollte
beim Ausdruck der obigen Zeile das $test ersetzt werden.

Wenn ich die Zeile eingelesen habe und mittels print "$_\n" 
ausdrucke, wird die Variable aber nicht ersetzt. Gibt es eine 
Moeglichkeit das irgendwie einfach und vor allem schnell zu loesen?

Ich moechte nicht jede Zeile mit allen Variablen matchen um die Werte 
zu ersetzten.

bin fuer jeden Tip Dankbar.


Gruss
               Peter Seitz
      Projektleiter Projekt Woerterbuch
--
Interesse an einem freien deutschen Woerterbuch? Helfer gesucht!
Projekt Woerterbuch: <URL:http://Free-Dict.bzs.tu-graz.ac.at/>

###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz@bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Wed May 24 16:19:29 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: Re: [vienna.pm] Date
Message-ID: <s92c639a.066@SE-MAIL>

* * * vienna-pm-list * * *


>  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
>Ich habe dazu aber gleich eine Frage. Wenn ich nun obiges Programm 
>ausfuehre, dann kommt die Warnung:
>Name "Main::sec" used only once: possible typo at c:\tmp\t in line 2
>Die Warnung an sich ist mir schon klar, nur wie bekomme ich sie weg?

Statt "$sec" zB "undef" schreiben. "undef" ist ein Schluesselwort.

>Bin fuer professionelle Tips sehr dankbar :-)

Weiss nicht, ob das professionell war :-)

Roland

###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From p.guehring at poboxes.com  Wed May 24 15:16:04 2000
From: p.guehring at poboxes.com (Philipp Gühring)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Source Audit
Message-ID: <00052222101500.00501@linux1>

Hallo Perl Mongers!

Könntet ihr die angehängten Sourcecodes mal durchsehen, und eure Kommentare
dazu abgeben?

(Dies ist das vorläufige Ergebnis meiner Anfrage damals beim Perl-Monger
Treffen, die Datenbank-Konvertierungsgeschichte)

Schöne Grüße,
-- 
~ Philipp Gühring              p.guehring@poboxes.com
~ http://www.futureware.at/       ICQ UIN: 6588261
~ My /home is my Kastl.


-------------- next part --------------
A non-text attachment was scrubbed...
Name: dict.tgz
Type: application/x-gzip
Size: 2609 bytes
Desc: not available
Url : http://mail.pm.org/archives/vienna-pm/attachments/20000524/62ab391b/dict.bin
From Roland.Bauer at mediaprint.at  Wed May 24 16:33:35 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Template Datei mit Werten ersetzen
Message-ID: <s92c66d6.068@SE-MAIL>

* * * vienna-pm-list * * *


>Ich moechte nicht jede Zeile mit allen Variablen matchen um die Werte 
>zu ersetzten.

Das funktioniert:

---------------------------------
use strict;
my $wort = "Haus";
my $x = "Das $wort ist klein.";
print $x;
---------------------------------

Oder hast Du was anderes gemeint?

Aber such einmal auf CPAN nach "template"
und dann ... Mason, boilerplate, tmpl

Roland


###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From seitz at bzs.tu-graz.ac.at  Thu May 25 13:32:57 2000
From: seitz at bzs.tu-graz.ac.at (Peter Seitz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] cgi.pm: Radio Buttons beschriften
Message-ID: <39DD6BD752D@bzs.tu-graz.ac.at>

* * * vienna-pm-list * * *


Hallo Perl Freunde,

ich programmiere gerade wild mit Perl und habe mir die cgi.pm mal 
etwas naeher angeschaut.

Mittlerweile habe ich fuer dynamische Webeiten Templates vorbereitet, 
in die ich dann mit einem Script die entsprechenden Werte austausche.

ich verwende also nur einige wenige Befehle von CGI.pm.

Bei einer Radio-Button Liste lese ich mir die Beschriftung der 
Buttons aus einer Datei waehrend der Laufzeit. Ich habe den Text der 
Buttons im HTML-Format vorliegen, d.h. die Umlaute sind korrekt als 
&auml;, etc. konvertiert.
Wenn ich nun den Text

    '?nderung des Textes'
mittelsl CGI.pm ausgeben lasse, dann macht das Modul folgendes daraus:
    '&Auml;nderung des Textes'
    
Wenn ich den Umlaut aber mit einem Windows-Editor in die Textdatei 
reinschreibe, dann wird dieer nicht richtig codiert, d.h. er ist 
wieder nur auf der Windows Platform korrekt lesbar.

Meine Frage lautet hier also, wie ich es schaffe, dass entweder die 
Umlaute richtig konvertiert werden oder dass das cgi.pm mir den Text 
nicht selber umschreibt.

Waere echt toll, wenn mir einer diese harte Nuss loesen koennte.


With best compliments

           Peter Seitz
--

  Technische Universitaet Graz, Austria  - Fak. f. Bauingenieurwesen
  mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

              Mitglied der Pegasus Mail Supportgruppe
        Koordinator des Pegasus Mail Uebersetzungsprozesses

Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror:   http://ftp.uni-mannheim.de/mirror/pmail/
###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz@bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/

From marcel at codewerk.com  Fri May 26 02:37:47 2000
From: marcel at codewerk.com (marcel@codewerk.com)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] cgi.pm: Radio Buttons beschriften
In-Reply-To: <39DD6BD752D@bzs.tu-graz.ac.at>
Message-ID: <Pine.LNX.4.21.0005260934510.452-100000@codewerk.com>

* * * vienna-pm-list * * *


Hi,

~~ Bei einer Radio-Button Liste lese ich mir die Beschriftung der 
~~ Buttons aus einer Datei waehrend der Laufzeit. Ich habe den Text der 
~~ Buttons im HTML-Format vorliegen, d.h. die Umlaute sind korrekt als 
~~ &auml;, etc. konvertiert.
~~ Wenn ich nun den Text
~~ 
~~     'Änderung des Textes'
~~ mittelsl CGI.pm ausgeben lasse, dann macht das Modul folgendes daraus:
~~     '&Auml;nderung des Textes'
~~     

In CGI.pm gibt es dafuer autoEscape().

	$q->autoEscape(undef);
	# jetzt die radiobuttons erstellen
	$q->autoEscape(1);


Marcel


###
You are subscribed to vienna-pm-list as marcel@codewerk.com
http://www.fff.at/fff/vienna.pm/

From hjp at wsr.ac.at  Fri May 26 02:45:21 2000
From: hjp at wsr.ac.at (Peter J . Holzer)
Date: Thu Aug  5 00:23:32 2004
Subject: HTML Entities und Umlaute (was: [vienna.pm] cgi.pm: Radio Buttons beschriften)
In-Reply-To: <39DD6BD752D@bzs.tu-graz.ac.at>; from Peter Seitz on Thu, May 25, 2000 at 07:32:57PM +0100
References: <39DD6BD752D@bzs.tu-graz.ac.at>
Message-ID: <20000526094521.P17526@wsr.ac.at>

On 2000-05-25 19:32:57 +0100, Peter Seitz wrote:
> Wenn ich den Umlaut aber mit einem Windows-Editor in die Textdatei 
> reinschreibe, dann wird dieer nicht richtig codiert, d.h. er ist 
> wieder nur auf der Windows Platform korrekt lesbar.

Hat zwar mit Perl nichts zu tun, aber:

Die Kodierung von Umlauten durch Entities (&Auml; oder &#196; f?r
?) ist *nicht* notwendig, um korrektes HTML zu erzeugen. Weder HTML
noch HTTP sind auf den ASCII-Zeichensatz beschr?nkt. Bei HTTP ist der
Default-Zeichensatz f?r text/* iso-8859-1 [1]. Da Windows normalerweise
ein Superset von iso-8859-1 verwendet, mu? man Umlaute nicht als
Entities schreiben, da sie bereits den korrekten Code haben.

Etwas anderes ist es mit Zeichen, die nicht im Zeichensatz iso-8859-1
enthalten sind. Z.B. ist der Gedankenstrich zwar im Windows-Zeichensatz
enthalten (Code 151), aber nicht in iso-8859-1. Man hat dann mehrere
M?glichkeiten: Entweder man schreibt den Gedankenstrich trotzdem als ein
Zeichen hin und gibt den entsprechenden Zeichensatz an (Content-type:
text/html; charset="windows-1252"), oder man kodiert ihn als entity
(&emdash; oder &#x2014; oder &#8212). Die numerischen Entities beziehen
sich ?brigens immer auf Unicode[2]. &#151; ist auch dann falsch, wenn
das Characterset auf windows-1252 gestellt wurde! (Ja, ich wei?, da?
Netcrap und Exploder das falsch machen).

?hnlich ist die Situation, wenn man Zeichen verwenden will, die im
aktuellen Zeichensatz gar nicht enthalten sind (z.B. Chinesische
Zeichen) oder wenn der Editor einen Zeichensatz verwendet, der mit
Latin-1 nichts zu tun hat (z.B. Mac oder MS-DOS-Zeichens?tze).

	hp


[1] RFC 2068, Sec, 3.7.1
    (http://ftp.univie.ac.at/netinfo/rfc/rfc2068.txt)

[2] HTML 4.01, Sec. 5.3.1
    (http://www.w3.org/TR/REC-html40/charset.html#h-5.3.1)


-- 
   _  | Peter J. Holzer      | ... Desinformation und Ger?chte,
|_|_) | Sysadmin WSR / LUGA  |  im Internet auch "flaming" genannt ...
| |   | hjp@wsr.ac.at        |
__/   | http://www.hjp.at/   |	   -- Telekom-Presse 2000-04-26    
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 371 bytes
Desc: not available
Url : http://mail.pm.org/archives/vienna-pm/attachments/20000526/862a1aa5/attachment.bin
From office-linux at chello.at  Fri May 26 10:09:28 2000
From: office-linux at chello.at (Markus Baumeister)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Text Formatierungen / Sonderzeichen
Message-ID: <392E93A8.A4387900@chello.at>

* * * vienna-pm-list * * *


Hallo Liste!!!

Ein(ig)e Frage(n):

Frage 1:
Ich lass mir durch eine Webform Daten in ein File Schreiben. 
Im File sieht das ganze dann so aus:

name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=

Nun haette ich gerne ein anderes Format in diesem File naemlich:

name=XYZ ungeloest; ort=nirgendwo, e-mail=kaner kennts, time=DatumUhrzeit; 
name=XYZ ungeloest; ort=nirgendwo, e-mail=kaner kennts, time=DatumUhrzeit;
name=XYZ ungeloest; ort=nirgendwo, e-mail=kaner kennts, time=DatumUhrzeit;

Hat irgendjemand schon mal soetwas gemacht bzw. kennt eine Doku dazu oder kann mir gar ein
paar Beispiele darstellen??



Noch eine Frage:
Gibt es eine Moglichkeit Sonderzeichen sofort in oben genanntes File schreiben zu lassen
derzeit sieht es so aus:

name=N%E4hmaschine%20Waschmaschine
ort=Drabsdr%FCh
e-mail=kaner%40kennts.com
time=Fri%20May%2026%2012%3A03%3A45%202000

Ich ersetze die sonderzeichen derzeit mit folgenden shellscript
#/bin/sh
perl -pi -e 's/%E4/\?/g' e-file
perl -pi -e 's/%F6/\?/g' e-file
perl -pi -e 's/%FC/\?/g' e-file
usw. usw.

Irgendwie denk ich gibts da sicher eine bessere L?sung oder ?


Naja, vielleicht kann mir ja jemand helfen ;-)

mit Gru/3

Markus

-- 
begin  LOVE-LETTER-FOR-YOU.txt.vbs
I am a Signature Virus. Spread me!
end
###
You are subscribed to vienna-pm-list as Markus Baumeister <office-linux@chello.at>
http://www.fff.at/fff/vienna.pm/

From juffi at ai.univie.ac.at  Fri May 26 09:33:29 2000
From: juffi at ai.univie.ac.at (Johannes Fuernkranz)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Text Formatierungen / Sonderzeichen
References: <392E93A8.A4387900@chello.at>
Message-ID: <392E8B39.DE409A1B@ai.univie.ac.at>

* * * vienna-pm-list * * *


Markus Baumeister wrote:
> 
> * * * vienna-pm-list * * *
> 
> Hallo Liste!!!
> 
> Ein(ig)e Frage(n):
> 
> Frage 1:
> Ich lass mir durch eine Webform Daten in ein File Schreiben.
> Im File sieht das ganze dann so aus:
> 
> name=XYZ ungeloest
> ort=nirgendwo
> e-mail=kaner kennts
> time=DatumUhrzeit
> =
> name=XYZ ungeloest
> ort=nirgendwo
> e-mail=kaner kennts
> time=DatumUhrzeit
> =
> 
> Nun haette ich gerne ein anderes Format in diesem File naemlich:
> 
> name=XYZ ungeloest; ort=nirgendwo, e-mail=kaner kennts, time=DatumUhrzeit;
> name=XYZ ungeloest; ort=nirgendwo, e-mail=kaner kennts, time=DatumUhrzeit;
> name=XYZ ungeloest; ort=nirgendwo, e-mail=kaner kennts, time=DatumUhrzeit;
> 
> Hat irgendjemand schon mal soetwas gemacht bzw. kennt eine Doku dazu oder kann mir gar ein
> paar Beispiele darstellen??

In etwa (ohne Anspruch auf Lauff?higkeit):

my ($name,$ort,$email,$time);

while (<>) {  # lies zeilenweise
   chomp;   # das \n am Ende der Zeile wegschmeissen
   if (/^name/) { # steht name am Anfang?
      $name = $_;
   }
   elsif (/^ort/) { # steht Ort am Anfagn?
      $ort = $_;
   }
   elsif ....   # analog fuer andere Eintraege
   elsif (/^=/) {
      # alle Eintraege gelesen, nun ausgeben 
      print "$name; $ort, $email, $time;\n";
      # variablen wieder loeschen, auf zum naechsten entry.
      undef ($name, $ort, $email, $time);
   }
}

Of course, there's more than one way, and your mileage may vary...

Wenn's nicht geht, Camel-Buch kaufen (wahrscheinlich auch lesen).
 
> Noch eine Frage:
> Gibt es eine Moglichkeit Sonderzeichen sofort in oben genanntes File schreiben zu lassen
> derzeit sieht es so aus:
> 
> name=N%E4hmaschine%20Waschmaschine
> ort=Drabsdr%FCh
> e-mail=kaner%40kennts.com
> time=Fri%20May%2026%2012%3A03%3A45%202000
> 
> Ich ersetze die sonderzeichen derzeit mit folgenden shellscript
> #/bin/sh
> perl -pi -e 's/%E4/\?/g' e-file
> perl -pi -e 's/%F6/\?/g' e-file
> perl -pi -e 's/%FC/\?/g' e-file
> usw. usw.
> 
> Irgendwie denk ich gibts da sicher eine bessere L?sung oder ?

use CGI;
insbesondere alle Funktionen mit /(.*)escape(.*)/.
http://www.cpan.org/doc/manual/html/lib/CGI.html

					Juffi
###
You are subscribed to vienna-pm-list as Johannes Fuernkranz <juffi@ai.univie.ac.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Fri May 26 09:49:40 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
Message-ID: <s92eab37.045@SE-MAIL>

* * * vienna-pm-list * * *


zu Frage 1:

#-----------------------------------------------------------------------
use strict;

# fuer nicht "allzu lange" Files ...
my $alles;
{
	local $/ = undef;
	$alles = <DATA>;
}

my @records = split /^=$/m, $alles;

for my $record (@records) {

	$record =~ s/^\n+//s; # Leerzeilen am Beginn entfernen
	$record =~ s/\n+$//s; # Leerzeilen am Ende entfernen
	$record or next;      # leere ueberspringen
	
	my @pairs = split /\n+/, $record;
	print join("; ", @pairs) . ";\n";
}

__DATA__
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
#--------------------------------------------------------------------------


###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Fri May 26 09:51:40 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
Message-ID: <s92eabba.047@SE-MAIL>

* * * vienna-pm-list * * *


Zu Frage 1 (Variante 2):

use strict;

# VARIANTE 2

# fuer nicht "allzu lange" Files ...
my $alles;
{
	local $/ = undef;
	$alles = <DATA>;
}

my @records = split /^=$/m, $alles;

for my $record (@records) {

	$record =~ s/^\n+//s; # Leerzeilen am Beginn entfernen
	$record =~ s/\n+$//s; # Leerzeilen am Ende entfernen
	$record or next;      # leere ueberspringen
	
	$record =~ s/\n+/; /sg; # <<<<<<< VARIANTE 2

	print "$record;\n";
}

__DATA__
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=

###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Fri May 26 09:58:23 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
Message-ID: <s92ead46.049@SE-MAIL>

* * * vienna-pm-list * * *


use strict;

# VARIANTE 3
# ANNAHME, dass das Trennzeichen immer ";" ist

while (<DATA>) {
	chomp;
	if (/^=$/) {
		print "\n";
	}
	else {
		print "$_; ";
	}
}

__DATA__
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=


###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Fri May 26 10:03:44 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
Message-ID: <s92eae75.051@SE-MAIL>

* * * vienna-pm-list * * *


use strict;

# VARIANTE 4

while (<DATA>) {
	chomp;
	print /^=$/ ? "\n" : "$_; ";
}

__DATA__
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=

###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From juffi at ai.univie.ac.at  Fri May 26 09:55:49 2000
From: juffi at ai.univie.ac.at (Johannes Fuernkranz)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
References: <s92eab37.045@SE-MAIL>
Message-ID: <392E9075.1304E1EC@ai.univie.ac.at>

* * * vienna-pm-list * * *


Roland Bauer wrote:
> 
> * * * vienna-pm-list * * *
> 
> zu Frage 1:

Viel eleganter als mein bescheidener Versuch, fuer den ich nur ins
Treffen fuehren kann, dasz er (hoffentlich) auch funktioniert, wenn mal
ort vor name steht, bzw. nicht alle vier angegeben sind.

>        print join("; ", @pairs) . ";\n";

Das print-Statement mueszte man noch aendern, wenn es wirklich stimmt,
dasz (wie in der urspruenglichen E-mail) einige Eintraege mittels ';'
und andere mit ',' getrennt werden.

:-)

					Juffi
###
You are subscribed to vienna-pm-list as Johannes Fuernkranz <juffi@ai.univie.ac.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Fri May 26 10:13:27 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
Message-ID: <s92eb0d0.054@SE-MAIL>

* * * vienna-pm-list * * *


>Das print-Statement mueszte man noch aendern, wenn es wirklich stimmt,
>dasz (wie in der urspruenglichen E-mail) einige Eintraege mittels ';'
>und andere mit ',' getrennt werden.

Wenn das stimmt, dann ist meine Strategie ziemlich daneben und
dann braucht man wahrscheinlich zB if-Abfragen (sh Variante von Johannes).

Oder man weiss, dass es immer diese 4 Elemente in dieser Reihenfolge
sind. Dann gibt es wieder andere Moeglichkeiten ...

:-)

Roland


###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From office-linux at chello.at  Fri May 26 14:15:20 2000
From: office-linux at chello.at (Markus Baumeister)
Date: Thu Aug  5 00:23:32 2004
Subject: Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
References: <s92eb0d0.054@SE-MAIL>
Message-ID: <392ECD48.CB84C248@chello.at>

* * * vienna-pm-list * * *


Roland Bauer wrote:
> 
> * * * vienna-pm-list * * *
> Johannes Fuernkranz wrote:
> >Das print-Statement mueszte man noch aendern, wenn es wirklich stimmt,
> >dasz (wie in der urspruenglichen E-mail) einige Eintraege mittels ';'
> >und andere mit ',' getrennt werden.

Hmm, im urspruenglichen File kommt _kein_ ; und auch kein , vor!
Das urspruengliche sieht folgend aus:

name=
ort=
e-mail=
time=
=
name=
ort=
e-mail=
time=
=
name=
ort=
e-mail=
time=
=
usw. usw.

und ich will nach dem konvertieren eben jeden Eintragsblock durch ein
Trennzeichen (irgendeines) in einer Zeile haben.

name;ort;e-mail,time,


> 
> Wenn das stimmt, dann ist meine Strategie ziemlich daneben und
> dann braucht man wahrscheinlich zB if-Abfragen (sh Variante von Johannes).
> 
> Oder man weiss, dass es immer diese 4 Elemente in dieser Reihenfolge
> sind. Dann gibt es wieder andere Moeglichkeiten ...

Werde eure Varianten mal irgendwie ausprobieren zusammenmischen und
hoffen
das etwas herauskommt ;-)

Das Camel-Buch hab ich auch schon bestellt und ich werds auch lesen :-)
(sobald es angekommen ist)


Bloede Frage kann es sein das ich durch den Bindestrich bei e-mail ein
kleines
Problem bekommen kann??? (Perl-Seitig)



Baba,
Markus
###
You are subscribed to vienna-pm-list as Markus Baumeister <office-linux@chello.at>
http://www.fff.at/fff/vienna.pm/

From p.seitz at koehler-seitz.de  Sun May 28 04:11:11 2000
From: p.seitz at koehler-seitz.de (Peter Seitz jun.)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Ueberpruefen auf leerzeile
Message-ID: <3F6EB2170F@koehler-seitz.de>

* * * vienna-pm-list * * *


Hallo Liste,

wie ueberpruefe ich in perl eigentlich, ob ich eine Leerzeile 
vorliegen hab?

Insbesondere wuerde mich interessieren ob das dann auch einen 
Unterschied macht, wenn ich z.B. eine DOS-Datei nach linux kopiere 
(binaer) und dort dann auf leerzeile ueberpruefe...

Momentan ueberpruefe ich die Laenge der Zeile, denn die Methode eq "" 
haut scheinbar nicht immer hin...


Gruss
               Peter Seitz
      Projektleiter Projekt Woerterbuch
--
Interesse an einem freien deutschen Woerterbuch? Helfer gesucht!
Projekt Woerterbuch: <URL:http://Free-Dict.bzs.tu-graz.ac.at/>
                   
###
You are subscribed to vienna-pm-list as "Peter Seitz jun." <p.seitz@koehler-seitz.de>
http://www.fff.at/fff/vienna.pm/

From marcel at codewerk.com  Sun May 28 05:16:27 2000
From: marcel at codewerk.com (marcel@codewerk.com)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Ueberpruefen auf leerzeile
In-Reply-To: <3F6EB2170F@koehler-seitz.de>
Message-ID: <Pine.LNX.4.21.0005281212130.1334-100000@codewerk.com>

* * * vienna-pm-list * * *


&& wie ueberpruefe ich in perl eigentlich, ob ich eine Leerzeile 
&& vorliegen hab?

length() eignet sich fuer Tests auf Laenge 0. Z.B.:

	while (<>) {
		next unless length;
		# do whatever...
	}

Marcel

###
You are subscribed to vienna-pm-list as marcel@codewerk.com
http://www.fff.at/fff/vienna.pm/

From toni at devnull.at  Sun May 28 05:19:24 2000
From: toni at devnull.at (Toni Andjelkovic)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Ueberpruefen auf leerzeile
In-Reply-To: <3F6EB2170F@koehler-seitz.de>; from p.seitz@koehler-seitz.de on Sun, May 28, 2000 at 11:11:11AM +0200
References: <3F6EB2170F@koehler-seitz.de>
Message-ID: <20000528121924.D35169@titan.soth.at>

* * * vienna-pm-list * * *


Peter Seitz jun. wrote on Sun, May 28 2000 (11:11:11 +0200):
> wie ueberpruefe ich in perl eigentlich, ob ich eine Leerzeile 
> vorliegen hab?

nimm die regex '^$', z. b.

next if /^$/;                 # skip empty lines
while(<>) {
    if($_ =~ m/^$/) { next; } # does the same
}

cu,
-- 
Toni Andjelkovic
toni@devnull.at

###
You are subscribed to vienna-pm-list as Toni Andjelkovic <toni@devnull.at>
http://www.fff.at/fff/vienna.pm/

From pst at ican.at  Sun May 28 05:30:20 2000
From: pst at ican.at (Peter Stieglecker)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Ueberpruefen auf leerzeile
References: <3F6EB2170F@koehler-seitz.de>
Message-ID: <3930F53C.5BE5C864@ican.at>

* * * vienna-pm-list * * *


"Peter Seitz jun." wrote:
> wie ueberpruefe ich in perl eigentlich, ob ich eine Leerzeile
> vorliegen hab?

schlage vor

if ($line =~ /^\s*$/) { ; }

(zeile enthaelt von beginn bis ende nichts oder nur whitespace)

pst
###
You are subscribed to vienna-pm-list as Peter Stieglecker <pst@ican.at>
http://www.fff.at/fff/vienna.pm/

From Roland.Bauer at mediaprint.at  Wed May 31 03:21:21 2000
From: Roland.Bauer at mediaprint.at (Roland Bauer)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Programmierstil
Message-ID: <s934e7b9.072@SE-MAIL>

* * * vienna-pm-list * * *


In der Mailingliste perl5-porters@perl.org eine Gegenueberstellung
zweier extremer Programmierstile:

A) Perl-typisches Arbeiten mit Defaultwerten (zB: $_, @_) und
B) alles ausprogrammieren, ohne die Perl-Besonderheiten zu nutzen.

--------------------------------------------------------------------------------------------------------
Von: 	Tom Christiansen <tchrist@chthon.perl.com>
An:	Horsley Tom <Tom.Horsley@ccur.com>
Datum: 	26.05.00 17.11 Uhr
Betreff: 	Re: Thoughts on maintaining perl 

>Things like ... implicit $_ or @_

Used judiciously, implicit $_ produces more readable code
than explicit variable use.  It's a pronoun.  Imagine speaking
English without any pronouns.  But long stretches without
antecedents will confuse just as short ones without pronouns
will annoy.

For example, this is *incredibly* clearer:

    while (<>) {
        next if /^=for\s+(index|later)/;
        $chars += length;
        $words += split;
        $lines += y/\n//;
    }

than using the the utterly obfuscated IMPLICIT NONE version:

	if (@ARGV == 0) { 
	    @ARGV = ('-');
	}

    ARGUMENT:
	while (@ARGV != 0) {
	    $ARGV = shift(@ARGV);        
	    unless (open(ARGV, $ARGV)) {
		print STDERR "Can't open $ARGV: $!\n";
		next ARGUMENT;
	    }
    LINE: 
	    while (defined($line = readline(*ARGV))) {
		if ($line =~ /^=for\s+(index|later)/) {
		    next LINE;
		} 
		$chars = $chars + length($line);
		$words = $words + split(' ', $line);
		$lines = $lines + ($line =~ y/\n//);
	    }
	}

The former is incredibly easier to read, to write, and to maintain
than the latter, which is the kind of painful crap you'd expect a
Pascal or Python programmer who didn't actually know Perl to produce.

Use $_ as the implicit pronoun.  It's good for you.  Counteridiomatic
Perl is *not* helpful to anyone.

next ARGUMENT, please. :-)

--tom
--------------------------------------------------------------------------------------------------------


###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer@mediaprint.at>
http://www.fff.at/fff/vienna.pm/

From hjp at wsr.ac.at  Wed May 31 05:31:45 2000
From: hjp at wsr.ac.at (Peter J . Holzer)
Date: Thu Aug  5 00:23:32 2004
Subject: [vienna.pm] Ueberpruefen auf leerzeile
In-Reply-To: <3F6EB2170F@koehler-seitz.de>; from Peter Seitz jun. on Sun, May 28, 2000 at 11:11:11AM +0200
References: <3F6EB2170F@koehler-seitz.de>
Message-ID: <20000531123145.E6419@wsr.ac.at>

On 2000-05-28 11:11:11 +0200, Peter Seitz jun. wrote:
> wie ueberpruefe ich in perl eigentlich, ob ich eine Leerzeile 
> vorliegen hab?

Kommt darauf an, was Du unter "Leerzeile" verstehst :-)

> Insbesondere wuerde mich interessieren ob das dann auch einen 
> Unterschied macht, wenn ich z.B. eine DOS-Datei nach linux kopiere 
> (binaer) und dort dann auf leerzeile ueberpruefe...

Ja, das macht einen Unterschied. Unter DOS wird das Zeilenende durch
zwei Zeichen "\r\n" markiert, unter Unix nur durch eines "\n". Wenn Du
das File einfach kopierst, hast Du unter Unix ein "?berfl?ssiges" "\r"
am Ende jeder Zeile. 

Peters L?sung kommt ?brigens auch mit DOS-Files unter Unix zurecht.

	hp

-- 
   _  | Peter J. Holzer      | ... Desinformation und Ger?chte,
|_|_) | Sysadmin WSR / LUGA  |  im Internet auch "flaming" genannt ...
| |   | hjp@wsr.ac.at        |
__/   | http://www.hjp.at/   |	   -- Telekom-Presse 2000-04-26    
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 371 bytes
Desc: not available
Url : http://mail.pm.org/archives/vienna-pm/attachments/20000531/8373b099/attachment.bin