设为首页 收藏本站

运维网

 找回密码
 立即注册
查看: 1475|回复: 0

[经验分享] Perl 学习手札之四：variables and value

[复制链接]
123sw

尚未签到
发表于 2015-12-27 09:19:39 | 显示全部楼层 |阅读模式
　　1. values represent data.
　　variables contain values:
　　$number = 42;
　　variable 　　　value
　　
　　perl provides several types of values:
　　integers/
　　arrays/
　　strings/
　　hashes/
　　scalars/
　　reference
　　
　　perl used context to determine type.
　　
　　2. the scope of keyword: my



#!/usr/bin/perl
#
use strict;
use warnings;
main(@ARGV);
my $decimal = 23456;
sub main
{
    my $decimal= 12345;
    message($decimal);
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　the output will be 12345
　　otherwise, if we delete the line:  my $decimal= 12345;
　　and run again, the output will be 23456;
　　
　　or we can input binary , octal, hex, float and etc in the following way:



#!/usr/bin/perl
#
use strict;
use warnings;
main(@ARGV);
my $decimal = 23456;
sub main
{
    my $decimal= 12345;
    my $octal = 012345;
    my $hex = 0x1ab7;
    my $binary = 0b101010101010;
    my $float = 1234.567;
    my $exp = 12.34e56;
    message("decimal is $decimal");
    message("octal is $octal");
    message("hex is $hex");
    message("binary is $binary");
    message("float is $float");
    message("exp is $exp");
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　the output will be :
　　decimal is 12345
octal is 5349
hex is 6839
binary is 2730
float is 1234.567
exp is 1.234e+57
　　
　　3. Strings;
　　we print the string inside the  single quote and double quote;



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my $n = 42;
    my $s1 = "this is a string: $n";
    my $s2 = 'this is a string: $n';
    message($s1);
    message($s2);
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　and get the output:
　　this is a string: 42
this is a string: $n
　　notice: 双引号和单引号的区别： 双引号可以输出引号里面的变量的引用值， 单引号输出变量名称；



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my $n = 42;
    my $s1 = "this is a string: '$n'";
    my $s2 = 'this is a string: \'$n\'';
    message($s1);
    message($s2);
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　注意转义字符： \
　　
　　有时候我们可以用q代替 ''， qq 代替 ""；
　　
　　注意此时的不一定非要用{ }，可以用任何起始截至的符号都可以， 如[]{}()等。
　　
　　4. List
　　数组，我们可以定义一个数组， 包含任意标量在里面：



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my @array = (1,"two",3,4);
    my ($one, $two, $three, $four)=(1,2,3,4);
    message(join(":",@array));
    message($one);
    message($two);
    message($three);
    message($four);
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　此时的输出为：
　　1:two:3:4
1
2
3
4
　　注意此时标量的初始化方法：

my ($one, $two, $three, $four)=(1,2,3,4);
　　这样可以对于一组标量进行初始化。
　　
　　数组的元素定义是从0开始，



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my @array = (1,"two",3,4);
    message($array[1]);
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　注意此时此时用到 $array[1], 这个是由于访问的虽然是数组里面的元素， 而不是数组本身， 所以要用标量的符号；
　　访问数组元素必须用方括号[];
　　如果需要返回数组的元素个数，可以有一下方法：



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my @array = (1,"two",3,4);
    message("there are ".scalar @array . " elements in the array");
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　此时的输出为：there are 4 elements in the array
　　
　　5. slice.
　　本代码描述了对于数组元素的访问：



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my @array = (1..10);
    message(join(':',@array));
    message(join(':',@array[1,4,7]));
    message(join(':',@array[0..2,7]));
    message(join(':',@array[9,3,5]))
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　此时相应的输出为：
　　1:2:3:4:5:6:7:8:9:10
2:5:8
1:2:3:8
10:4:6
　　
　　6.hash
　　下面的例子说明了怎么定义一个hash和访问hash里面的元素：



#!/usr/bin/perl
#
use strict;
use warnings;
main(@ARGV);
sub main
{
    my %hash= ("this"=>"foo","that"=>"bar","other"=>"baz");
    message($hash{"that"});
    message($hash{"other"});
    message($hash{"this"});
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　此时的输出为：
　　bar
baz
foo
　　注意： 此时符号：=>可以被逗号 ， 完全替代。我们为了代码的阅读方便，还是建议用=>的符号定义hash。
　　访问hash的时候， 是需要用大括号。
　　
　　我们还可以用一下的方式访问和输出hash的key和value：



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my %hash= ("this"=>"foo","that"=>"bar","other"=>"baz");
    message(join(':',values(%hash)));
    message(join(':',sort(values(%hash))));
    message(join(':',sort(keys(%hash))));
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　运行一次的输出为：
　　baz:bar:foo
bar:baz:foo
other:that:this
　　注意此时第一行的输出可能在运行的时候得到的结果不一样，这个是由hash本身的性质决定的。在后面我们用了sort的关键字来对于需要访问的数值进行排序，排序的方式是ASCII表的顺序。
　　
　　看下面的例子，我们对于键值对的匹配输出：



#!/usr/bin/perl
#
use strict;
use warnings;
main(@ARGV);
sub main
{
    my %hash= ("this"=>"foo","that"=>"bar","other"=>"baz");
    foreach my $k (sort keys %hash){
        my $v = $hash{$k};
        message("$k is $v");
    }
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　输出为：
other is baz
that is bar
this is foo
　　我们下面看一个用while 循环的对比例子， 此时我们用到了each关键字：



#!/usr/bin/perl
#
use strict;
use warnings;
main(@ARGV);
sub main
{
    my %hash= ("this"=>"foo","that"=>"bar","other"=>"baz");
    while(my($k,$v)=each %hash){
        my $v = $hash{$k};
        message("$k is $v");
    }
    message("===================");
    foreach my $k (sort keys %hash){
        my $v = $hash{$k};
        message("$k is $v");
    }
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　得到的结果如下所示：
　　other is baz
that is bar
this is foo
===================
other is baz
that is bar
this is foo
　　可能我看到的输出还是一样的， 这个是因为hash的元素比较少的缘故， 如下所示，我们现在可以将hash的元素换成系统调用的ENV



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my %hash= %ENV;
    while(my($k,$v)=each %hash){
        my $v = $hash{$k};
        message("$k is $v");
    }
    message("===================");
    foreach my $k (sort keys %hash){
        my $v = $hash{$k};
        message("$k is $v");
    }
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　得到的输出如下所示：
　　GJS_DEBUG_TOPICS is JS ERROR;JS LOG
XAUTHORITY is /home/oliver/.Xauthority
XDG_CURRENT_DESKTOP is GNOME
UBUNTU_MENUPROXY is libappmenu.so
LC_COLLATE is zh_CN.UTF-8
QT_IM_MODULE is xim
XDG_SEAT_PATH is /org/freedesktop/DisplayManager/Seat0
GNOME_KEYRING_CONTROL is /tmp/keyring-IFwe6P
MANDATORY_PATH is /usr/share/gconf/gnome-shell.mandatory.path
GIO_LAUNCHED_DESKTOP_FILE is /usr/share/applications/eclipse.desktop
SSH_AUTH_SOCK is /tmp/keyring-IFwe6P/ssh
PWD is /home/oliver
USER is oliver
LANG is zh_CN.UTF-8
LC_MESSAGES is zh_CN.UTF-8
XDG_CONFIG_DIRS is /etc/xdg/xdg-gnome-shell:/etc/xdg
LOGNAME is oliver
GNOME_DESKTOP_SESSION_ID is this-is-deprecated
XDG_SESSION_COOKIE is d96aad65fd743b76159d1e0900000007-1324698243.576851-1280198017
XDG_SESSION_PATH is /org/freedesktop/DisplayManager/Session1
PATH is /usr/lib/lightdm/lightdm:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
GTK_MODULES is canberra-gtk-module:canberra-gtk-module
GIO_LAUNCHED_DESKTOP_FILE_PID is 15919
XMODIFIERS is @im=ibus
HOME is /home/oliver
DBUS_SESSION_BUS_ADDRESS is unix:abstract=/tmp/dbus-EICx1DlHFb,guid=5f69a46a6a5ae16b8faa144400000416
SSH_AGENT_PID is 2866
GNOME_KEYRING_PID is 2785
LANGUAGE is zh_CN:zh
GJS_DEBUG_OUTPUT is stderr
LD_LIBRARY_PATH is /usr/lib/jvm/java-6-openjdk/jre/lib/i386/client:/usr/lib/jvm/java-6-openjdk/jre/lib/i386:
DISPLAY is :0
GTK_IM_MODULE is xim
GDMSESSION is gnome-shell
DEFAULTS_PATH is /usr/share/gconf/gnome-shell.default.path
LC_CTYPE is zh_CN.UTF-8
USERNAME is oliver
DESKTOP_SESSION is gnome-shell
XDG_DATA_DIRS is /usr/share/gnome-shell:/usr/share/gnome:/usr/local/share/:/usr/share/
SHELL is /bin/bash
GPG_AGENT_INFO is /tmp/keyring-IFwe6P/gpg:0:1
SESSION_MANAGER is local/oliver-Computer:@/tmp/.ICE-unix/2796,unix/oliver-Computer:/tmp/.ICE-unix/2796
===================
DBUS_SESSION_BUS_ADDRESS is unix:abstract=/tmp/dbus-EICx1DlHFb,guid=5f69a46a6a5ae16b8faa144400000416
DEFAULTS_PATH is /usr/share/gconf/gnome-shell.default.path
DESKTOP_SESSION is gnome-shell
DISPLAY is :0
GDMSESSION is gnome-shell
GIO_LAUNCHED_DESKTOP_FILE is /usr/share/applications/eclipse.desktop
GIO_LAUNCHED_DESKTOP_FILE_PID is 15919
GJS_DEBUG_OUTPUT is stderr
GJS_DEBUG_TOPICS is JS ERROR;JS LOG
GNOME_DESKTOP_SESSION_ID is this-is-deprecated
GNOME_KEYRING_CONTROL is /tmp/keyring-IFwe6P
GNOME_KEYRING_PID is 2785
GPG_AGENT_INFO is /tmp/keyring-IFwe6P/gpg:0:1
GTK_IM_MODULE is xim
GTK_MODULES is canberra-gtk-module:canberra-gtk-module
HOME is /home/oliver
LANG is zh_CN.UTF-8
LANGUAGE is zh_CN:zh
LC_COLLATE is zh_CN.UTF-8
LC_CTYPE is zh_CN.UTF-8
LC_MESSAGES is zh_CN.UTF-8
LD_LIBRARY_PATH is /usr/lib/jvm/java-6-openjdk/jre/lib/i386/client:/usr/lib/jvm/java-6-openjdk/jre/lib/i386:
LOGNAME is oliver
MANDATORY_PATH is /usr/share/gconf/gnome-shell.mandatory.path
PATH is /usr/lib/lightdm/lightdm:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
PWD is /home/oliver
QT_IM_MODULE is xim
SESSION_MANAGER is local/oliver-Computer:@/tmp/.ICE-unix/2796,unix/oliver-Computer:/tmp/.ICE-unix/2796
SHELL is /bin/bash
SSH_AGENT_PID is 2866
SSH_AUTH_SOCK is /tmp/keyring-IFwe6P/ssh
UBUNTU_MENUPROXY is libappmenu.so
USER is oliver
USERNAME is oliver
XAUTHORITY is /home/oliver/.Xauthority
XDG_CONFIG_DIRS is /etc/xdg/xdg-gnome-shell:/etc/xdg
XDG_CURRENT_DESKTOP is GNOME
XDG_DATA_DIRS is /usr/share/gnome-shell:/usr/share/gnome:/usr/local/share/:/usr/share/
XDG_SEAT_PATH is /org/freedesktop/DisplayManager/Seat0
XDG_SESSION_COOKIE is d96aad65fd743b76159d1e0900000007-1324698243.576851-1280198017
XDG_SESSION_PATH is /org/freedesktop/DisplayManager/Session1
XMODIFIERS is @im=ibus
　　
　　可以看到由于while是将hash的key和value分别放到数组里面，并没有对于key的数值进行排序， 所以得到的结果和排序后的结果差异很大。
　　
　　7. undef
　　undef就是一个标量未初始化；我们可以看下面的例子



#!/usr/bin/perl
# conditionals.pl by Bill Weinman <http://bw.org/contact/>
# Copyright (c) 2010 The BearHeart Group, LLC
#
use strict;
use warnings;
main(@ARGV);
sub main
{
    my $x= undef;
    message("x is $x");
    $x= '';
    message("x is $x");
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　得到的结果为：
　　Use of uninitialized value $x in concatenation (.) or string at /home/oliver/script/perl/Exercise Files/05 Conditionals/undef.pl line 13.
x is
x is
此时显示第十三行报错；提示我们尝试输出了一个没有被初始化的标量， 第二次输出的时候， 此时x的赋值为空，输出也为空。
　　
　　我们下面初始化一个isnum的子函数， 来看undef 和define的差别：



#!/usr/bin/perl
#
use strict;
use warnings;
main(@ARGV);
sub main
{
    my $x= 'value';
    if(defined isnum($x)){
        message("x is a number ($x)");
    }else{
        message("x is not a number");
    }
}
sub isnum
{
    my $n = shift;
    return $n unless defined $n;
    if ($n =~/[^0-9]/){
        return undef;
    }else{
        return $n;
    }
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　此时我们得到的输出为：
　　x is not a number
　　如果我们将value的数值改为42，得到的输出为：
　　x is a number (42)
　　如果我们将value的数值改为0， 得到的输出为：
　　x is a number (0)
　　此时我们如果再运行下面的代码，即删除defined



#!/usr/bin/perl

use strict;
use warnings;
main(@ARGV);
sub main
{
    my $x= '0';
    if(isnum($x)){
        message("x is a number ($x)");
    }else{
        message("x is not a number");
    }
}
sub isnum
{
    my $n = shift;
    return $n unless defined $n;
    if ($n =~/[^0-9]/){
        return undef;
    }else{
        return $n;
    }
}
sub message
{
    my $m = shift or return;
    print("$m\n");
}
sub error
{
    my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;
}
　　我们得到的输出为：
　　x is not a number
　　但是，如果我们加上defined，得到的输出为
　　x is a number (0)
　　
　　这个就是说明了undef和defined的差别，也就能让我们对于一个数值没有被初始化的标量报错信息有了直观的认识。

　　


　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　


　　

　　

　　

　　


　　

　　
　　
　　
　　
　　
　　
　　

　　

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表，该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有，请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意，请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息，一经发现立即删除。若您因此触犯法律，一切后果自负，我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集，我们仅提供一个展示、介绍、观摩学习的平台，我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责，亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏，不得用于商业或者其他用途，否则，一切后果均由您自己承担，我们对此不承担任何法律责任
7、如涉及侵犯版权等问题，请您及时通知我们，我们将立即采取措施予以解决
8、联系人Email：admin@iyunv.com 网址：www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址：https://www.yunweiku.com/thread-156819-1-1.html 上篇帖子： [转载]用perl操作注册表的一些基本函数 下篇帖子： Perl AnyEvent::Socket
回复

使用道具 举报

返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群，最新一手资源尽在官方微信交流群！快快加入我们吧...

扫描微信二维码查看详情

客服 E-mail:iyunvcom@gmail.com

本站由青云提供云计算服务

运维网--中国最专业的运维工程师交流社区

豫ICP备20007574号-1 Copyright © 2012-2025

关于我们

发展历程

联系我们

关注我们

广告服务

广告案例

隐私条款

免责声明

用户登录

用户注册

版主守则

申请版主

手机版

金币获取

帮助中心

每日签到

Good Good

Study

Day Day

UP


客服E-mail:kefu@iyunv.com 客服QQ：1061981298


QQ群⑦：运维网交流群⑦ QQ群⑧：运维网交流群⑧ k8s群：运维网kubernetes交流群


提醒：禁止发布任何违反国家法律、法规的言论与图片等内容；本站内容均来自个人观点与网络等信息，非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来，其版权均归原作者及其网站所有，我们尊重他人的合法权益，如有内容侵犯您的合法权益，请及时与我们联系进行核实删除！



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表