On 31 Jan., 12:56, "Ferry Bolhar" wrote:

Vergiß es, sollte ein Scherz sein.

Our website offers a range of wonderful gifts for various occasions such as holidays, weddings, birthdays, wedding anniversary, graduations, kids and other special occasions at wholesale prices.

www.wholesaletohome.com

99107

Hallo,

gibt es mittlerweile etwas Sinnvolles, was mir in Perl WSDL-Files
korrekt generiert? WSDL::Generator wird wohl nicht mehr weiterentwickelt
und kommt nur mit Perl5.6 klar - ansonsten finde ich nix weiter.
Muss ich wirklich meine WSDLs per Hand schreiben? Nicht wirklich ... oder?

Jens

Seit heute gibt es die 5. Ausgabe des deutschsprachigen Perl-Magazins
$foo (http://www.foo-magazin.de).

Die Themen dieser Ausgabe:

* Vorwort
* Einiges zum Thema CGI-Sicherheit
* Größere Datenmengen in Bilder gepresst
* Rezension - Mastering Perl
* Interview - Richard Dice
* Neue RegEx-Features in Perl 5.10
* Rätselhaftes open
* Probleme mit base.pm
* Perl 6 Tutorial - Teil 2
* Winter of Code
* Charsets
* Tipps und Tricks: $/
* Date::Calc
* Usergruppen: Erlangen.pm
* CPAN-News

Richard Möhn writes:

Das sieht wie eine Einschränkung von UI::Dialog aus. Am besten hier
berichten: http://rt.cpan.org/Public/Dist/Display.html?Name=UI-Dialog

Gruß,
Slaven

--
Slaven Rezic - slaven rezic de

Hallo,

bekanntlich kann man mittels der scalar Funktion einen skalaren Kontext
erzwingen:

print @x; # Gibt die Element von @x aus
print scalar @x; # Gibt die Elementanzahl von @x aus

Ich bräuchte jetzt genau das Umgekehrte - das Erzwingen eines
Listenkontexts.

Ich habe eine Anweisung in der Form:

my $val = '/F:' . $option =~ /^Ref: (.+) / . 'DATA';

Ich binde den in der Regex gefundenen Wert an $1 und möchte dieses $1 mit
den beiden Stringliteralen vorher und nachher verknüpfen. Es wird aber nicht
$1 (das, wie sich beim Testen zeigt, den gewünschten Wert enthält), sondern
die Ziffer "1" eingesetzt. Klar - im skalaren Kontext (der durch den
Verknüpfungsoperator "." vorgegeben wird) gibt der Match-Operator die Anzahl
an Matches zurück, nicht die Matches selbst.

Klar, dass ich das zweizeilig auch schreiben kann. Aber gibt es eine
Möglichkeit, das wie angedeutet in einer Zeile zu formulieren?

Danke für eure Hilfe & schöne Grüße aus Wien,

Ferry

Hallo,

ich versuche mit system() eine *.exe-Datei aufzurufen.
Das klappt leider nicht, weil sich in dem Pfad dorthin eine typische
Windows-Leerstelle befindet. Fehlermeldung:
' Der Befehl "Synchredible.exe" ist entweder falsch geschrieben oder
konnte nicht gefunden werden.'

Wenn ich es in einem anderen Verzeichnis ohne Leerstelle im Pfad teste,
funktioniert es prima.

Was kann ich also tun, dass die EXE trotz Leerstelle gefunden wird?

Gruß, Hago

Hallo zusammen,

die gewünschten Dateien (AUSG) werden richtig angelegt (b1.shtml -
b7.shtml). In den Zeilen 34 und 36 wird aber $nr nur mit dem Wert "1"
berücksichtigt. Vielleicht kann jemand einem Anfänger helfen?

my $nr = 1;
my $zahl = 7;
while ( $nr <= $zahl ) {
$rueck = $nr - 1;
$vor = $nr + 1;
$zeilen[34] =~ s/xxx01ueb/$nr\. Überschrift/;
$zeilen[36] =~ s/xxx02rueck/b$rueck/;
$zeilen[36] =~ s/xxx03weit/b$vor/;

open AUSG, "> b$nr.shtml";
select AUSG;
print "@zeilen";
close AUSG;
$nr += 1;
}

Danke

Hallo,
warum kann ich die aus der Funktion zurückgegebe Liste nicht verwenden?

my @keywords = getKeywords();

for (my $i; $i < @keywords; $i++) {
print $keywords[$i]."\n";
}

sub getKeywords {
my @keywords;

my ($select) = qq{SELECT keyword
FROM content_requests
GROUP BY keyword};

my $sth = $db_content_report->prepare($select);
$sth->execute();

while (my $hash_ref = $sth->fetchrow_hashref()) {
my $keyword = $hash_ref->{keyword};
push(@keywords, $keyword);
}

return \@keywords;
}

Hallo,

ich bin über folgendes Problem gestolpert, für das ich keine Lösung
gefunden habe. Mein Programm ließt eine UTF-8-Datei ein und behandelt
den Inhalt zeichenweise:

use strict;
binmode(STDOUT, ":utf8");
use open ':utf8';

open ALG, "<", "eingabe";
while(){
my $zeichen;
my @satz = split(//,$_);
foreach $zeichen (@satz) {
print $zeichen;
}
close(ALG);

Unter Linux (32bit) funktioniert das, unter Solaris (64bit) werden UTF-8-
Zeichen der Eingabedatei byteweise, nicht wie in perl vorgesehen
zeichenweise durch das "split" verarbeitet.