Einstieg in Perl

Wie viele Leute hier würden gerne ins Thema Programmieren einsteigen?

Wenn Interesse besteht und nicht zu viel erwartet wird biete ich mich gerne dafür an anhand von praxisorientierten Beispielen das Thema für Einsteiger zu eröffnen.


Meine Ausführungen würden sich vorerst auf Perl beschränken. Super Scriptingsprache. C würde folgen.

Ich!

Sollten schon ein paar Leute zusammenkommen und auch welche mitwirken die schon bissl weiter sind.

ich würde mich auch dafür begeistern

Und ich welche Richtung wollt ihr gehn?

Wundert mich eh dass es bei den vielen fähigen Leuten hier noch keinen solchen thread gibt. Sind wohl nicht ganz sauber?:)

C++
Hab zwar schon ein programm da, aber
mir fehlt die motivation alleine zu lernen.

Weiß zwar nicht genau was perl ist..
Bin aber offen für alles

Ich dachte eher an die Art der Programme nicht an die Zielsprache.

Wikipedia: Perl (Programmiersprache)
http://www.perlmonks.org/ (Archiv-Version vom 16.10.2012)
http://perldoc.perl.org/index.html

Interessanter Thread, kommt in die Beobachtung.

Wie bist du damals eingestiegen? @----

Ich würde mich auch Interessieren.

Ich bin vor 4 Tagen in Perl eingestiegen.:)

Hab davor bissl mit C rumgespielt.

Aktuell schreib ich mein erstes Programm in Perl.

Man sollte allerdings dazu sagen dass ich vermutlich irgendwo ein "Freak" bin und die 4 Tage in keiner Relation zum bisherigen Ergebnis stehen.

Hier mal ein kleiner Ausschnitt. Dass da noch Text drin rumschwimmt liegt daran dass ich an dem Bereich noch rumdreh. Die Textausgaben liegen schön gegliedert mit den anderen in einem Array wenn der Block fertig ist.

Geht natürlich auch kürzer und professioneller aber es funktioniert immerhin alles. Das Thema Sicherheit spielt derzeit keine Rolle.

sub COUNT_VAL { $_[1] = join("/",$_[0],$_[1]);$_[1] =~ s/\/\/*/\//g;$_[1] =~ s/\n\s*//g;our $str = stat($_[1]); if(stat($_[1]) && -e $_[1] && $str->cando(S_IRUSR, 1)) { printf "\n\n Dictionary: %s | ", $_[1]; open(FILE, "<$_[1]"); our ($c_words) = (0); while (<FILE>) { $c_words += scalar(split(/\s+/, $_)); }close FILE; print("Words=$c_words | "); printf "Size: %s bytes | ", $str->size; print "Permission: Ok"; $_[2]=$_[2]+$c_words;return($_[2]); } } ### Validate Configuration ### sub VALIDATE { START_VALIDATION: ### validate URL ### ### prepare validate dictionary ### VAL_S_DICT: our @files;our $dir; $dict = FileHandle->new; $sb = stat($conf[2]); $ext = ( fileparse( $conf[2], '\..*$' ) )[2]; $ext =~ s/(\.?[^.?]*)?\?.*?$/$1/; $conf[2] =~ m{([^\\/.]+([^\\/]*)$)};our ($fil) = $1; our @dir_S=split($fil,$conf[2]); if(!($ext)){$dir=$conf[2];}else{$dir="@dir_S";} our $opt = { '1' => "\n\n --> Directory doesn` t exist. Specify existing path to your dictionaryfile:\n\n", '2' => "\n\n --> File doesn` t exist in given folder. See the list below.\n", '3' => "\n\n --> Access denied.\n", '4' => "\n\n --> To use one of the listed files just enter k:file.txt (or .lst) or specify a new path:\n\n", }; ### validate single dictionary ### if(!($ext eq "") && $ext =~m/\btxt\b|\blst\b/i){ if(stat($conf[2]) && -e $conf[2] && $sb->cando(S_IRUSR, 1)) { $count_W=0; COUNT_VAL(@dir_S,$fil,$count_W); } elsif (!($dict->open("< $conf[2]"))) { printf "\n\n\n\nDictionary not found at %s \n\n Reason: ", $conf[2]; if(!(-d $dir)){print $opt->{1};C_TMP();$conf[2]="$tmp";goto VAL_S_DICT;} if(!(-e $conf[2]) && -d $dir)# { print CLEAR WHITE $opt->{2}; @files = `ls -t -1 -r $dir/`; print CLEAR WHITE "\n Content of: $dir \n\n"; foreach $fi (@files) { $fi =~ s/\n*//g;print CLEAR "$fi | "; } print CLEAR WHITE $opt->{4}; C_TMP(); if ($tmp =~m/^k:/i) { $tmp = "$'"; $conf[2] = join('/', $dir, $tmp); goto VAL_S_DICT; } else{$conf[2]="$tmp";goto VAL_S_DICT;} } if(!($sb->cando(S_IRUSR, 1))) { print $opt->{3}; C_TMP(); if(!($tmp) || $tmp eq "\n"){goto VAL_S_DICT;} else{$conf[2]="$tmp";goto VAL_S_DICT;} }$dict->close; } } elsif(!($ext eq "") && !($ext =~m/\btxt\b|\blst\b/i)) { print"\nTypo? Extension of given file is not valid: $ext \nEnter full path to your dictionary (.txt or .lst): "; C_TMP();$conf[2]="$tmp";goto VAL_S_DICT; } ### validate multiple dictionaries ### elsif($ext eq "" && -d $dir) { print CLEAR WHITE "\n\n"; @files = `ls -t -1 -r $dir`; our $ko; our $th=0;our $ex; our $n; our $tb;our @file_list=(); foreach $ko (@files) { SPLITTER($ko);$ex=$_; if($ex =~m/txt|lst/i){$file_list[$th]=$ko;$th++;} } if($#file_list <= 0){print CLEAR "\n\n No files with valid extensions ( .txt | .lst ) found.\n\nEnter path to valid dictionaries: ";C_TMP();goto VAL_S_DICT;} else{print CLEAR "\n Will use following dictionaries in given folder $dir \n\n"; $count_W = 0; foreach $n (@file_list) { COUNT_VAL($dir,$n,$count_W); } } } elsif($ext eq "" && !(-d $dir)) { print"\n\nDirectory $dir doesn` t exist. \n\nPlease enter a valid path to your dictionaries: "; C_TMP();$conf[2]="$tmp";goto VAL_S_DICT; }

@----
Bitte mal den Rahmen vorgeben:

- ab wievielen Leuten willst du starten?
- wie lange willst du "unterrichten"?
- In welcher Form? Tuturials? über youtube? Textform?
- welche Zielgruppe sprichst du an?
- welche Lehrziele gibst du in welcher Konkretisierung denn vor?

darf man hier auch Wünsche äussern, was man gerne programmiert hätte oder wie man dies programmiert ?

Interessanter Thread.
Unter der Haube von Allmystery steckt übrigens auch sehr viel Perl :D

Vielleicht motiviert euch das was für tolle Sachen man damit machen kann :P

@Lightstorm

Hey Ultimatum ! Schönen Gruss ... :)

@nemo

Hey grüß dich auch :D
Schön dich noch hier zu sehen :)

@Lightstorm

... ja hin und wieder noch an Bord. Sind ja nicht mehr viele hier, der ersten Stunde.

Der Bericht, gibts noch nen update ? v.3.23 *g*

Lass den begriff unterrichten weg. Es reicht sicherlich um den Einstieg zu ermöglichen dennoch bin ich Anfänger. Egal wie schnell jemand ist, das Thema im gesamten ist umfangreich und allein die Menge an Möglichkeiten, Funktionen und Informationen sind ein recht üppiges Paket dass man nicht mal nebenbei in ein paar Tagen so mit nimmt.

Das ich kein Alleinunterhalter bin sollte auch klar sein. Da ich wie erwähnt Anfänger bin sind Bugs vorprogrammiert. Debuggen ist das halbe Leben.

Cesair schrieb:wie lange willst du "unterrichten"?"

Bis das eine Programm fertig ist. Es beinhaltet alles was interessant ist. Socketprogrammierung, Networking, Filerhandling, Umgang mit In-Output, Subroutinen und wie man Variablen übergibt, Loops, Verschlüsselungsmöglichkeiten etc.

Ich dachte daran klein Anzufangen und mit Ausschnitten aus dem Programm zu arbeiten. Zeile für Zeile. Allerdings bissl präziser als einfache Kommentarzeilen.

Aufgaben lassen sich sicherlich mit einbeziehen. Ein Konzept hab ich nicht. Das hello world Programm ist allerdings nichts das hier in irgendeiner Form berücksichtigt wird. Der Start sollte schon bissl saftiger sein.

Cesair schrieb:welche Zielgruppe sprichst du an?

Networker. Linuxuser. Windows wird nicht berücksichtigt. Es sind evtl. Teile vorhanden die nicht ohne weiteres auf Windowsrechnern laufen.

welche Lehrziele gibst du in welcher Konkretisierung denn vor?

Keine.


Voraussetzungen:
Umgang mit dem Terminal, perl installiert, ein Texteditor und vll. etwas mehr Kaffee als gewöhnlich und Eigeninitiative.

Nix mehr?

@----

„Der eine wartet, daß die Zeit sich wandelt. Der andere packt sie kräftig an - Und handelt.“
Dante Alighieri (1265-1321), ital. Dichter.

:D

bei windo bin ich dabei,
alles andere läuft ohne mich