[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: Perl Einfuehrung und IDE



# keine Angst, geht per Bcc an control@b.d.o
reassign 154963 perl-doc
tags 154963 patch
thanks

Andreas Pakulat <apaku@gmx.de> wrote:

> On 12.Aug 2005 - 01:11:01, Frank Terbeck wrote:
>> Andreas Pakulat <apaku@gmx.de> wrote:
>> > Hi,
>> > 
>> > da debpool leider nicht so ganz funktioniert wie ich mir das vorstelle,
>> > muss ich da ein wenig dran "rumbasteln"....
>> > 
>> > Leider hab ich keine ausgereiften Perl-Kenntnisse, ich brauche eine
>> > vernuenftige Einfuehrung, die insbesondere so Dinge abdeckt wie $_ und
>> > wer diese Variable wann setzt. Auch eine Referenz der wesentlichen
>> > Datei-Funktionen muss dabei sein. Ob dt. oder englisch ist fast egal,
>> > nur die ersten 10 Treffer bei Google (fuer perl tutorial, einfuehrung
>> > und referenz) sind entweder zu oberflaechlich oder nur Ausschnitte aus
>> > nem Buch...
>> > 
>> > Andreas
>> > 
>> > PS: perl-doc hab ich zwar installiert, aber irgendwie fehlen da diese
>> > Grundlagen wie ebend Variablen/Schleifen usw. Oder ich habs uebersehen?
>> 
>> Hallo Andreas,
>> 
>> Liste der verfügbaren Perl-Manpages:
>> % man perl
>
> Ah, endlich mal ne manpage die auf die richtige Doku verweisst. Wobei
> ich eigentlich lieber HTML lese...

Ich auch - siehe http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=154963

Leider habe ich es aber nicht richtig hingekriegt; der Patch
funktioniert nur halb.

>> Intro, das auch Variable und Schleifen anspricht:
>> % man perlintro
>
> Genau das hab ich schon gelesen und leider keine Stelle gefunden, an der
> ausfuehrlich erklaert wird wann $_ auf welche Werte gesetzt wird. Nehmen
> wir z.B. mal folgenden Schnipsel aus debpool:
>
> sub Generate_List {
>     use DebPool::Config qw(:vars);
>     use DebPool::DB qw(:functions :vars);
>     use DebPool::Dirs qw(:functions);
>
>     my($distribution, $section, $arch) = @_;
>     my(%packages);
>
>     if ('all' eq $arch) {
>         $Error = "No point in generating Packages file for binary-all";
>         return undef;
>     }
>     my(@sources) = grep($ComponentDB{$distribution}->{$_} eq $section,
>                         keys(%{$ComponentDB{$distribution}}));
>
> Auf welchen Wert wird $_ an welcher Stelle gesetzt? Sollte ja auch ohne
> genau Kenntniss der Funktionalitaet moeglich sein zu beantworten, oder?

perldoc -f grep:

,----
| grep BLOCK LIST
| grep EXPR,LIST
|     This is similar in spirit to, but not the same as, grep(1) and its
|     relatives.  In particular, it is not limited to using regular
|     expressions.
| 
|     Evaluates the BLOCK or EXPR for each element of LIST (locally
|     setting $_ to each element) and ...
`----

Gruß, Frank
-- 
Frank Küster
Inst. f. Biochemie der Univ. Zürich
Debian Developer



Reply to: