Kenneth: Created page with "== Tutorials == === Local === Perl - Kenneth Learning Perl Perl 4 Tutorial UTOSC 2008 - Perl Fundamentals === External === [http://perldoc.perl.org/inde..."

2019-05-14T21:48:10Z

Created page with "== Tutorials == === Local === Perl - Kenneth Learning Perl Perl 4 Tutorial UTOSC 2008 - Perl Fundamentals === External === [http://perldoc.perl.org/inde..."

New page

== Tutorials ==

=== Local ===

[[Perl - Kenneth]]

[[Learning Perl]]

[[Perl 4 Tutorial]]

[[UTOSC 2008 - Perl Fundamentals]]

=== External ===

[http://perldoc.perl.org/index-tutorials.html Tutorials - perldoc.perl.org]

[http://www.perlmonks.org/index.pl?node=Tutorials Perl Monks - Tutorials]

[http://www.cbkihong.com/index.pl?op=perltut Chan Bernard Ki Hong - Perl 5 Tutorial]

[http://www.pageresource.com/cgirec/index2.htm Page Resource - Beginning Perl Tutorials]

[http://www.cgi101.com/book/ CGI Programming 101 - Learn CGI Today]

[http://ebb.org/PickingUpPerl/ Picking Up Perl, Edition 0.12, A Freely Redistributable Perl Tutorial Book]
:"This site was created as an early distribution center for Picking Up Perl. Picking Up Perl is a freely redistributable tutorial book on Perl."

[http://www.sthomas.net/roberts-perl-tutorial.htm Robert's Perl Tutorial]
:"A basic Perl course primarily for use on Win32 platforms. It assumes that the reader knows nothing of programming whatsoever, but needs a solid grounding for further work. After you finish this course you'll be ready to specialise in CGI, sysadmin or whatever you want to do with Perl. "

[http://www.perl.com/pub/a/2000/10/begperl1.html perl.com: Beginner's Introduction to Perl]
:"Welcome to Perl. Perl is the Swiss Army chainsaw of scripting languages: powerful and adaptable. It was first developed by Larry Wall, a linguist working as a systems administrator for NASA in the late 1980s, as a way to make report processing easier. Since then, it has moved into a large number of roles: automating system administration, acting as glue between different computer systems; and, of course, being one of the most popular languages for CGI programming on the Web."

[http://perldoc.perl.org/perlsyn.html perlsyn - perldoc.perl.org]:
:perlsyn - Perl syntax:
:"A Perl program consists of a sequence of declarations and statements which run from the top to the bottom. Loops, subroutines and other control structures allow you to jump around within the code."

== Periodic Table of the Perl Operators ==

[http://glyphic.s3.amazonaws.com/ozone/mark/periodic/Periodic%20Table%20of%20the%20Operators%20A4%20300dpi.jpg Periodic Table of the Per Operators] (JPEG Image, 3477x2456 pixels)

[[Media:Periodic_Table_of_the_Perl_Operators.jpg| The Periodic table of Perl operator (local copy)]]

Reference Article: [http://lwn.net/Articles/319642/ The Periodic table of Perl operators - LWN.net]:
:The Periodic table of Perl operators
:
:An updated version of the periodic table of the operators for Perl 6 has been posted. It is truly a work of art, to say the least; suitable for framing.

== What does "Perl" stand for ==

"Perl is sometimes called the "Practical Extraction and Report Language," although it has also been caled a "Pathologically Eclectic Rubbish Lister," among other explanations. It's actually a backronym, not an acronym, since Larry Wall (Perl's creator) came up with the name first and the expansion later. That's why "Perl" isn't in all caps. There's no point in arguing which expansion is correct: Larry endorses both. (Source: Learning Perl book)

== Perl Administration ==

=== Show Perl Version ===

$ perl -v
This is perl, v5.8.8 built for i386-linux-thread-multi

=== Perl One Liners ===

perl -e '...CODE...';

=== Install Modules ===

To install a CPAN module:
perl -MCPAN -e "install [MODULE]"

CPAN Shell:
perl -MCPAN -e 'shell'

perlmodinstall:
:"If you are uncomfortable with having something take that much control over your software installation, or it otherwise doesn't work for you, the perlmodinstall documentation covers module installation for UNIX, Windows and Macintosh in more familiar terms. "

windows:
:"If you're using ActivePerl on Windows, the PPM (Perl Package Manager) has much of the same functionality as CPAN.pm. "

Source:
* [http://www.cpan.org/misc/cpan-faq.html#How_install_Perl_modules The CPAN Frequently Asked Questions]
* [http://perl.about.com/od/packagesmodules/qt/perlcpan.htm Installing Perl modules from CPAN - Learn how to install most Perl modules from CPAN in this tutorial.]

=== Compiling Module ===

perl Makefile.pl
make
make test
make install

Source: [http://www.thegeekstuff.com/2008/09/how-to-install-perl-modules-manually-and-using-cpan-command/ How To Install Perl Modules Manually and Using CPAN command]

=== CPAN ===

CPAN Shell
perl -MCPAN -e shell

Initially will run through configuration. If you wish to rerun configuration:
> o conf init

To install a module:
> install [MODULE]

To install from the command line:
cpan [MODULE]
perl -MCPAN -e "install [MODULE]"

See Also [[Perl - CPAN]]

=== perldoc ===

perldoc [MODULE]

perldoc -f [FUNCTION]

== Obfuscated Perl ==

An obfuscated program is purposely written in an incomprehensible manner, so that it is very difficult to understand or reverse-engineer. Perl is one of the classic languages for obfuscated code, and in fact there is an obfuscated Perl contest. This little gem of a script is not only obfuscated, it's arguably a fine piece of ascii artwork. It's a perfectly legal Perl script, and produces even more pretty camel pictures when you run it. Have a look, if only for a laugh.

[http://www.perlmonks.org/?node=Obfuscated%20Code Perl Monks - Obfuscated code]

[http://www.mindprod.com/jgloss/unmain.html unmaintainable code : Java Glossary]
:"unmaintainable code - This is my most popular essay. It is amazing how many people don’t realise it is tongue in cheek"

:"To foil the maintenance programmer, you have to understand how he thinks. He has your giant program. He has no time to read it all, much less understand it. He wants to rapidly find the place to make his change, make it and get out and have no unexpected side effects from the change.

:He views your code through a toilet paper tube. He can only see a tiny piece of your program at a time. You want to make sure he can never get at the big picture from doing that. You want to make it as hard as possible for him to find the code he is looking for. But even more important, you want to make it as awkward as possible for him to safely ignore anything.

:Programmers are lulled into complacency by conventions. By every once in a while, by subtly violating convention, you force him to read every line of your code with a magnifying glass.

:You might get the idea that every language feature makes code unmaintainable — not so, only if properly misused. "

=== [http://www.perlmonks.org/?node_id=20312 Writing highly obfuscated code in Perl] ===

* Take advantage of Perl's end of line character ";". Use it to dirty up your code. For example, if you want to go for a certain shape you can use ";"'s to spruce it u
* Always break up your equal signs.
* Don't forget that, if you need better "shaping", always break up your strings with a new line character "\n";
* Regular expressions make for messy code, and that is what we are going for. Use them in excess whenever possible.
* Add comments. Sometimes adding odd comments here and there can help enhance the shaping of your code. An example of this is found in my work : "modern (perl) art" in the Obfuscated Code section of www.perlmonks.org. However,never comment in a way that would clarify your code.
* Try to name your variables in a simplistic, yet inconherent way. "woodzy" has done a great job of this with his work called "Email sig. Old news. :/" on www.perlmonks.org.
* Keep working. Practice enough and you WILL get good results. Someday you will even do lettering. You don't beleive that thats possible? Check out "Yet Another Perl Conference" by Erudil and you will see what I mean.
* Keep your code as mathematical as possible. Never leave a simple expression alone, ie (4+4), but rather turn it into (((1*3)+1) + ((100*((1*2)+2)) /(10*10))). Doing this will make your code unreadable real soon.
* Packing and unpacking will cause your code to be just a bit more unreadble. You will find many examples of this in www.perlmonks.org Obfuscated Code board.
* Be sure to view some of the code found in Obfuscated Code section of www.perlmonks.org, its real helpfull on giving you some ideas on where to get started at making your code more un-readable. Please note that this is by no means a complete tutorial. I really hope that some other "perl obfuscator" will jump in and write a tutorial much better than this.
* use the trinary operator: (condition)?foo:bar;

=== [http://en.wikipedia.org/wiki/Just_another_Perl_hacker JAPH] ===

Just Another Perl Hacker

Decoding JAPH from a transposed string literal:

$_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//;

Printing out JAPH as separate processes:

for $i (0..4) { if (!fork) {
$i == 0 or not { $SIG{INT} = sub { print "J" } } or
$i == 1 or not { $SIG{INT} = sub { print "A" } } or
$i == 2 or not { $SIG{INT} = sub { print "P" } } or
$i == 3 or not { $SIG{INT} = sub { print "H" } } ;
sleep $i; last; } } kill INT => $$;

Appearing as if it does something completely unrelated to printing JAPH:

$_ = "wftedskaebjgdpjgidbsmnjgc";
tr/a-z/oh, turtleneck Phrase Jar!/; print;

Using only punctuation, no alphanumeric characters (written by Eric Roode; only works on Unix and Unix-like systems):

`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`

subs [http://www.perlmonks.org/?node_id=234065]:
print sub { sub { sub { sub { join ' ', @_ } -> (@_, 'Hacker') }
-> (@_, 'Perl') } -> (@_, 'Another') } -> ('Just');

=== Nifty Perl Encoded Message ===

This outputs "RTFM". [http://lists.freebsd.org/pipermail/aic7xxx/2001-May/003499.html]:
perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'

=== Perl Camel ===

[[Perl Camel]] - The Coded Camel - Cool Linux And Unix Perl Art

[[Media:Perl Camel.jpg]]

=== Kenneth's encoded message ===

I know, it's geeky, but it means more because I spent time encoding it, right?
perl -e 'for("077101114114121032067104114105115116109097115010"=~/.../g){print chr}'
Merry Christmas

=== Visual Programming in Perl ===

[http://search.cpan.org/~asavige/Acme-EyeDrops-1.55/lib/Acme/EyeDrops.pm Acme::EyeDrops - Visual Programming in Perl]

==== Sierpinski Triangles ====

[http://en.wikipedia.org/wiki/Sierpinski_triangle Sierpinski Triangles]

[http://search.cpan.org/~asavige/Acme-EyeDrops-1.55/lib/Acme/EyeDrops.pm#Sierpinski_Triangles Perl Sierpinski Triangles Generator]:

<pre>
#!perl -l
$x=2**pop;print$"x--$x,map$x&$_?$"x2:"/\\",0..$y++while$x
</pre>

<pre>
$ perl sierpinski_triangles.pl 4
/\
/\/\
/\ /\
/\/\/\/\
/\ /\
/\/\ /\/\
/\ /\ /\ /\
/\/\/\/\/\/\/\/\
/\ /\
/\/\ /\/\
/\ /\ /\ /\
/\/\/\/\ /\/\/\/\
/\ /\ /\ /\
/\/\ /\/\ /\/\ /\/\
/\ /\ /\ /\ /\ /\ /\ /\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
</pre>

== Perl Code ==

=== Common Pragma ===

Note: For clarity, the following examples contain basic Perl code snippets which do not use my or other recommended practices. For happy Perl programming always use the pragma

use strict;
use warnings;

at the start of your scripts.

Source: [http://sql-info.de/mysql/examples/Perl-DBI-examples.html Perl DBI examples (DBD::mysql)]

=== System Call ===

@result = `wc -l /etc/passwd`;
print "Number of Lines: @result\n";
print "Return value: $?\n";

system "cmd", "arg1", "arg2", ...;

exec "wc -l /etc/passwd";

=== Try/Catch with Eval ===

eval{
### try block
}; # notice the semi colon
if ($@){
### catch block
print "Error: $@ \n";
};

=== Calling dynamic function ===

sub hello {
print "hello";
}

$func = "hello";
&$func;

=== Flushing console buffer ===

$| = 1;

$|++;

=== Duping STDOUT ===

<pre>
print "STDOUT 1";
warn "STDERR 1";
print "STDOUT 2";
warn "STDERR 2";

# redirect standard output
open my $oldout, ">&STDOUT" or die "Can't duplicate STDOUT: $!";
open my $olderr, ">&STDERR" or die "Can't duplicate STDERR: $!";
close STDOUT;
open STDOUT, ">$log_file" or die "Can't redirect STDOUT: $!";
close STDERR;
open STDERR, ">>&STDOUT" or die "Can't redirect STDERR: $!";
print "STDOUT 3";
warn "STDERR 3";
print "STDOUT 4";
warn "STDERR 4";

# restore the original standard output
close STDOUT;
open STDOUT, ">&$oldout" or die "Can't restore old STDOUT: $!";
close STDERR;
open STDERR, ">&$olderr" or die "Can't restore old STDERR: $!";

print "STDOUT 5";
warn "STDERR 5";
print "STDOUT 6";
warn "STDERR 6";
</pre>

Source: [http://www.tek-tips.com/viewthread.cfm?qid=1055865&page=10 Perl - Perl output redirection]

=== Random Number ===

# random number
my $random_number = rand();
0.521563085335405

# with range
my $random_number = rand($range);
34.0500569277541

# integer
my $random_number = int(rand($range));
68

# with offset
my $random_number = int(rand($range)) + $minimum;
129

# documentation
perldoc -f rand

Source: [http://perlmeme.org/howtos/perlfunc/rand_function.html Using the Perl rand() function]

=== Dropping privileges ===

# permanently drops privs
($<,$>) = (getpwnam('nobody'),getpwnam('nobody'));

Source; It's Not Easy Being Omnipotent (Perl for System Administration)

=== Include Files ===

"Perl's equivalents of "include" are [http://perldoc.perl.org/functions/use.html use], [http://perldoc.perl.org/functions/require.html require] and [http://perldoc.perl.org/functions/do.html do]." [http://www.perlmonks.org/?node_id=533866]

== Perl Quote - Passing Forbidden Arguments ==

"Perl and I found a void context to pass forbidden arguments. After the shebang it was all standard error from there on. Careful where you put your Lexical."
::-- Kenneth Burgener (March 16 at 9:55pm) on Facebook

== Advanced Perl Topics ==

=== Modules ===

==== Module Search Path ====

Modules are search for in the @INC list. The current directory ('.') is generally included in this list.
@INC = ( @INC, "./lib");
require ABC::Test;

You can easily see what directories are assigned to the @INC array on your system with this code:
perl -e "print join(qq|\n|,@INC).qq|\n|"

A module referenced as:
use ABC::Test;
would be found as under:
ABC/Test.pm

Can use "Local" to avoid global modules (place all modules under ./Local/):
use Local::Test;

Locate modules not in standard locations:
use lib qw(/myPerl/myModules/);
use SayHello;

Can use 'require' to specify any file name to load. 'use' also loads modules at compile, where 'require' loads modules at runtime.

The Net::Telnet module is found here on my Cygwin system:
/usr/lib/perl5/vendor_perl/5.10/Net/Telnet.pm

==== Extending the library path ====

Option #1: Install the module somewhere in the standard library path
# list standard library path
perl -le 'print foreach @INC'

Option #2: Set the environment variable PERL5LIB
PERL5LIB=/home/path/lib:/usr/another/path/lib; export PERL5LIB

Note: Be aware that scripts running with -T option (taint checks) don't use that variable, so in those cases this option won't work.

Option #2: Use '-I' command line parameter
perl -I /home/path/lib -I /usr/another/lib script.pl

Option #3: Add the library path in your script
#!/usr/bin/perl
use lib "/home/path/lib";
use lib "/usr/another/lib";
use MyCustomModule;

Note: Notice that this statement prepends "path" to the @INC array, so it's basically the same as
unshift @INC, "path"

Reference: [http://www.perlhowto.com/extending_the_library_path extending the library path | Perl HowTo]

==== Basic Module ====

SayHello [http://www.webreference.com/programming/perl/modules/3.html]
<pre>
package SayHello;

our $VERSION=0.10;
# or cleaner code:
# $SayHello::VERSION = 0.10;

my $hello_string="Hello World!";

sub hello_message {
return $hello_string;
}

1;
</pre>

<pre>
use SayHello;
# can check for version or higher:
# use SayHello 0.20;

# direct access to function
print SayHello::hello_message() . "\n";

# direct access to variable:
print $SayHello::VERSION . "\n";
</pre>

==== Exporting Module ====

<pre>
package SayHello;

use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(hello_message);
# export by default:
# our @EXPORT = qw(hello_message);

our $VERSION=0.10;
my $hello_string="Hello World!";

sub hello_message {
return $hello_string;
}

1;
</pre>

<pre>
#!/usr/bin/perl

use strict;
use SayHello qw(hello_message);

print "You are using version: $SayHello::VERSION of SayHello.\n";
print hello_message()."\n";
</pre>

==== Complicated Module ====

A module generally starts with:
<pre>
package ABC::Test;

use strict;
require 5.002;

## Module export
use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(TEST1 TEST2 TEST_3);

## Module import
use Exporter ();

## Base classes
use vars qw(@ISA);
@ISA = qw(Exporter);

## Global variables
use vars qw($VERSION @MYOPTS);
$VERSION = "3.03";
@MYOPTS = ("OPT1", "OPT2");

sub new {
my ($class) = @_;
my (
$errmode,
$fh_open,
$host,
$self,
%args,
);
local $_;

## Create a new object with defaults.
$self = $class->SUPER::new;
*$self->{net_telnet} = {
bin_mode => 0,
blksize => &_optimal_blksize(),
};

$self->func1;

$self;
} # end sub new

sub DESTROY {
} # end sub DESTROY

sub func1 {
...
}

## Exported Constants ##
sub MYCONST1 () {255};
sub MYCONST2 () {1};

1;
__END__;

## USER DOCUMENTATION ##

## To format the following documentation into a more readable format,
## use one of these programs: perldoc; pod2man; pod2html; pod2text.
## For example, to nicely format this documentation for printing, you
## may use pod2man and groff to convert to postscript:
## pod2man Net/Telnet.pm | groff -man -Tps > Net::Telnet.ps

=head1 NAME

Net::Telnet - interact with TELNET port or other TCP ports

=head1 SYNOPSIS

C<use Net::Telnet ();>

see METHODS section below

=head1 DESCRIPTION

Net::Telnet allows you to make client connections to a TCP port and do
network I/O, especially to a port using the TELNET protocol. Simple
I/O methods such as print, get, and getline are provided. More
sophisticated interactive features are provided because connecting to
a TELNET port ultimately means communicating with a program designed
for human interaction. These interactive features include the ability
to specify a time-out and to wait for patterns to appear in the input
stream, such as the prompt from a shell.

Other reasons to use this module than strictly with a TELNET port are:

=over 2

=item *

You're not familiar with sockets and you want a simple way to make
client connections to TCP services.

=item *

You're not familiar with sockets and you want a simple way to make
client connections to TCP services.

=back

=over 4

=item B<cmd> - issue something

Test

=back

=cut
</pre>

=== CGI ===

Virtual Host:
<pre>
<VirtualHost *:80>
ServerName t0e.org
...
AddHandler cgi-script .cgi
<Directory />
Options +ExecCGI
AllowOverride All
</Directory>
</VirtualHost>
</pre>

helloworld.cgi:
<pre>
#!/usr/bin/perl
print "Content-type: text/html\n\n";

print <<EOF
<html>
<body>

Hello World

</body>
</html>
EOF
</pre>

Environment Variables:
$querystring = $ENV{QUERY_STRING};
my @values = split(/&/,$ENV{QUERY_STRING});

<table summary="Table listing some Perl environment variables and what information they contain." border="1" cellpadding="5" cellspacing="0" width="75%">
<tr>
<th scope="col">Name</th>

<th scope="col">What it Gets</th>
</tr>
<tr>
<td>CONTENT_LENGTH</td>
<td>Number of characters submitted from a POST command</td>
</tr>
<tr>
<td>HTTP_REFERER</td>
<td>URL user came from, if available.</td>
</tr>
<tr>
<td>HTTP_USER_AGENT</td>

<td>Type of Browser viewer is using, if available.</td>
</tr>
<tr>
<td>QUERY_STRING</td>
<td>String in URL after the ? character</td>
</tr>
<tr>
<td>REMOTE_ADDR</td>
<td>Remote user's IP address</td>
</tr>
<tr>
<td>REMOTE_HOST</td>

<td>Name of user's host, if available.</td>
</tr>
<tr>
<td>SERVER_NAME</td>
<td>Name of the local server, like: www.yoursite.com</td>
</tr>
</table>

References:
* [http://www.pageresource.com/cgirec/index2.htm Page Resource - Beginning Perl Tutorials]
* [http://www.cgi101.com/book/ CGI Programming 101 - Learn CGI Today]

=== Sending Mail ===

$ENV{PATH} = "/usr/sbin";
open (MAIL, "|/usr/sbin/sendmail -t -oi") or
die "Can't fork for sendmail: $!\n";
# -t Read message for recipients. To:, Cc:, and Bcc: lines will be scanned for recipient addresses
# -oi Ignore dots alone on lines by themselves in incoming messages.
my $recipient = 'recipient@cgi101.com';
print MAIL "From: sender\@cgi101.com\n";
print MAIL "To: $recipient\n";
print MAIL "Subject: Guestbook Form\n";
print MAIL "\n";
close(MAIL);

Reference:
* [http://www.cgi101.com/book/ch4/text.html CGI Programming 101: Chapter 4: Processing Forms and Sending Mail]

=== Telnet ===

[http://www.perlfect.com/articles/telnet.shtml Using perl to connect to remote hosts via telnet.]
<pre>
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open('camel.perlfect.com');
$telnet->waitfor('/login: $/i');
$telnet->print('bilbo');
$telnet->waitfor('/password: $/i');
$telnet->print('baggins');
$telnet->waitfor('/\$ $/i');
$telnet->print('who');
$output = $telnet->waitfor('/\$ $/i');
print $output;
</pre>

[http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm Net::Telnet - interact with TELNET port or other TCP ports - search.cpan.org]
<pre>
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/bash\$ $/');
$t->open("sparky");
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;
</pre>

[http://www.wellho.net/resources/P616.html Perl - FTP and Telnet Modules]

=== Threads ===

[http://perldoc.perl.org/perlthrtut.html perlthrtut - Tutorial on threads in Perl (perldoc.perl.org)]

Your programs can use the Config module to check whether threads are enabled.
use Config;
$Config{useithreads} or die('Recompile Perl with threads to run this program.');

Example threaded program:
use threads;

@ParamList = (42, "Hello World");
my $thr = threads->create(\&sub1, @ParamList);

# To wait for a thread to exit and extract any values it might return, you can use the join() method:
my @ReturnData = $thr->join();
print('Thread returned ', join(', ', @ReturnData), "\n");

sub sub1 {
my @InboundParameters = @_;
print("In the thread\n");
print('Got parameters >', join('<>', @InboundParameters), "<\n");
}

Synchronize with lock($var).

Note that there is no unlock() function - the only way to unlock a variable is to allow it to go out of scope.

Sleep
sleep $milisec;

Loop through all the threads
foreach my $thr (threads->list()) {
$thr->join();
}

Shared data:
use threads::shared;
my $total :shared = 0;

Example with shared data and forced yields:
<pre>
#!/usr/bin/perl -w

use strict;
use threads 'yield';
use threads::shared;

my $var : shared = 0;

sub tsub {
my ($name) = @_;
for(my $i = 1 ; $i < 10 ; $i ++ ) {
yield();
print "$name] $var\n";
$var++;
yield();
# sleep random time
select(undef,undef,undef,2 * (int(rand(100))/100) );
yield();
}
return 0;
}

my $t1 = threads->new( \&tsub , "t1" );
my $t2 = threads->new( \&tsub , "t2" );
my $t3 = threads->new( \&tsub , "t3" );
my $t4 = threads->new( \&tsub , "t4" );
my $t5 = threads->new( \&tsub , "t5" );

# cleanup
my $retval;
$retval = $t1->join();
$retval = $t2->join();
$retval = $t3->join();
$retval = $t4->join();
$retval = $t5->join();
</pre>

=== MySQL ===

==== Mysql example ====

perlinsertquery.pl:
<pre>
#!/usr/bin/perl
#
# Source: http://www.tizag.com/perlT/perlmysqlquery.php
#

use Mysql;

print "Content-type: text/html \n\n";

# MYSQL CONFIG VARIABLES
$host = "localhost";
$database = "store";
$tablename = "inventory";
$user = "username";
$pw = "password";

# PERL MYSQL CONNECT()
$connect = Mysql->connect($host, $database, $user, $pw);

# SELECT DB
$connect->selectdb($database);

# DEFINE A MySQL QUERY
$myquery = "INSERT INTO
$tablename (id, product, quantity)
VALUES (DEFAULT,'pineapples','15')";

# EXECUTE THE QUERY FUNCTION
$execute = $connect->query($myquery);

# AFFECTED ROWS
$affectedrows = $execute->affectedrows($myquery);

# ID OF LAST INSERT
$lastid = $execute->insertid($myquery);

print $affectedrows."<br />";
print $lastid."<br />";
</pre>

easyselectfunctions.pl:
<pre>
#!/usr/bin/perl
#
# Source: http://www.tizag.com/perlT/perlmysqlquery.php
#

use Mysql;

# HTTP HEADER
print "Content-type: text/html \n\n";

# MYSQL CONFIG VARIABLES
$host = "localhost";
$database = "store";
$tablename = "inventory";
$user = "username";
$pw = "password";

# PERL MYSQL CONNECT()
$connect = Mysql->connect($host, $database, $user, $pw);

# SELECT DB
$connect->selectdb($database);

# DEFINE A MySQL QUERY
$myquery = "SELECT * FROM $tablename";

# EXECUTE THE QUERY
$execute = $connect->query($myquery);

$rownumber = $execute->numrows();
$fieldnumber = $execute->numfields();

# PRINT THE RESULTS
print $rownumber."<br />";
print $fieldnumber."<br />";
</pre>

fetchrow.pl:
<pre>
#!/usr/bin/perl
#
# Source: http://www.tizag.com/perlT/perlmysqlquery.php
#

use Mysql;

print "Content-type: text/html \n\n";

# MYSQL CONFIG VARIABLES
$host = "localhost";
$database = "store";
$tablename = "inventory";
$user = "username";
$pw = "password";

# PERL MYSQL CONNECT()
$connect = Mysql->connect($host, $database, $user, $pw);

# SELECT DB
$connect->selectdb($database);

# DEFINE A MySQL QUERY
$myquery = "SELECT * FROM $tablename";

# EXECUTE THE QUERY FUNCTION
$execute = $connect->query($myquery);

# HTML TABLE
print "<table border='1'><tr>
<th>id</th>
<th>product</th>
<th>quantity</th></tr>";

# FETCHROW ARRAY

while (@results = $execute->fetchrow()) {
print "<tr><td>"
.$results[0]."</td><td>"
.$results[1]."</td><td>"
.$results[2]."</td></tr>";
}

print "</table>";
</pre>

Source: [http://www.tizag.com/perlT/perlmysqlquery.php Perl Tutorial - MySQL Query]

==== DBD::mysql Example ====

Connect to MySQL:
<pre>
use DBI;
$dbh = DBI->connect('DBI:mysql:databasename', 'username', 'password'
) || die "Could not connect to database: $DBI::errstr";
# (insert query examples here...)
$dbh->disconnect();
</pre>

Connect to a different host:
<pre>
$dbh = DBI->connect('DBI:mysql:databasename;host=db.example.com', 'username', 'password',
{ RaiseError => 1 }
);
</pre>

Simple query:
<pre>
$dbh->do('CREATE TABLE exmpl_tbl (id INT, val VARCHAR(100))');
$dbh->do('INSERT INTO exmpl_tbl VALUES(1, ?)', undef, 'Hello');
$dbh->do('INSERT INTO exmpl_tbl VALUES(2, ?)', undef, 'World');
$c = $dbh->do('DELETE FROM exmpl_tbl WHERE id=1');
print "Deleted $c rows\n";
</pre>

Typical query:
<pre>
$sth = $dbh->prepare('SELECT val FROM exmpl_tbl WHERE id=1');
$sth->execute();
$result = $sth->fetchrow_hashref();
print "Value returned: $result->{val}\n";
</pre>

Query using placeholders:
<pre>
$sth = $dbh->prepare('SELECT id FROM exmpl_tbl WHERE val=?',
undef, 'World');
@result = $sth->fetchrow_array();
print "ID of World is $result[0]\n";
</pre>

Execute and fetch in one command:
<pre>
$sth = $dbh->prepare('SELECT * FROM exmpl_tbl');
$results = $dbh->selectall_hashref('SELECT * FROM exmpl_tbl', 'id');
foreach my $id (keys %$results) {
print "Value of ID $id is $results->{$id}->{val}\n";
}
</pre>

Source: [http://sql-info.de/mysql/examples/Perl-DBI-examples.html Perl DBI examples (DBD::mysql)]

== Big O Notation - Optimizing Your Perl ==

[http://www.perl.com/lpt/a/623 Perl.com: Optimizing Your Perl]:

:"Computer scientists and mathematicians use a system called big-O notation to describe the order of magnitude of how long something will take. Big-O notation represents a worst-case analysis.

:If the runtime of a function is constant, then this is written as O(1). (Note the capital or "big" O.) Constant means that no matter how much data is processed, (i.e., how much input there is) the time doesn't change."

:If the runtime is directly related to the amount of input (a.k.a. linear), then this is O(n). If there is twice as much input, then the algorithm will take twice as long to run. Some functions are O(n^2) (quadratic) or O(n^3) (cubic) or even worse."

:Because we are only looking at orders of magnitude (is the operation going to take one minute or one hour) we can ignore constant factors and smaller terms. O(2n) and O(n) are equivalent. As are O(n+1) and O(n) or O(n^2+n) and O(n^2). The smaller term is insignificant compared to the larger.

:There are rules for analyzing code and determining its big-O, but the simplest way is to look at how many times you iterate over the data. if you don't iterate, then it's O(1). If you iterate over it once, then it's O(n). If you have two nested loops, then it's probably O(n^2)."

Other references:
*[http://en.wikipedia.org/wiki/Big_O_notation Big O notation - Wikipedia]

== Recommended Perl Books ==

Perl Cookbook - Tips and Tricks for Perl Programmers
: by Tom Christiansen, Nat Torkington
: ISBN 10: 1-56592-243-3 | ISBN 13: 9781565922433
: O'Reilly Media
: August 1998
: Pages: 794
: Out of date

Perl Cookbook, Second Edition
: By Tom Christiansen, Nat Torkington
: August 2003
: Pages: 964
: ISBN 10: 0-596-00313-7 | ISBN 13: 9780596003135
: Print $49.95
: Print+Ebook $64.93
: Ebook $39.99

Perl for Dummies (Third Edition)
: (Paperback)
: [http://www.amazon.com/Perl-Dummies-Third-Paul-Hoffman/dp/0764507761 Amazon]

Learning Perl, 5th Edition
: (Paperback)
: [http://www.amazon.com/Learning-Perl-5th-Randal-Schwartz/dp/0596520107/ref=pd_sim_b_1 Amazon]
: Print $26.39
: ISBN-10: 0596520107
: ISBN-13: 978-0596520106
: Paperback: 348 pages
: Publisher: O'Reilly Media, Inc

*perl for dummies
*Perl 5 for Dummies
*Perl for System Administration
*Programming Perl
*Learning Perl
*Perl by Example
*Perl Best Practices
*http://oreilly.com/perl/
*https://fedoraproject.org/wiki/Perl_Basics_Classroom_(20090307)
**http://www.xmission.com/~fozz/perl_basics.pdf
*The Perl CD Bookshelf

[http://2020ok.com/books/16/perl-for-system-administration-20916.htm Perl For System Administration Download]
*http://serghei.net/docs/programming/perl/perl2/sysadmin/index.htm
*http://www.goldfish.org/books/O%27Reilly%20Perl%20CD%20Bookshelf%202.0/sysadmin/

== keywords ==

linux perl

[[Category:Linux]]

Perl Programming - Revision history

Kenneth: Created page with "== Tutorials == === Local === Perl - Kenneth Learning Perl Perl 4 Tutorial UTOSC 2008 - Perl Fundamentals === External === [http://perldoc.perl.org/inde..."