Gruppe ding

Bei NNTP kriegt man in perl 'ne Gruppe. Anscheinend muss man dazu USER und
PASS haben.

Was ist damit falsch:
$USER='zaxfuuq';
dass das nicht in
group(USER, PASS)
hineinpasst?

Danke im voraus and Gruss,
--
mp

Re: Gruppe ding

merl the perl wrote:
> Bei NNTP kriegt man in perl 'ne Gruppe. Anscheinend muss man dazu USER und
> PASS haben.
>
> Was ist damit falsch:
> $USER='zaxfuuq';
> dass das nicht in
> group(USER, PASS)
> hineinpasst?
>
> Danke im voraus and Gruss,

Poste Deinen Code, dann kann Dir vielleicht jemand helfen.

Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel

Re: Gruppe ding

merl the perl wrote:

> Bei NNTP kriegt man in perl 'ne Gruppe. Anscheinend muss man dazu USER
> und PASS haben.
>
> Was ist damit falsch:
> $USER='zaxfuuq';
> dass das nicht in
> group(USER, PASS)
> hineinpasst?

Vermutung: Du willst Net::NNTP verwenden:

#!/usr/bin/perl -w

use Net::NNTP;
use strict;

my $USER = 'blubb';
my $PASS = 'bla';
my $SERVER = 'news.provider.example';
my $PORT = 119;

my $c = new Net::NNTP($SERVER, $PORT) or die $!;
$c->authinfo($USER,$PASS) or die $!;

#$c->group(...);
#...
$c->quit();

Gruss

Roman

Re: Gruppe ding

"Frank Seitz" wrote in message
news:5f122nF3aau4vU1@mid.individual.net...
> merl the perl wrote:
>> Bei NNTP kriegt man in perl 'ne Gruppe.
> Poste Deinen Code, dann kann Dir vielleicht jemand helfen.
Ich habe es nun hierhergebracht:

#!/usr/bin/env perl
use strict;
use warnings;
use Net::NNTP;

my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
my $USER = 'zaxfuuq';
my $PASS = 'my password';
my $SERVER = 'newsgroups.comcast.net';
my $PORT = 119;

#$nntp->authinfo($USER,$PASS) or die $!;
$nntp->group('comp.lang.perl.misc')
or die "failed to set group c.l.p.m.\n";
my $msg_ids_ref = $nntp->newnews(time() - 24*60*60);
die "Failed to retrieve message ids\n" unless @{$msg_ids_ref};

open my $ofh, '>', 'articles.txt'
or die "Cannot open articles.txt: $!";
for my $msg_id (@{$msg_ids_ref}) {
$nntp->article($msg_id, $ofh)
or die "Failed to retrieve article $msg_id\n";
}
close $ofh;
__END__
Wie kann ich wissen ob ich authinfo brauche? Wenn ich normaleweise mit
Outlook Express an die Newsgruppen kommen, muss ich username und passworg
geben. Perl.exe sagt mir dass "can't access method group in:"
$nntp->group('comp.lang.perl.misc')

Heute sollen wir Amis unsere Freiheit von George feiern. Waere es nun so...
Gruss,
--
WW

Re: Gruppe ding

merl the perl wrote:

>
> "Frank Seitz" wrote in message
> news:5f122nF3aau4vU1@mid.individual.net...
>> merl the perl wrote:
>>> Bei NNTP kriegt man in perl 'ne Gruppe.
>> Poste Deinen Code, dann kann Dir vielleicht jemand helfen.
> Ich habe es nun hierhergebracht:
>
> #!/usr/bin/env perl
> use strict;
> use warnings;
> use Net::NNTP;
>
> my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
> my $USER = 'zaxfuuq';
> my $PASS = 'my password';
> my $SERVER = 'newsgroups.comcast.net';
> my $PORT = 119;
>
> #$nntp->authinfo($USER,$PASS) or die $!;
> $nntp->group('comp.lang.perl.misc')
> or die "failed to set group c.l.p.m.\n";

[...]

> __END__
> Wie kann ich wissen ob ich authinfo brauche? Wenn ich normaleweise mit
> Outlook Express an die Newsgruppen kommen, muss ich username und passworg
> geben.

Du brauchst authinfo genau dann, wenn du Username und Passwort angeben
musst, um Zugriff auf den Newsserver zu erhalten.

> Perl.exe sagt mir dass "can't access method group in:"
> $nntp->group('comp.lang.perl.misc')

Ersetz doch mal deine selbstgenerierte Fehlernachricht durch $!, da kriegst
du möglicherweise mehr Information raus.

Gruss

Roman°
--
IRC-Freenode: #usenet-friends
http://www.usenet-friends.ch.vu/

Re: Gruppe ding

"Roman Racine" wrote in message
news:5f45fqF3augliU1@mid.individual.net...
> merl the perl wrote:
>
>>
>> "Frank Seitz" wrote in message
>> news:5f122nF3aau4vU1@mid.individual.net...
>>> merl the perl wrote:
>>>> Bei NNTP kriegt man in perl 'ne Gruppe.
>>> Poste Deinen Code, dann kann Dir vielleicht jemand helfen.
>> Ich habe es nun hierhergebracht:
>>
>> #!/usr/bin/env perl
>> use strict;
>> use warnings;
>> use Net::NNTP;
>>
>> my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
Ich habe frueher gewusst wie man curly brackets auf Deutsch sagt. Is nit
det Obige syntaxtisch falsches Perl?
Ich habe auch frueher gewusst wie man () auf Deatsche sagt. Und wie is det?
--
mtp

Re: Gruppe ding

merl the perl:

>>> my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
> Ich habe frueher gewusst wie man curly brackets auf Deutsch sagt. Is nit
> det Obige syntaxtisch falsches Perl?

Wieso? Was soll daran falsch sein? Die Klassenmethode 'new' der Klasse
'Net::NNTP' wird mit zwei Argumenten - einem String (der Name des
Newsservers) und einer anonymen Hashreferenz, die Optionen (hier nur
Debug => 1) enthält, aufgerufen.

Syntaktisch OK; ob es formal passt, kann man in der Beschreibung zu
Net::NNTP nachlesen.

LG, Ferry

--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at

Re: Gruppe ding

merl the perl wrote:

>>>my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
>
> Ich habe frueher gewusst wie man curly brackets auf Deutsch sagt. Is nit
> det Obige syntaxtisch falsches Perl?
> Ich habe auch frueher gewusst wie man () auf Deatsche sagt. Und wie is det?

{} = geschweifte Klammern
() = runde Klammern

Was syntaktisch richtig oder falsch ist, verrät Dir im Zweifel
der Perl-Interpreter. Obiges ist ein Hash-Literal.

Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel

Re: Gruppe ding

"Frank Seitz" wrote in message
news:5fgs66F3brthqU1@mid.individual.net...
> merl the perl wrote:
>
>>>>my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
>>
>> Ich habe frueher gewusst wie man curly brackets auf Deutsch sagt. Is nit
>> det Obige syntaxtisch falsches Perl?
>> Ich habe auch frueher gewusst wie man () auf Deatsche sagt. Und wie is
>> det?
>
> {} = geschweifte Klammern
> () = runde Klammern
>
> Was syntaktisch richtig oder falsch ist, verrät Dir im Zweifel
> der Perl-Interpreter. Obiges ist ein Hash-Literal.
Also gut. Ich kucke eventuell nach zu sehen was ein Hash-Literal ist. Wenn
geschweifte Klammern das Entstehen des Objekts nicht zulassen, wie kann es
nicht ein Irrtum sein?
--
merl the perl

Re: Gruppe ding

On 2007-07-10 08:14, merl the perl wrote:
> "Frank Seitz" wrote in message
> news:5fgs66F3brthqU1@mid.individual.net...
>> merl the perl wrote:
>>>>>my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
[...]
>> Was syntaktisch richtig oder falsch ist, verrt Dir im Zweifel
>> der Perl-Interpreter. Obiges ist ein Hash-Literal.
> Also gut. Ich kucke eventuell nach zu sehen was ein Hash-Literal ist. Wenn
> geschweifte Klammern das Entstehen des Objekts nicht zulassen, wie kann es
> nicht ein Irrtum sein?

Es ist ein Fehler, aber kein Syntax-Fehler, sondern ein Fehler in der
Verwendung von Net::NNTP->new. Das wurde Dir aber in comp.lang.perl.misc
bereits erklärt. Hältst Du es für sinnvoll, die Antworten, die Du in
einer Gruppe erhältst, zu ignorieren und die gleichen Fragen in einer
anderen Gruppe noch mal zu stellen?

hp

--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"

Re: Gruppe ding

"Peter J. Holzer" wrote in message
news:slrnf96nq4.q4k.hjp-usenet2@zeno.hjp.at...
> On 2007-07-10 08:14, merl the perl wrote:
>> "Frank Seitz" wrote in message
>> news:5fgs66F3brthqU1@mid.individual.net...
>>> merl the perl wrote:
>>>>>>my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
> [...]
>>> Was syntaktisch richtig oder falsch ist, verrt Dir im Zweifel
>>> der Perl-Interpreter. Obiges ist ein Hash-Literal.
>> Also gut. Ich kucke eventuell nach zu sehen was ein Hash-Literal ist.
>> Wenn
>> geschweifte Klammern das Entstehen des Objekts nicht zulassen, wie kann
>> es
>> nicht ein Irrtum sein?
>
> Es ist ein Fehler, aber kein Syntax-Fehler, sondern ein Fehler in der
> Verwendung von Net::NNTP->new. Das wurde Dir aber in comp.lang.perl.misc
> bereits erklärt. Hältst Du es für sinnvoll, die Antworten, die Du in
> einer Gruppe erhältst, zu ignorieren und die gleichen Fragen in einer
> anderen Gruppe noch mal zu stellen?
"Ignorieren" ist ein starkes Wort, besonders wenn es nicht zutrifft. Als
ich endlich zu verstehen bekam, dass ich im contructor gerundete, nicht
geschweifte Klammern brauchte, habe ich es sofort geaendert. Man koennte
richtig behaupten dass ich nicht alles gelesen habe, dass mir vorgeschlagen
wurde, weil dass im Laufe von zwei Wochen, Tausende von Seiten waren. Ich
kann, in einem solchen Zeitspann, bloss soviel mitkriegen.

Die gleiche Frage bei 2 Newsgruppen zu besprechen ist voellig Sinnvoll. Man
kriegt eine verschiedene Perspektive mit einer Fremdsprache. Deutsche
Newsgruppen sind auch irgendwie freundlicher und eher hilfsbereit. Das mag
daher kommen, das ihr am Ende Gruss sagen.

Darueber hinaus kann ich schlecht verstehen, was in Perl als Fehler gilt.
Ich komme von Sprachen die kompilieren, nicht interpretieren. Die Grenzen,
an denen ich gewohnt bin, existieren bei Euch nicht.

Mit freundlichem Gruss,
merle die perle

Re: Gruppe ding

On 2007-07-10 23:48, merl the perl wrote:
>
> "Peter J. Holzer" wrote in message
> news:slrnf96nq4.q4k.hjp-usenet2@zeno.hjp.at...
>> On 2007-07-10 08:14, merl the perl wrote:
>>> "Frank Seitz" wrote in message
>>> news:5fgs66F3brthqU1@mid.individual.net...
>>>> merl the perl wrote:
>>>>>>>my $nntp = Net::NNTP->new('newsgroups.comcast.net', { Debug => 1} );
>> [...]
>>>> Was syntaktisch richtig oder falsch ist, verrt Dir im Zweifel
>>>> der Perl-Interpreter. Obiges ist ein Hash-Literal.
>>> Also gut. Ich kucke eventuell nach zu sehen was ein Hash-Literal
>>> ist. Wenn geschweifte Klammern das Entstehen des Objekts nicht
>>> zulassen, wie kann es nicht ein Irrtum sein?
>>
>> Es ist ein Fehler, aber kein Syntax-Fehler, sondern ein Fehler in der
>> Verwendung von Net::NNTP->new. Das wurde Dir aber in comp.lang.perl.misc
>> bereits erklrt. Hltst Du es fr sinnvoll, die Antworten, die Du in
>> einer Gruppe erhltst, zu ignorieren und die gleichen Fragen in einer
>> anderen Gruppe noch mal zu stellen?
> "Ignorieren" ist ein starkes Wort, besonders wenn es nicht zutrifft. Als
> ich endlich zu verstehen bekam, dass ich im contructor gerundete, nicht
> geschweifte Klammern brauchte, habe ich es sofort geaendert.

Du brauchst auch keine runden Klammern, Du brauchst gar keine (was Dir
klar wäre, wenn Du jemals perldoc perldata gelesen hättest).

Der Punkt ist aber nicht, dass jemandem aufgefallen ist, dass da kein
Hashref hingehört (hat zugegebenermaßen lange genug gedauert), sondern
dass Dir von Anfang an und mehrmals gepredigt worden ist:

1) Lies die Doku von Net::NNTP

2) Überprüfe auf Fehler.

Wenn Du das gemacht hättest, wäre Dir klar gewesen, dass der Fehler nur
beim Aufruf von Net::NNTP->new sein kann.

Auch Deine Antwort "Ich kucke eventuell nach zu sehen was ein
Hash-Literal ist" passt dazu. Du liest Dir eventuell (vielleicht, wenn
Du Zeit und Lust hast) mal die Doku durch. Bis dahin erwartest Du, dass
andere Deine Arbeit erledigen. Sorry, wir sind hier nicht Deine Sklaven,
die Dir jeden Wunsch von den Lippen ablesen. Wenn Du selber nicht
arbeiten willst, musst Du jemanden dafür bezahlen.

hp

--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"

Re: Gruppe ding

"Peter J. Holzer" wrote in message
news:slrnf99ukv.teq.hjp-usenet2@zeno.hjp.at...
> On 2007-07-10 23:48, merl the perl wrote:

> Du brauchst auch keine runden Klammern, Du brauchst gar keine (was Dir
> klar wäre, wenn Du jemals perldoc perldata gelesen hättest).
>
> Der Punkt ist aber nicht, dass jemandem aufgefallen ist, dass da kein
> Hashref hingehört (hat zugegebenermaßen lange genug gedauert), sondern
> dass Dir von Anfang an und mehrmals gepredigt worden ist:
>
> 1) Lies die Doku von Net::NNTP
>
> 2) Überprüfe auf Fehler.
>
> Wenn Du das gemacht hättest, wäre Dir klar gewesen, dass der Fehler nur
> beim Aufruf von Net::NNTP->new sein kann.
>
> Auch Deine Antwort "Ich kucke eventuell nach zu sehen was ein
> Hash-Literal ist" passt dazu. Du liest Dir eventuell (vielleicht, wenn
> Du Zeit und Lust hast) mal die Doku durch. Bis dahin erwartest Du, dass
> andere Deine Arbeit erledigen. Sorry, wir sind hier nicht Deine Sklaven,
> die Dir jeden Wunsch von den Lippen ablesen. Wenn Du selber nicht
> arbeiten willst, musst Du jemanden dafür bezahlen.
Jetzt, dass ich perldoc perldata und cpan net::nntp zum vierten Mal gelesen
habe, bin ich 100% befriedigt dass es einem vernuenftigen Menschen ohne
Perlerfahrung nie aufgefallen waere, dass geschweifte Klammern um "Debug =>
1" ueberhaupt nicht im constructor hingehoerten. Ich muss glauben dass Ihr,
die Erfahrenen, mit mir einen huebschen Spass machen wollten. Das Gerede um
Sklaverei ist auch Quatsch.
Gruss, merl