perl 学习

最新推荐文章于 2021-01-19 07:02:08 发布

最新推荐文章于 2021-01-19 07:02:08 发布 · 146 阅读

文章标签：

#Perl #Python #MySQL #Windows

其他专栏收录该内容

4 篇文章

订阅专栏

本文介绍如何在Windows环境下安装和配置Perl环境，并提供了一个简单的Perl脚本示例，包括字符串比较和数据库操作的基本用法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

windows 下编译运行 perl 需要下载http://www.activestate.com/activeperl/这个。下载后直接安装即可。

#! /usr/bin/perl -w  
#use DBI; 连接 数据库使用的
# -w is error alert
$str = 'Hello,world!';
$str1 = 'He';
$line=<STDIN>;  #<STDIN> is not case sensitive

# 字符串比较 ge表示大于等于 >= 
if($str ge $str1){
	print $str1;
	print '$str > $str1'."\n";
}

if($line eq "\n"){
	print "没有输入\n";
}else{
	print "你输入的是: $line";
}


# Connect to target DB
#my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost","root","elite", {'RaiseError' => 1});

# Insert one row 
#my $rows = $dbh->do("INSERT INTO test (userName, userPwd) VALUES ('testYJG', '123')");

# query 
#my $sqr = $dbh->prepare("SELECT name FROM test");
#$sqr->execute();

#while(my $ref = $sqr->fetchrow_hashref()) {
#    print "$ref->n";
#}

#$dbh->disconnect();