设为首页 收藏本站
查看: 968|回复: 0

[经验分享] Perl起步

[复制链接]

尚未签到

发表于 2015-12-26 13:49:12 | 显示全部楼层 |阅读模式
1、用ppm安装perl/Tk,是一个悲剧,以为只有代理,所以没办法直接下载,于是直接把包下载下来,看了半年文档还是不知道怎么安装,真是悲哀。
最后不得不带回家用宽带安装。水平不行的悲剧。
2、相关blog:http://www.cnitblog.com/gyn/category/2447.html
  在perl中用到的读文件一般有两种方法:
  1.先把整个文件download到一个数组里面然后对数组进行遍历操作。
  如:
  open (IN,"alignresult.txt") ||(die "can not open the file input.txt\n$!");
my @all = <IN>;
  foreach $line(@all){
  process $line;}
  或者
  foreach $line(<IN>){...}
  语义: 将文件load到数组中,在对数组进行遍历操作
  这样子做得缺点是文件很大时,会占据很大内存,当然速度上占优。
  2.为节省内存,一般建议如下操作
  open (IN,"alignresult.txt") ||(die "can not open the file input.txt\n$!");
while ($line = <IN>){..}
  这样的语义:
  每次$line = <IN>,文件指针后移
  

  3、关于字符串的操作

  #!/usr/bin/perl


#-----------------------------

#substr用来存取子串,可以修改子串,主要用法如下:

#$value = substr($string, $offset, $count);

#$value = substr($string, $offset);


#substr($string, $offset, $count) = $newstring;

#substr($string, $offset)         = $newtail;

#-----------------------------

# 首先得到一个5个字符的字符串,然后跳过三个字符,分别得到2个8字符的字符串,最后剩下的给$trailing

#unpack/pack的用法以后会讲到,或者参见google 一下 &#8216;perl函数 unpack&#8217;

($leading, $s1, $s2, $trailing) =
     unpack("A5 x3 A8 A8 A*", $data);

# 将字符串分成每5个字符一个串,存入数组@fives

@fivers = unpack("A5" x (length($string)/5), $string);

# 将字符串打散成单个字符,存入数组@chars

@chars  = unpack("A1" x length($string), $string);
#-----------------------------

$string = "This is what you have";
#         +012345678901234567890  Indexing forwards  (left to right)

#          109876543210987654321- Indexing backwards (right to left)

#           note that 0 means 10 or 20, etc. above

#下面是一些例子:

$first  = substr($string, 0, 1);  # "T"

$start  = substr($string, 5, 2);  # "is"

$rest   = substr($string, 13);    # "you have"

$last   = substr($string, -1);    # "e"

$end    = substr($string, -4);    # "have"

$piece  = substr($string, -8, 3); # "you"

#-----------------------------

$string = "This is what you have";
print $string;
#This is what you have


substr($string, 5, 2) = "wasn't"; # 改变 "is" 为 "wasn't"

#This wasn't what you have


substr($string, -12)  = "ondrous";# 替换最后12个字符

#This wasn't wondrous


substr($string, 0, 1) = "";       # 删除首字符

#his wasn't wondrous


substr($string, -10)  = "";       # 删除最后10个字符

#his wasn'

#-----------------------------

# 你可以用 =~ 来测试子串,=~为正则表达式匹配运算符,后面会讲到,还可以google Perl 正则表达式

#主要是匹配则为True;否则为False。 pattern可以自己根据需要构造。

if (substr($string, -10) =~ /pattern/) {
     print "Pattern matches in last 10 characters\n";
}

# 将 "is" 换为 "at", 限制在最后五个字符;=~ s/// 为替换表达式。

substr($string, 0, 5) =~ s/is/at/g;
#-----------------------------

# 将字符串$a的第一个和最后一个字符交换

$a = "make a hat";
(substr($a,0,1), substr($a,-1)) = (substr($a,-1), substr($a,0,1));
print $a;
# take a ham

#-----------------------------

# 抽取某些子串

$a = "To be or not to be";
$b = unpack("x6 A6", $a);  # 跳过6个字符,抽取6个字符

print $b;
# or not


($b, $c) = unpack("x6 A2 X5 A2", $a); # 跳过6个字符, 抽出2个字符的子串;后退5个字符,抽出2个字符的子串

print "$b\n$c\n";
# or

#

# be

#-----------------------------

#下面是一个综合的例子,主要是一个函数,实现了

#一种模板格式的输出。

sub cut2fmt {
     my(@positions) = @_;
     my $template   = '';
     my $lastpos    = 1;
     foreach $place (@positions) {
         $template .= "A" . ($place - $lastpos) . " ";
         $lastpos   = $place;
     }
     $template .= "A*";
     return $template;
}

$fmt = cut2fmt(8, 14, 20, 26, 30);
print "$fmt\n";
# A7 A6 A6 A6 A4 A*

#-----------------------------

运维网声明 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-156599-1-1.html 上篇帖子: Perl 通过Thrift连接Hbase 下篇帖子: 《Beginning Perl》读书笔记1:0~3章
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

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

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

扫描微信二维码查看详情

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


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


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


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



合作伙伴: 青云cloud

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