Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1037401
  • 博文数量: 239
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 3618
  • 用 户 组: 普通用户
  • 注册时间: 2012-11-12 13:17
文章分类

全部博文(239)

文章存档

2021年(1)

2016年(1)

2015年(30)

2014年(91)

2013年(116)

分类: LINUX

2013-06-11 21:06:38

学习Perl脚本,按照Perl语言入门这本书,记录学习Perl的点点滴滴
第一章 简介
1.Hello world
[root@db2 home]# ./HelloWorld.pl 
Hello, crule world!

[root@db2 home]# perl HelloWorld.pl 
Hello, crule world!
[root@db2 home]# cat HelloWorld.pl 
#!/usr/bin/perl
print "Hello, crule world!\n";

这是第一个Perl写的脚本。

相等                   ==             eq
不等                   !=            ne
小于                   <               lt
大于                   >               gt
小于或等于          <=             le
大于或等于          >=             ge

2.获取输入信息的脚本

[root@db2 home]# ./stdin.pl 
this
That line of input was: this

[root@db2 home]# cat stdin.pl 
#!/usr/bin/perl
$line = ;
if ($line eq "\n"){
    print "That was just a bank line!\n";
}else{
    print "That line of input was: $line";
}


3.chomp操作符,如果操作的字符串的结尾有换行符,chomp能将它移除,这几乎就是它的全部功能。
$text = "a line of text\n";#假设是从读进来的
chomp($text);                #去除行末的换行符
阅读(773) | 评论(0) | 转发(0) |
0

上一篇:autofs技术

下一篇:Perl列表赋值

给主人留下些什么吧!~~