Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Discipulus

by Discipulus (Monsignor)
on Jun 13, 2002 at 08:04 UTC ( #174111=user: print w/replies, xml ) Need Help??

In the picture you can see my wonderful historical kawasaki motorbikes of serie GPZ Unitrack (1986 and 1984).

starting learning Perl as a game in a hot summer one year ago (ie 2001) on my linux system and now..
2003..trying to avoid learning vb administrating win32 with Perl..
..
2007..trying to avoid learning C# administrating win32 with Perl..
..
2013..trying to avoid learning powershell to manage w2k8r2 using Perl...
riding my Kawasaki GPZ 550
...April 12 2012: riding my Kawasaki GPZ 750..
...
29 July 2014 Discipulus became 668th in Saints in our Book
01 December 2016 my fully reorganized my homenode (using two different Perl s‎crip‎ts do to the task..) and first appearence on github github

More about my history here: Re: How has Perl affected you?



full page chat and last hour of cb
Perlmonks's World Map gently hosted by moritz

listitemizator: perl -MLWP::UserAgent -e "print qq(<li>[id://$ARGV[0]|).LWP::UserAgent->new->get('http://www.perlmonks.org/index.pl?node_id='.$ARGV[0])->title,']</li>'"

At the moment (April 2017) this is my average XP per post

2002 7.2 2003 7.94444444444444 2004 10.835 2005 4.6875 2006 6.55555555555556 2007 8.38888888888889 2008 7.66666666666666 2009 5.24166666666667 2010 5.30555555555555 2011 5.96666666666667 2012 11.452380952381 2013 7.77199775533109 2014 13.4143512821695 2015 14.4705333283643 2016 16.508027666933 2017 19.3508333333333

index @ARGV
satura lanx or miscellanea learning and teaching Perl
reinventing the wheel MARPA
security threads parallel programming
signals closures functional programming and high order Perl
modules testing
debug OO Perl Objects
Raspberry Arduino windows peculiarities
windows spawn system and filehandles portability and filesystem redirection
PAR pp exe logging
large files Unicode UTF-8
Tk GUI Gtk GD and graphic
fun DBI database
ack and colorized output newline
eval context
flip flop sort
strict pack unpack
array complex datastructures and dumping methods
regexs compiletime and runtime
benchmark caller and BEGIN
symbol table and typeglobs Perl history
Dancer Dancer2 Plack PSGI CGI
jQuery Angularjs AJAX Bootstrap web programming in general
SSL LWP
web scraping web performance
SOAP and WSDL XML
SSH math integers and random
Tartaglia Pascal and Erathostenes Perl is dead..
game oneliners
perl idioms

satura lanx or miscellanea

learning and teaching Perl

reinventing the wheel
  • zentara about reinventing the wheel
  • "You never really know how a wheel works, until you tear it apart. I bet you now know more than most about the http protocol, now that you built your own. I think building your own webserver is a great educational exercise, because it exposes you to all the problems involved, and also makes you appreciate the pre-made wheels that are given to us."

MARPA

security

threads parallel programming

signals

closures functional programming and high order Perl

modules

testing
debug

OO Perl Objects

Raspberry Arduino

windows peculiarities

windows spawn system and filehandles
portability and filesystem redirection
PAR pp exe

logging

large files

Unicode UTF-8

Tk GUI Gtk

GD and graphic

fun

DBI database

ack and colorized output
newline
eval
context

flip flop

sort
strict
pack unpack
array
complex datastructures and dumping methods

regexs

compiletime and runtime

benchmark
caller and BEGIN

symbol table and typeglobs

Perl history

Dancer Dancer2 Plack PSGI

CGI
jQuery Angularjs AJAX Bootstrap
web programming in general
SSL
LWP
web scraping

web performance
SOAP and WSDL

XML
SSH

math integers and random

Tartaglia Pascal and Erathostenes

Perl is dead..

game

oneliners

perl idioms
  • stolen from busunsl's homenode
    • slurp a file:
    •  my $contents = do { local (@ARGV, $/) = $filename; <> };
    • set even elements of @list to 'bla':
    •  $_ % 2 or $list[$_] = 'bla' for 0..$#list;
    • getting indices sorted by value:
    • my @indices = sort { $a[$a] <=> $a[$b] } 0..$#a;
    • initialize hash elements:
    • @hash{@array} = (1) x @array
    • assign empty string defaults:
    • $_ = '' for grep ! defined ( $foo, $bar, $baz );
    • blank padding:
    • $str = pack('A40',$str);
  • some cool use of Perl

    • <li

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2017-11-25 02:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (355 votes). Check out past polls.

    Notices?