From rammer at sycom.at Fri Jun 2 10:16:20 2000 From: rammer at sycom.at (Ingo Rammer) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Just another PM Message-ID: <3937CFC4.87F6BBA2@sycom.at> * * * vienna-pm-list * * * Hi, ich bin heute das erste Mal ?ber die Vienna PMG gestolpert. Nachdem ich seit rd. 4 Jahren Perl programmiere w?rd's mich doch interessieren, ob diese PMG noch "alive" ist. Falls ja, begr?sse ich mal alle ganz herzlich! Cheers, Ingo -- @d=(9,85,-3,11,-83,-20,13,3,84,6,4,-1,-73,13,69,2 ,-6,-79,1,-17,2,-2,-8,13,-82); $_="a visual basic programmer ";s/\n//;for ($i=0;$i<=23;$i++){printf (chr(ord(substr($_,$i,1))+$d[$i]));};print("\n"); ### You are subscribed to vienna-pm-list as Ingo Rammer http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Mon Jun 5 04:58:05 2000 From: hjp at wsr.ac.at (Peter J . Holzer) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Just another PM In-Reply-To: <3937CFC4.87F6BBA2@sycom.at>; from Ingo Rammer on Fri, Jun 02, 2000 at 05:16:20PM +0200 References: <3937CFC4.87F6BBA2@sycom.at> Message-ID: <20000605115805.F12271@wsr.ac.at> On 2000-06-02 17:16:20 +0200, Ingo Rammer wrote: > ich bin heute das erste Mal ?ber die Vienna PMG gestolpert. Nachdem ich > seit rd. 4 Jahren Perl programmiere w?rd's mich doch interessieren, ob > diese PMG noch "alive" ist. Alive and kicking, sozusagen. Ja, die Mailinglist hat m??igen, aber regelm??igen Traffic, und wir treffen uns auch hin und wieder pers?nlich. hp ObUseFulPerlScript: #!/usr/bin/perl -w # # lspath # use strict; for my $p (@ARGV) { my @p = split (/\//, $p); for (my $i = 0; $i < scalar(@p); $i++) { my $pp = join("/", @p[0..$i]); $pp = "/" if $pp eq ""; system("/bin/ls", "-ld", $pp); } } -- _ | 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/20000605/36bdbb60/attachment.bin From seitz at bzs.tu-graz.ac.at Tue Jun 6 19:14:53 2000 From: seitz at bzs.tu-graz.ac.at (Peter Seitz) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Module Fragen, Message-ID: <870B3023BF@bzs.tu-graz.ac.at> * * * vienna-pm-list * * * Hallo Perl Freunde, ich habe noch so meine kleinen Schwierigkeiten, wie ich Module selber stricke (zwei links, zwei rechts, eins fallenlassen...) Zuerst wuerde mich mal interessieren, wo man zusaetzliche Info zur Modulprogrammierung bekommt. Ich habe schon im Camel-Buch nachgelesen, doch da steht auch nicht viel anderes drin als in der perldoc und irgendwie bin ich mit den Informationen dort ein klein wenig ueberfordert. Vielleicht kann mir hier jemand etwas unter die Arme greifen. Ein Beispiel fuer so ein Modul: --8<---if--you--cut--here--you--will--probably--destroy--your--monitor-- package Ich::system; use strict; use vars qw($VERSION @EXPORT_OK @ISA $platform $debug); use Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw($platform $debug); $VERSION = 0.01_01; $platform = 0; $debug = 10; sub test { print "test\n"; } #===================================================================== 1; # This must be the last line --8<---if--you--cut--here--you--will--probably--destroy--your--monitor-- Was hat es mit dem @EXPORT auf sich und was ist der Unterschied zum @EXPORT_OK? Im Hauptprogramm schreibe ich nun: use strict; use Ich::system qw($debug); Wie mache ich aber nun das Unterprogramm verfuegbar? Muss ich die Variablen alle mit qw($...) importieren, oder gibt es da eine bessere Methode? Ich habe ein Modul geschrieben, in dem ich meine saemtlichen Systemvariablen setze. Es werden also fast alle Variablen des Moduls exportiert. Wenn ich jetzt im Hauptprogramm auf eine Variable aus dem Modul zugreife, dann muss ich das mit $Ich::debug tun. Gibt es da eine einfachere Schreibweise? Ich hab irgendwo gelesen, dass es bei der Variablendefinition bzw Subroutine-definition sehr wohl einen Unterschied macht, ob man Grossbuchstaben verwendet oder nicht. Kann mir jemand hier einen Tip geben? 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" http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Wed Jun 7 02:07:53 2000 From: marcel at codewerk.com (marcel@codewerk.com) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Module Fragen, In-Reply-To: <870B3023BF@bzs.tu-graz.ac.at> Message-ID: * * * vienna-pm-list * * * Hi Peter, @@ Zuerst wuerde mich mal interessieren, wo man zusaetzliche Info zur @@ Modulprogrammierung bekommt. Ich habe schon im Camel-Buch @@ nachgelesen, doch da steht auch nicht viel anderes drin als in der @@ perldoc und irgendwie bin ich mit den Informationen dort ein klein @@ wenig ueberfordert. perldoc perlmod perldoc Exporter perldoc -f use siehe auch www.perlmonth.com Falls Du Objekte schreiben willst, siehe auch perldoc perlobj perldoc perltoot perldoc perltootc perldoc perlboot (in 5.6) @@ Was hat es mit dem @EXPORT auf sich und was ist der Unterschied @@ zum @EXPORT_OK? perldoc Exporter @@ Wie mache ich aber nun das Unterprogramm verfuegbar? Du musst es auch exportieren. @@ Muss ich die Variablen alle mit qw($...) importieren, oder gibt es da @@ eine bessere Methode? Ich habe ein Modul geschrieben, in dem ich meine @@ saemtlichen Systemvariablen setze. Es werden also fast alle Variablen @@ des Moduls exportiert. Du koenntest den Source von Exporter.pm studieren, um zu sehen, was dort passiert. @@ Wenn ich jetzt im Hauptprogramm auf eine Variable aus dem Modul @@ zugreife, dann muss ich das mit $Ich::debug tun. Gibt es da eine @@ einfachere Schreibweise? Wenn Du $debug in package Ich exportierst und sie in deinem Hauptprogramm importierst ( use Ich qw/$debug/; ), kannst Du die Variable normal mit $debug ansprechen. @@ Ich hab irgendwo gelesen, dass es bei der Variablendefinition bzw @@ Subroutine-definition sehr wohl einen Unterschied macht, ob man @@ Grossbuchstaben verwendet oder nicht. Kann mir jemand hier einen Tip @@ geben? AFAIK nur Konvention. Marcel ### You are subscribed to vienna-pm-list as marcel@codewerk.com http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Wed Jun 7 03:46:42 2000 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] sitemap Message-ID: <393E0BF2.EFD1C1C8@fff.at> * * * vienna-pm-list * * * Erzeugung von Sitemaps: http://www.perl.com/reference/query.cgi?webadmin sitemapper -- Module ----------------------- WWW::Sitemap is a perl module which can be used to generate a site map, given a root URL for a site. It is distributed with the sitemapper.pl script, which includes a number of example formats for sitemaps, including an HTML bulleted list, a dynamic HTML folding tree, based on Jef Perlman's javascript Tree class, and a plain text indented list. Wer kennt bessere Programme? Roland -- -- roland.bauer@fff.at http://www.fff.at/fff/roland/ ### You are subscribed to vienna-pm-list as Roland Bauer http://www.fff.at/fff/vienna.pm/ From p.guehring at enemy.org Sat Jun 10 19:59:28 2000 From: p.guehring at enemy.org (Philipp Gühring) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Unicode Message-ID: <00061103011900.09972@linux1> * * * vienna-pm-list * * * Hi! Ich müßte in Perl einen Unicode String nach Latin1 konvertieren. Wie macht man das denn am besten? (Ich hab bis jetzt praktisch keine Doku zum Thema Unicode unter Perl gefunden. :-( Das Perl Cookbook schweigt sich aus mit dem Verweis auf Perl 5.006 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 http://www.fff.at/fff/vienna.pm/ From pst at ican.at Sun Jun 11 05:34:34 2000 From: pst at ican.at (Peter Stieglecker) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Unicode References: <00061103011900.09972@linux1> Message-ID: <39436B3A.89DB385E@ican.at> * * * vienna-pm-list * * * "Philipp G?hring" wrote: > Ich m??te in Perl einen Unicode String nach Latin1 konvertieren. Wie macht man > das denn am besten? (Ich hab bis jetzt praktisch keine Doku zum Thema Unicode > unter Perl gefunden. :-( > Das Perl Cookbook schweigt sich aus mit dem Verweis auf Perl 5.006 vielleicht helfen dir die unicode module im cpan weiter: http://gd.tuwien.ac.at/languages/perl/CPAN/modules/by-category/13_Internationalization_Locale/Unicode/ pst ### You are subscribed to vienna-pm-list as Peter Stieglecker http://www.fff.at/fff/vienna.pm/ From seitz at bzs.tu-graz.ac.at Tue Jun 13 14:40:41 2000 From: seitz at bzs.tu-graz.ac.at (Peter Seitz) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Suchen und ersetzen... Message-ID: <13E6CE6D93@bzs.tu-graz.ac.at> * * * vienna-pm-list * * * Hallo Freunde, ich habe hier ein Unterprogramm, welches mir aus einer Eingabezeile einen Text extrahiert. Jetzt wuerde ich noch gerne uebergeben, dass eine bestimmte Zeichenfolge durch eine andere Zeichenfolge uebergeben wird. Ich habe also folgendes im Unterprogramm geschrieben: my ($inputline,$find,$replace) = @_; match = "extrahierter String"; # eval "(\$match =~ s/$find/$replace/g)"; # $match =~ s/$find/$replace/g; $match =~ s/\\"/$replace/g; $match =~ s/""/$replace/g; Im Hauptprogramm steht: $docinfo[4] = extract_string($docinfo[4], "\\\"", "\""); d.h ich moechte die Zeichenfolge _\"_ durch _"_ ersetzen. Komischerweise hat das s/$find/$replace/g nicht funktioniert, obwohl die Werte richtig im Unterprogramm ankommen. Auch mit eval habe ich es nicht geschafft, obiges Problem zu erschlagen. Ich wuerde mir auch wuenschen, dass ich mehrere Zeichenfolgen eingeen kann, da ich auch ein _""_ durch _"_ erstzen moechte. Also fuer $find die Eingabe "(\\\"|\"\")". Wer weiss hier Rat? Gruss Peter Seitz Projektleiter Projekt Woerterbuch -- Interesse an einem freien deutschen Woerterbuch? Helfer gesucht! Projekt Woerterbuch: ### You are subscribed to vienna-pm-list as "Peter Seitz" http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Tue Jun 13 14:24:52 2000 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Suchen und ersetzen... In-Reply-To: <13E6CE6D93@bzs.tu-graz.ac.at> Message-ID: * * * vienna-pm-list * * * On Tue, 13 Jun 2000, Peter Seitz wrote: > * * * vienna-pm-list * * * > > > Hallo Freunde, > > ich habe hier ein Unterprogramm, welches mir aus einer Eingabezeile > einen Text extrahiert. Jetzt wuerde ich noch gerne uebergeben, dass > eine bestimmte Zeichenfolge durch eine andere Zeichenfolge uebergeben > wird. Ich habe also folgendes im Unterprogramm geschrieben: > > my ($inputline,$find,$replace) = @_; > match = "extrahierter String"; > # eval "(\$match =~ s/$find/$replace/g)"; > # $match =~ s/$find/$replace/g; > $match =~ s/\\"/$replace/g; > $match =~ s/""/$replace/g; > > > Im Hauptprogramm steht: > > $docinfo[4] = extract_string($docinfo[4], "\\\"", "\""); > > d.h ich moechte die Zeichenfolge _\"_ durch _"_ ersetzen. Wenn Du statt der double quotes lieber single quotes als delimiter verwendest, ersparst Du Dir einige backslashes: '\\"' '"' > > Komischerweise hat das s/$find/$replace/g nicht funktioniert, obwohl > die Werte richtig im Unterprogramm ankommen. Auch mit eval habe ich es > nicht geschafft, obiges Problem zu erschlagen. Weil nach dem Ersetzen der Variablen in der regex in Wirklichkeit dann folgendes steht: $match =~ s/\"/"/g; d.h. Du ersetzt ein double quote durch ein double quote. > Ich wuerde mir auch wuenschen, dass ich mehrere Zeichenfolgen eingeen > kann, da ich auch ein _""_ durch _"_ erstzen moechte. Also fuer $find > die Eingabe "(\\\"|\"\")". Fuer dieses und das obige Problem gibts in Perl nunmehr den qr-Operator. perldoc perlop qr/STRING/imosx This operators quotes--and compiles--its STRING as a regular expression. STRING is interpolated the same way as PATTERN in `m/PATTERN/'. If "'" is used as the delimiter, no interpolation is done. Returns a Perl value which may be used instead of the corresponding `/STRING/imosx' expression. For example, $rex = qr/my.STRING/is; s/$rex/foo/; is equivalent to s/my.STRING/foo/is; Also: #!/usr/bin/perl -w use strict; my $input = q(" "anfang"" mitte\\"ende\\"); my $find = qr/(\\"|"")/; my $replace = '"'; $input =~ s/$find/$replace/g; print $input; Ergebnis: " "anfang" mitte"ende" -- Marcel perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E http://www.fff.at/fff/vienna.pm/ From franzeska at ecodesign.at Thu Jun 15 07:33:49 2000 From: franzeska at ecodesign.at (F.P.) Date: Thu Aug 5 00:23:33 2004 Subject: [vienna.pm] Perlinterpreter auf CD Message-ID: <3948CD2D.2806C48C@ecodesign.at> * * * vienna-pm-list * * * Hallo ! ich habe eine prinzipielle Frage. Kann man einen Perlinterpreter auf eine CD Rom packen, der nur von der CD aus l?uft?? Dh man installiert kein Perl am Rechner man f?hrt nur diesen Interpreter auf der CD aus und produziert etwas. ist das ?berhaupt m?glich? und wenn ja, wie? mfg, Franzeska ### You are subscribed to vienna-pm-list as "F.P." http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Wed Jun 21 00:28:10 2000 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:23:34 2004 Subject: [vienna.pm] Perlinterpreter auf CD References: <3948CD2D.2806C48C@ecodesign.at> Message-ID: <39505269.C13BCA8F@fff.at> * * * vienna-pm-list * * * > Hallo Franzeska > ich habe eine prinzipielle Frage. Kann man einen Perlinterpreter auf > eine CD Rom packen, der nur von der CD aus l?uft?? Weiss nicht. Die letzten Perl-Versionen von Activestate haben auch in die Registry geschrieben (ich denke, dieses Problem besteht unter UNIX nicht). Die neueste Version macht das angeblich anders, auch ohne Verwendung der Registry. > Dh man installiert kein Perl am Rechner man f?hrt nur diesen Interpreter > auf der CD aus und produziert etwas. ist das ?berhaupt m?glich? Ohne Einschraenkungen ist das vermutlich nicht moeglich, denn 1) kenne ich mindestens ein Standardmodul, welches Schreibrechte benoetigt, naemlich Net::Config. Aber vermutlich brauchst Du das nicht und ausserdem braucht es die Schreibrechte nur bei einer Umkonfiguration. 2) legt Perl bei der Installation ein lib/Config.pm an, welches rechnerspezifische Eintraege enthaelt. Wenn Du Glueck hast, greift Dein Programm nicht auf solche Eintraege zu. > und wenn > ja, wie? Aehnliche Fragen tauchen typischerweise bei jeder neuen Perl-Version in der Mailingliste Perl-Win32-Users auf www.activestate.com auf. Da muesstest Du im Archiv der Mailingliste nachsehen. Es ist jedenfalls einiges Experimentieren notwendig. Meist ist die Anforderung "nur", ein installiertes Perl durch Kopieren auf mehrere Rechner zu uebertragen. (Es von CD lauffaehig zu machen, ist ein Schritt weiter.) Vielleicht waere daher auch die Perl-NT-Admins-Mailingliste eine gute Quelle. Wie es am Macintosh oder auf UNIX aussieht, waere dann die naechste Frage. Schoene Gruesse Roland ### You are subscribed to vienna-pm-list as Roland Bauer http://www.fff.at/fff/vienna.pm/ From seitz at bzs.tu-graz.ac.at Sun Jun 25 03:27:34 2000 From: seitz at bzs.tu-graz.ac.at (Peter Seitz) Date: Thu Aug 5 00:23:34 2004 Subject: [vienna.pm] Suchen/Ersetzen Problem Message-ID: <8A0A24120D@bzs.tu-graz.ac.at> * * * vienna-pm-list * * * Hallo Freunde, ich hab wieder mal eines meiner beliebten Suchen/Ersetzen Probleme :-{{{ Hier ein kleines Beispielprogramm: --8<---if--you--cut--here--you--will--probably--destroy--your--monitor-- #!/usr/bin/perl -w use strict; while () { chomp; my $translate = $_; my $replace = ; chomp($replace); print "source:'$translate'\n"; print "transl:'$replace'\n"; s/$translate/$replace/; # my $repl = qr/$replace/; # $_ =~ s/$find/$repl/; print "-->$_<--\n"; } __DATA__ &Invert selected items AusgewSigmahlte EintrSigmage &invertieren &Mark messages as read\tCtrl+R Als &gelesen markieren\tStrg+R --8<---if--you--cut--here--you--will--probably--destroy--your--monitor-- Ich moechte also von den Daten die erste zeile mit der zweiten ersetzen. Ich habe leider nicht rausgefunden, wiso es nicht funktioniert. Ich weiss allerdings, dass schon der $find-string nicht erkannt wird. Wer kann mich hier auf den richtigen Weg fuehren? Zusatzfrage: Ich habe mit qr probiert die Sache in den Griff zu bekommen (siehe auskommentierte Zeile 14), doch bei Verwendung von strict hatte ich eine Fehlermeldung: Bareword "qr" not allowed while "strict subs" in use at test.pl line 14. Was ist hier nun falsch Gruss Peter Seitz Projektleiter Projekt Woerterbuch -- Interesse an einem freien deutschen Woerterbuch? Helfer gesucht! Projekt Woerterbuch: ### You are subscribed to vienna-pm-list as "Peter Seitz" http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Sun Jun 25 04:06:32 2000 From: mihi at gmx.at (mihi) Date: Thu Aug 5 00:23:34 2004 Subject: [vienna.pm] Probleme mit einem script Message-ID: <3955CB98.C578D59F@gmx.at> * * * vienna-pm-list * * * Hallo Leute! Ich habe probleme mit folgendem script: open (EIN, "/bin/ls *.asc |"); @files=; close (EIN); $nf=@files; $n=0; for ($m=0 , $m <5 , $m++) { print "$n "; print "$files[$n]
"; $n++;} es sollte alle dateien, die mit .asc aufh?ren als Hyperlink ausgeben, tut das aber nur mit dreien, obwohl zurzeit 4 dateien in dem verzeichnis sind. warum? Ich hoffe ihr k?nnt mir helfen gruss mihi -- ----------------------------------------------------------------------- http://www.hgcomputing.org http://members.surfeu.at/mihi PGPfingerprint:BDD5 DC9F 0A62 712D BD1E F594 19DA A5AE 5749 C311 http://members.surfeu.at/mihi/pgpkeys/mihi.asc for publickey ----------------------------------------------------------------------- ### You are subscribed to vienna-pm-list as mihi http://www.fff.at/fff/vienna.pm/ From p.guehring at poboxes.com Sun Jun 25 06:15:48 2000 From: p.guehring at poboxes.com (Philipp Guehring) Date: Thu Aug 5 00:23:34 2004 Subject: [vienna.pm] Probleme mit einem script In-Reply-To: <3955CB98.C578D59F@gmx.at> References: <3955CB98.C578D59F@gmx.at> Message-ID: <00062513172402.00445@linux1> * * * vienna-pm-list * * * Am Son, 25 Jun 2000 schrieben Sie: > * * * vienna-pm-list * * * > > > Hallo Leute! > Ich habe probleme mit folgendem script: > > open (EIN, "/bin/ls *.asc |"); > @files=; > close (EIN); > $nf=@files; > $n=0; > for ($m=0 , $m <5 , $m++) > { > print "$n "; > print "$files[$n]
"; > $n++;} > > es sollte alle dateien, die mit .asc aufhören als Hyperlink ausgeben, > tut das aber nur mit dreien, obwohl zurzeit 4 dateien in dem verzeichnis > sind. > warum? > Ich hoffe ihr könnt mir helfen Ich mach sowas immer folgendermaßen: foreach my $filename (<*.asc>) { print "$filename
\n"; } Meine Empfehlung: Kauf dir das Perl Kochbuch / Perl Cookbook. Dort lernst du genau die Sachen, die dir noch fehlen. -- ~ 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 Guehring http://www.fff.at/fff/vienna.pm/ From seitz at bzs.tu-graz.ac.at Sun Jun 25 08:55:52 2000 From: seitz at bzs.tu-graz.ac.at (Peter Seitz) Date: Thu Aug 5 00:23:34 2004 Subject: [vienna.pm] Suchen/Ersetzen Problem Message-ID: <9120793D49@bzs.tu-graz.ac.at> * * * vienna-pm-list * * * On Sun, 25 Jun 2000 13:14:13 +0200 Philipp Guehring wrote: > Am Son, 25 Jun 2000 schrieben Sie: > > * * * vienna-pm-list * * * > > > > > > Hallo Freunde, > > > > ich hab wieder mal eines meiner beliebten Suchen/Ersetzen Probleme > > :-{{{ > > > > Ich moechte also von den Daten die erste zeile mit der zweiten > > ersetzen. > > Was bedeutet das genau? Die beiden austauschen? Wohin soll das Ergebnis kommen? > WIe soll das Ergebenis deiner Meinung nach aussehen? Hab ich mich wirklich so undeutlich ausgedrueckt? Die Zeile &Invert selected items soll ersetzt werden durch die Zeile AusgewSigmahlte EintrSigmage &invertieren Das funktioniert auch, doch bei der nachfolgenden Zeile &Mark messages as read\tCtrl+R welche durch folgendes ersetzt werden soll Als &gelesen markieren\tStrg+R funktioniert das nicht mehr. Dir mag vielleicht die Aufgabenstellung so abstrahiert nicht logisch erscheinen, doch das Ganze ist fuer ein Uebersetzungsprojekt. Dort soll genau jene Zeichekette oben in einer Zeile durch eine andere Zeichenkette (die uebersetzte Variante) ersetzt werden. In diesem Fall ist dann in der Zeile noch mehr "Text", welcher aber gleich bleiben soll. With best compliments Peter Seitz -- Graz University of Technology, Austria - Fac. f. Civil Engineering mailto:seitz@bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/ Member of the Pegasus Mail Support Group Coordinator of the Pmail Translation Process For information about translating Pegasus Mail, contact: Han van den Bogaerde (jaabogae@caiw.nl) or Peter Seitz (seitz@bzs.tu-graz.ac.at) ### You are subscribed to vienna-pm-list as "Peter Seitz" http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Tue Jun 27 02:31:58 2000 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:34 2004 Subject: [vienna.pm] Probleme mit einem script In-Reply-To: <200006261514.KAA27538@ns1.hit.net> Message-ID: * * * vienna-pm-list * * * On Mon, 26 Jun 100 roland.bauer@fff.at wrote: > Der entscheidende Fehler war, dass Du im "for"-Ausdruck > (in diesem Fall) Strichpunkte verwenden musst. > > Es gibt naemlich zwei Arten von for-Ausdruecken: > > 1) for ( ... ; ...; ...) = 3 Befehle, durch ";" getrennt > 2) for (@liste) > Zu diesem Thema ein gotcha, das mich gestern gebissen hat: my $i; for ($i = 1; $i <= 4; $i++) { ... } print $i; # prints 5 aber my $i; for $i (1..4) { ... } print $i; # prints the undef value Ich dachte, dass die beiden Varianten aequivalent sind, aber scheinbar nicht bei den side effects. -- Marcel sub AUTOLOAD{($_=$AUTOLOAD)=~s;^.*::;;;y;_; ;;print} Just_Another_Perl_Hacker(); ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/