I am LAZY bones ? all linux

2010年 07月 的归档

perl 的特色

由于工作中偶尔要接触一下perl,所以我花了点时间,很粗略地看了一遍flamephoenix的perl中文教程。本文就是我在看的过程中记录下来的点点滴滴,对大家不一定有用,但是也可以让不会perl的同学对其有个直观的印象。perl果然是个非主流,哈哈。

字符串有很不同的转义,可以转义大小写。
$a = "T\LHIS IS A \ESTRING"; # same as "This is a STRING"

比较操作符有“比较”这个操作,整数是 <=> ,字符串是 cmp ,会返回 1,0,-1

字符串能进线自加(++)操作,而且逢zZ9会进位,但是不能自减。

字符串的重复操作符是x(小写字母x),对应的python操作符是 * (星号)

条件操作符可以用来选择变量:
$condvar == 43 ? $var1 : $var2 = 14;

数组变量要有个 @ 头,而且可以和普通变量重名,列表用的是(),对应python里是 []。

列表可以用..表示范围: (2, 5..7, 11) = (2, 5, 6, 7, 11) 更神奇的是,还可以用于实数: (2.1..5.3) = (2.1, 3.1 ,4.1, 5.1) 和字符串 (“aaa”..”aad”) = (“aaa”,”aab”, “aac”, “aad”) ,还可以包含变量: ($var1..$var2+5)

列表赋值给简单变量,会得到列表的长度。。。

打开文件的模式(读、写或追加)是通过在文件名前加前缀指定的,所以,我不知道如果要只读打开文件名是 “>“ 的文件该怎么写。

文件测试操作更像bash的风格。

@ARGV[0] 就是第一个参数,而不是程序名本身。

有个 <> 操作符,可以直接按参数顺序读取指定的文件,这个就得实践过才能体会了。

可以像操作普通文件那样操作管道。而且也是用的open函数。

模式(也就是 正则表达式)操作是内置的,而不用像python那样import re。这点倒是比较像javascript。

有类似 awk 的模式匹配操作符。比如: $result = $var =~ /abc/; 这个用在逻辑判断里很方便。

模式的定界符缺省是/,但是可以用m来自定义。

模式匹配以后可以用 $1 $2 $& 等引用匹配到的组。

模式匹配操作可以放在while里循环,还可以pos定位。

elsif 也比较bash。

有 foreach 的语法。foreach语法里的 循环变量 是 循环内部 的局部变量;在循环里改变循环变量,会修改数组的对应项。。。

last就是break;next就是continue;还有个redo。循环控制很强大。

以上两点,可以用这个小程序体会一下:

#!/usr/bin/env perl
 
@list = (1, 2, 3, 4, 5);
print "@list\n";
foreach $temp (@list) {
	print "temp=$temp\n";
	if($temp==2){
		$temp=20;
		next;
	}
	if($temp==3){
		$temp=30;
		redo;
	}
	if($temp==4){
		$temp=40;
		last;
	}
}
print "@list\n";

也支持goto。

单行条件,也很有特色:语法为statement keyword condexpr。其中keyword可为if、unless、while或until。尤其是短循环时,很方便。

用 sub 来定义子程序,用 &xxx 或者 do xxx 来引用。

实参用括号的传入,(&xxx(1, 2, 3)),形参不列出,在子程序里用 @_ 来引用传入的实参。

局部变量有两种, my($xxx) 的变量自在本子程序内有效。 local($xxx) 的变量在本子程序和下级的子程序内有效。

用变量和数组混合做为参数,传给子程序时,要小心有可能传到 @_ 的时,会被重组。

传参数的时候,也可以传地址,这时候,子程序里改变的变量会影响外部。

perl5里有3个预设的子程序,BEGIN、END、AUTOLOAD,这点又有点像awk。AUTOLOAD 是在找不到子程序的时候被调用。

关联数组,就是用任意变量类型做下标的数组,用 %变量名表示,可以用 foreach $key (keys(%hashlist)) 来遍历。这其实就是python的dict。 不过其 sort keys 不知道是什么语法。。。

%fruit = ("apples",17,"bananas",9,"oranges","none");
和这个等效:
%fruit = ("apples"=>17,"bananas"=>9,"oranges"=>"none");
 
可以先数组,再关联数组:
@fruit = ("apples",17,"bananas",9,"oranges","none");
%fruit = @fruit;
反之亦然:
%fruit = ("grapes",11,"lemons",27);
@fruit = %fruit;
不过@fruit可能变成 ("lemons",27,"grapes",11)

关联数组可以直接赋值增加,用 delete 函数删除。 (“lemons”,27,”grapes”,11)

keys 对应的是 values,可以取出所有的值。

可以用each更好地循环关联数组:
%records = (“Maris”, 61, “Aaron”, 755, “Young”, 511);
while (($holder, $record) = each(%records)) {
# stuff goes here
}

$~ 是个系统变量,用于指定打印格式。

@<<< 左对齐输出 尖尖的个数,就是占的位数。 @>>> 右对齐输出
@||| 中对齐输出
@##.## 固定精度数字
@* 多行文本

select 可以改变缺省文件变量,这样就可以输出内容到文件了。

format 还可以设置页眉。。。

$^是页眉格式,$=是每页行数。还有个当前页的行计数器: $-

设置系统变量$|为非零值,则输出到文件的时候不使用缓冲。

内置了一套完整的文件处理函数,基本上和linux命令是同名的,用法也类似。比如: read/getc/mkdir/readdir/rmdir/rename/link/unlink/chown/stat 等等。

perl和C类似,存在指针,也可以叫“引用”。和C的&取地址符类似的是 \ 地址可以指向所有的类型,包括子程序。

perl也是面向对象的──类是一个Perl包,其中含提供对象方法的类。方法是一个Perl子程序,类名是其第一个参数。对象是对类中数据项的引用。

与包的引用结合,可以用单引号(‘)操作符来定位类中的变量,类中成员的定位形式如:$class’$member。在Perl5中,可用双冒号替代单引号来获得引用,如:$class’$member与$class::$member相同。

一个perl程序可以用package切分成很多个“包”,各包之间有独立的命名空间,而且程序可以随时在包之间来回切换。

perl里有两个和python的import类似的语法,require和use,require更像C的宏替换,use更像import。然后和 sys.path 类似的数组叫 @INC。

还有 cpan 很强大~

Common Internet File System

Common Internet File System 是samba的一部分,用于取代 smbfs 来挂载windows的共享文件夹,cifs比smbfs应用更广。
要使用 Common Internet File System 需要linux内核开启 cifs 支持。具体是要打开 File systems —> Network File Systems —> CIFS support (advanced network filesystem, SMBFS successor) 这个选项。如果是模块的话,使用前确保加载了。
然后,挂载共享文件夹,可以用mount命令的 -t cifs 选项来调用 mount.cifs。具体是:

sudo mount -t cifs //机器名或IP/远程/目录/ 本地挂载点 -o user=域/用户名%密码,iocharset=utf8

当然,没有域的话,也可以省略域。如果要指定其他mount的选项也是可以的,比如指定uid和gid之类的,这里就不多说了。

另外,如果gnome-base/gvfs开启了samba支持的话,也可以在nautilus的地址栏里直接输入 smb://机器名或IP/远程/目录/ 来打开远程目录,有密码时会弹出对话框输入。
这两种方法各有各的好处。

Google Storage

Google Storage是一个Google旗下的云存储服务,其数据存于美国的数个数据中心。主要面向开发者,免费提供100G的空间和300G的流量,当然,如果你愿意出点钱,可以获得更多。但是目前还处于测试阶段,不能直接注册,可以在这里申请,运气好的话,过几天就会收到试用邀请了。
我有幸获得了试用资格,体验了一下,就在这里记一下感想。

首先,Google Storage把所有存在上面的数据都放在一个个的“Bucket”里面,而这个bucket的名字,是所有用户共享的,也就是说,我建了个叫bones的bucket以后,其他人就不能再建这名的bucket了。
然后bucket里,就是一个个的object了。也就是说数据其实只有 bucket/object 两层,并没有常见文件树的嵌套目录结构。幸好object的名字可以带斜杆,而且web操作上也确实可以用带斜杆的object name来模拟目录结构。

其实,Google Storage采用Key/secret对的形式来进行权限管理,一个google账号可以同时建立5个Key/secret对。这样,在保证安全性的同时,也最大程度地提供了便利性。
权限这块,好像还可以把某个bucket的权限开放给指定的用户和组(就是google group),这个要用下面介绍的 GSUtil。

另外,Google Storage还提供了一个python写的命令行工具GSUtil,不过只有linux版和mac版,当我windows下安个cygwin还是可以跑的,呵呵。安装这个工具也很方便,直接下载解压到任意目录,然后配置一下环境变量,让系统能找到gsutil及相应的库就可以了,详见这里
首次运行gsutil,程序会让你输入Key/secret对,你把web上生成的信息输入进去,就可以使用了。
目前,使用这个工具可以建立/删除 bucket和object,以及上传或重命名文件;还可以用于设置权限等。

就玩了这么多,不过它还有个python的开发库,应该是可以重点研究的,如果能写个东西把这100G空间挂载到本地目录,应该还是蛮好玩的,呵呵。

个性鼠标


这其实是一个鼠标,前几天在网上无意中看到的,觉得挺有意思,就买了来。
刚拆包的时候,感觉第一印象是做工很一般,不过想想才15块钱,也差不多就这样了吧。
试用了一下,目前感觉还不是很习惯,呵呵,左右键还可以,但是要在鼠标移动的时候双击之类的,就会有点困难了,而且移动的时候经常定位不准。
不过也有个好处就是打开一个很长的网页以后,手可以脱离桌面来操纵滚轮,这点不错。
另外,这个滚轮没法按下,这对win可能没啥,但对linux来说,就无法简单地粘帖了。。。幸好同时按下左右键这个操作还算比较方便,弥补了一下。
另外,虽然宣传说可以边用鼠标边打字,但是其实一个手指被套牢以后,打字还是会很别扭的。
为了试试可用性,特意用这鼠标去win下打了局魔兽(冰封王座,不是魔兽世界),以我这极菜的水平,还是可以勉强打赢一个简单的电脑,哈哈,就说明这个还是有潜力的。
再贴张使用时候的图:

虽然这玩意不算很完美,但是多少体现出一种创新吧,还是蛮赞的~
多一些这种个性产品,生活也会更美好的。