perl笔记

Perl语言擅长做文本处理，文本其实就是程序中的字符串，一下是关于perl处理字符串的总结.

?

【注意事项】

1、if(<STDIN>)时，在终端输入，数据不会自动存储在$_中；while(<STDIN>)时，在终端输入，数据会自动存储在$_中。

【perl查看字符串ASCII值】

#! /usr/bin/perl -w

#

my $str;

print "$#ARGV,$ARGV[0]n";

if($#ARGV eq 0){

???????while(<>)

???????{

??????????????? $str .= $_;

???????}

???????print $str;

}else{

???????print "input stringn";

???????$str = <STDIN>;

}

print "input char_indexn";

while(<>){

???????if($_>0){

???????????????$ch = substr $str,($_-1),1;

??????????????? $num = ord($ch);

??????????????? print "OUT:[$ch =>$num]n";

???????}else{

??????????????? print "index must>0.n";

???????}

}

【杀死vs进程】

#! /usr/bin/perl -w

#

?

my $str = `ps -e | grep vs.*`;

#print $str;

my @a;

while($str =~ m/([0-9]{4,})b/g){

???????push @a,$1;

}

?

?

?

?

print "all:n@an";

?

foreach(@a){

???????system "kill -9 $_";

}

?

【查找指定目录下的所有文件和目录及总大小】

#!/usr/bin/perl -W

#

# File: lsr_s.pl

# Author: 路小佳

# License: GPL-2

?

use strict;

use warnings;

?

sub lsr_s($) {

??? my $cwd =shift;

??? my @dirs= ($cwd.'/');

?

??? my ($dir,$file);

??? while($dir = pop(@dirs)) {

??????? local*DH;

??????? if(!opendir(DH,$dir)) {

???????????warn "Cannot opendir $dir: $! $^E";

???????????next;

??????? }

?????? ?foreach (readdir(DH)) {

???????????if ($_ eq '.' || $_ eq '..') {

???????????????next;

??????????? }

???????????$file = $dir.$_;????????

???????????if (!-l $file && -d _) {

???????????????$file .= '/';

???????????????push(@dirs,$file);

?????????? ?}

???????????process($file,$dir);

??????? }

???????closedir(DH);

??? }

}

?

my ($size,$dircnt,$filecnt) = (0,0);

?

sub process($$) {

??? my $file= shift;

??? print$file,"n";

??? if(substr($file,length($file)-1,1) eq '/') {

???????$dircnt++;

??? }

??? else {

???????$filecnt++;

??????? $size+= -s $file;

??? }

}

?

lsr_s('.');

print "$filecnt files,$dircnt directory.$size bytes.n";

?

【命令行参数关键字】

@ARGV 是你的命令行输入参数数组

$#ARGV 是你的参数个数

$ARGV 是你用<>读取文件时，当前的那个文件名称