Perl

Perl on windows platform

 

ActivePerl

 

http://www.activestate.com

 

Installation

 

http://www.activestate.com/activeperl/downloads

 

Perl Binaries:

ActivePerl-5.14.2.1402-MSWin32-x86-295342.msi

 

 

Suppose you install ActivePerl under below dir:

 

D:\usr\bin\Perl\Perl5.14.2

 

Configuration ActivePerl on windows platform

 

If you do not select the option to set the installation direction into env %PATH%,

you need do something belows additional:

 

set %PATH% = %PATH%;D:\usr\bin\Perl\Perl5.14.2\bin;D:\usr\bin\Perl\Perl5.14.2\site\bin;

 

Test

 

>perl

D:\home\admin\workstation\perl>perl

 

 

 

>perl -version

 

D:\home\admin\workstation\perl>perl -version

This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2011, Larry Wall

Binary build 1402 [295342] provided by ActiveState http://www.ActiveState.com
Built Oct  7 2011 15:49:44

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

>ppm

 

see Diagram 1,2

 

Installation - DBI module

 

ppm

 

command to open Perl Package Manager tool.

 

ppm provides gui tool to install perl packages.

 

or

 

ppm install DBI

 

Installation - DBD MYSQL

 

ppm

 

or

 

ppm install DBD-mysql

 

例子

#

# Program to calculate the circumference of circle

# The constant variable of PI
$pi = 3.14159265;



# This section is to calculate the circumference of circle
# (whose radius is 12.5)
$radius = 12.5;

$cc = 2*$pi*$radius;

print $cc;
print "\n";

print "The circumference of circle(radius=$radius): $cc\n";

print "The circumference of circle(radius=".$radius."): ".$cc."\n";


# This section is to calculate the circumference of circle, 
# which the radius of circle inputed from termine by user.
# So, pls enter the radius of circle while "Pls input the radius of circle".
# User can exit the program by click <ENTER> key.
print "Pls input the radius of circle:";
while ($radius = <STDIN>) {
    if ($radius eq "\n") {
        print "exit";
        last;
    }

    if ($radius < 0) {
        print "Warn: The radius of circle can not be less than zero(0)\n";
        $cc = 0;
    } else {
        $cc = 2*$pi*$radius;
    }
    print "The circumference of circle(radius=".$radius."): ".$cc."\n";

    #continue yes/no
    print "Pls input the radius of circle:";
}

 

 Another Perl Practice(ActivePerl On Window Platform) 

 

$count = 5;
$ss = "12345";

print "$ss\n" x $count;
print "--------------------------\n";


print "Pls input a string: ";
$ss = <STDIN>;

print "Pls the count of string to display: ";
$count = <STDIN>;
print "$ss\n" x $count;
print "--------------------------\n";


while (1) {
    print "Pls input a string: ";
    $ss = <STDIN>;
    if ($ss == "\n") {
        print "exit";
        last;
    }

    print "Pls the count of string to display: ";
    while ($count = <STDIN>) {
        if ($count != "\n") {
            last;
        }
        print "Pls the count of string to display: ";
    }

    print "$ss\n" x $count;
    print "--------------------------\n";
}

 

One Perl Practice With Database MYSQL

mysql_select.pl:

 

use strict;
use DBI;
#my($dbh) = DBI->connect("DBI:mysql:it-community", "root", "jxcoco1128", "") or die "can't connect!\n";
my $dbh = DBI->connect("DBI:mysql:database=it-community;host=localhost", "root", "jxcoco1128", {'RaiseError'=>1});

my $sql = "select * from micro_blogging";
my $sth = $dbh->prepare($sql);
$sth->execute();
print "======================================================================================================================\n";
#
while (my @array=$sth->fetchrow_array())
{
printf("%-35s", $_) foreach(@array);
print "\n----------------------------------------------------------------------------------------------------------------------\n";
};
print "======================================================================================================================\n";
$dbh->disconnect();
exit 0;

 

 

perl mysql_select.pl:

 

D:\home\admin\workstation\perl>perl mysql_select.pl
======================================================================================================================
1                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
10                                 微博信息                           描述内容                           用户名
----------------------------------------------------------------------------------------------------------------------
2                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
3                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
4                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
5                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
6                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
7                                  c1                                 d1                                 用户名
----------------------------------------------------------------------------------------------------------------------
8                                  微博信息                           描述内容                           用户名
----------------------------------------------------------------------------------------------------------------------
9                                  微博信息                           描述内容                           用户名
----------------------------------------------------------------------------------------------------------------------
======================================================================================================================

 

Example of  front end web development  base perl

 

#!D:/usr/bin/Perl/Perl5.14.2/bin/perl.exe

use strict;
use DBI;
use CGI;


my $q = new CGI;
#my $q = CGI->new;
my $topicID = $q->param('id');
print "Topic ID: $topicID\n";

print "Content-type: text/plain; charset=GBK\n\n";

#my($dbh) = DBI->connect("DBI:mysql:it-community", "root", "password", "") or die "can't connect!\n";
my $dbh = DBI->connect("DBI:mysql:database=it-community;host=localhost", "root", "password", {'RaiseError'=>1});

$dbh->do("SET character_set_client = 'gbk'");
$dbh->do("SET character_set_connection = 'gbk'");
$dbh->do("SET character_set_results= 'gbk'");



my $sql = "select uuid, comments, submitter, UNIX_TIMESTAMP(timestamp) creation_timestamp from topic_tie where topic_id='".$topicID."'";
my $sth = $dbh->prepare($sql);
$sth->execute();

# print "======================================================================================================================\n";


# <tr>
# <td>楼主</td>
# <td>
#     <div style="width: 100%; border-radius: 6px 6px 6px 6px; -moz-border-radius: 6px 6px 6px 6px; border: 1px solid silver;">
#         <div style="height: 28px; width: 100%; border-radius: 6px 6px 0px 0px; -moz-border-radius: 6px 6px 0px 0px; border: 1px solid silver;">
#             <span style="line-height: 28px;"><label>标题：</label></span>
#         </div>
#         <div style="height: 28px; width: 100%; border-radius: 0px 0px 6px 6px; -moz-border-radius: 0px 0px 6px 6px; border: 1px solid silver;">
#                            
#         </div>
#     </div>
# </td>
# </tr>


# <tr>
#     <td width="150"></td>
#     <td><a href="">回复主题</a></td>
# </tr>

#while (my @array=$sth->fetchrow_array()) 
#{
# printf("%-35s", $_) foreach(@array);
# print "\n----------------------------------------------------------------------------------------------------------------------\n";
#};

my $ttt = time();
while (my $ref = $sth->fetchrow_hashref()) {
    print ("<tr>\n");
    print "<td>\n";
    print "$ref->{'deliver'}\n";
    print "</td>\n";

    print "<td>\n";
    print "<div style='width: 100%; border-radius: 6px 6px 6px 6px; -moz-border-radius: 6px 6px 6px 6px; border: 1px solid silver;'>\n";
    print "<div style='height: 28px; width: 100%; border-radius: 6px 6px 0px 0px; -moz-border-radius: 6px 6px 0px 0px; border: 1px solid silver;'>\n";
    
    print "<span style='line-height: 28px;'>\n";
    print "<label>\n";
    print "标题：\n";
    my $_id = $ref->{'uuid'};
    my $_timestamp = $ref->{'creation_timestamp'};
    my $temp = $_timestamp + 86400;
    #print ("</tr>$_timestamp     $temp   $ttt\n");
    if ($temp >= $ttt) {
        print ("<img src='images/new_icon.gif' title='最新论坛主题!'/>");
    }
    print "<a href='tp.shtml?id=".$_id."'>".$ref->{'name'}."</a>(于$ref->{'last_updatetime'}更新)\n";
    print "</label>\n";
    print "</span>\n";
    print "</div>\n";
    print "<div style='height: auto; width: 100%; border-radius: 0px 0px 6px 6px; -moz-border-radius: 0px 0px 6px 6px; border: 1px solid silver;'>\n";
    print "$ref->{'comments'}\n";
    print "</div>\n";
    print "</div>\n";
    print "</td>\n";
    print ("</tr>\n");


    print "<tr>\n";
    print "<td width='150'></td>\n";
    print "<td><a href=''>主页</a>|<a href=''>资料</a>|<a href=''>短信</a>|<a href=''>留言</a>|<a href=''>关注</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=''>好</a>|<a href=''>差</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=''>引用</a>|<a href=''>收藏</a></td>\n";
    print "</tr>\n";
}


# while (my $ref = $sth->fetchrow_hashref()) {
#    print "uuid: $ref->{'uuid'}\n";
#    print "commects: $ref->{'comments'}\n";
#    print "descr: $ref->{'descr'}\n";
#    print "username: $ref->{'username'}\n";
#    print "------------\n";
#}

# print "======================================================================================================================\n";
$dbh->disconnect();
exit 0;