按类别查询搜索结果
关于关键词 的检测结果,共 288
nyzhj05 | 2013-10-17 15:24:39 | 阅读(1070) | 评论(0)
1. indexposition = index (string, substring, position)返回子串substring在字符串string中的位置,如果不存在则返回-1。参数position是可选项,表示匹配之前跳过的字符数,或者说从该位置开始匹配。 例子如下:[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a"); print ...【阅读全文】
nyzhj05 | 2013-10-17 15:23:19 | 阅读(1000) | 评论(0)
yrwyys001 | 2013-10-16 16:20:17 | 阅读(360) | 评论(0)
1968年秋天,由于西雅图几个投资者的支持,华盛顿大学的4名计算机专家创办了计算机中心公司,这是一家西雅图私人公司,几乎垄断了整个西海岸的计算机租用业务。在之前,该公司已向数据设备公司借租了几台计算机,其中包括像盖茨和湖滨中学其他学生使用的PDP-10型机。计算机中心公司试图向该地区的科学和工程企业提供计算机...【阅读全文】
zhiyue5654 | 2013-10-12 11:20:32 | 阅读(350) | 评论(0)
合伙企业可以聘任合伙人以外的人为合伙企业的经营管理人员被聘人员被授权管理合伙内部事务也可以被授权对外代表合伙企业受聘人员按照授权进行的经营管理活动其法律后果由合伙企业承担    合伙事务执行人的权利与义务合伙事务执行人享有的权利有 ○报酬请求权执行合伙事务如约定报酬的合伙事务执行人有请求...【阅读全文】
zhiyue5654 | 2013-10-04 11:19:32 | 阅读(560) | 评论(0)
二最高额抵押1概念:是指在预定的最高担保额度内为将来一定期间内连续发生的交易关系引起的债权设定的抵押《担保法》59条《物权法》203条2最高额抵押较之普通抵押的特点与合同内容:1抵押财产所担保的不是已经发生的特定债权而是当事人将来一定期间内连续交易关系可能发生的不特定债权2由最高额抵押的性质所决定连续交易的...【阅读全文】
zhiyue5654 | 2013-09-26 21:39:16 | 阅读(570) | 评论(0)
.简述刑事诉讼职能的含义?侦查职能控诉职能辩护职能 审判职能执行职能协助诉讼职能 诉讼监督职能.现代刑事诉讼职能的基本结构和原则是什么?控审公离,是指控诉职能和审判职能必须公别由专门的诉讼主体来承担,而不能把两种职能集中由个诉讼主体不承担,如果没有法定的控诉主体提起诉讼,承担审判职能的法院就不能主动审判任何案...【阅读全文】
murdercool | 2013-09-25 16:36:20 | 阅读(0) | 评论(0)
use utf8;  use Encode;  use URI::Escape;    $/ = "/n";    #从unicode得到utf8编码  $str = '%u6536';  $str =~ s//%u([0-9a-fA-F]{4})/pack("U...【阅读全文】
zhiyue5654 | 2013-09-24 19:24:48 | 阅读(420) | 评论(0)
司法审查:是通过政府外部的监控机制—人民法院,审查被诉政府机关行使自由裁量权行为的合法性和合理性,撤销违法滥用自由裁量权的行为,变更显失公正的具体行政行为我国目前仅限行政处罚行为。       自己不做自己的法官:就是行政主体工作人员处理涉及与自己有利害关系的事物货裁决...【阅读全文】
murdercool | 2013-09-10 17:13:36 | 阅读(0) | 评论(0)
#!/usr/bin/perl#grep练习#@a=qw(1 2 3 4 5 64);#@c=grep {$_=~/4$/} @a; #代码块形式  #@c=grep $_=~/4$/, @a; #表达式形式#print "@c","\n"#map联系#@a=qw(1 2 3 4 5 64);#@c=map {$_+100 }@a;#print "@c","\n" #my $a=int rand(100);#print $a,"\n";#while(1){# my $b=<STDIN>;...【阅读全文】
murdercool | 2013-09-10 17:12:43 | 阅读(0) | 评论(0)
#!/usr/bin/perl#system(rm,"-i","out.unl"); #sub choose{# # my  $file=$_[0];my $s1=$_[1];my $s2=$_[2];my $s3=$_[3];my $diff=$_[4];# my  (@arr_name_1,@arr_name);#  #  open (my $fh1 ,"$file")||die("open error");#    @arr_name_1=();#  ...【阅读全文】
murdercool | 2013-09-10 17:10:37 | 阅读(0) | 评论(0)
#!/usr/bin/perl#use warnings;#use strict;# 求平均值和中间值#####求平均值####sub avg{#### my(@a)=@_;#### my $sum;#### foreach $a(@a){####  $sum+=$a;####  }####  $avg=$sum/@a;####  return $avg;#### }##### 求中间值####sub ...【阅读全文】
murdercool | 2013-09-10 17:09:09 | 阅读(0) | 评论(0)
#!/usr/bin/perl#$a=$a*89;#$b=$b+1+1;#print "$a\n"; #print "$b\n";   #$a="john";#print 'i  am  $a' ."\n";    #print "i  am  $a \n"  ;      #print "i  am  \$a \n"  ;    &nb...【阅读全文】
murdercool | 2013-09-10 17:07:45 | 阅读(0) | 评论(0)
#!/usr/bin/perl -w#BEGIN{unshift @INC,"./module"}#seek 移动指针 tell 确定指针位置#use strict;#open(A,"+<a.unl")||die("failed");#seek(A,5,0);#print tell(A),"\n";#print A 'SSS';#close(A)#open(my $fh1,"a.unl")||die("open failed");#while(<$fh1>){# if(/a/.../c/){#  prin...【阅读全文】
murdercool | 2013-09-10 17:06:12 | 阅读(0) | 评论(0)
#!/usr/bin/perlBEGIN{print "Hi,welcome to perl !!\n";   unshift(@INC,"/home/wbcbp/wangx/a/perl_test/module")   }; #perl加入 脚本开头结束执行END{print "It\'s over!!\n"};##替换$string=~s///  可带参数 g贪婪 o一次 s支持隔行匹配 i忽略大小写 x忽略模式中的空...【阅读全文】
murdercool | 2013-09-10 17:05:30 | 阅读(0) | 评论(0)
#!/usr/bin/perl#print "\Uabcd\Eabcd\n";#$a='abcd';#$a=~s/a/m/;#print $a,"\n";                   #替换#substr($a,2,1)='d';#print $a,"\n";          ...【阅读全文】
yrwyys001 | 2013-09-09 16:40:36 | 阅读(140) | 评论(0)
上一篇文章简单的讲了一些关于现代传媒的传媒能力及影响力方面的问题,简单的回顾一下,一个是传播的范围广,第二个是影响的人群大,从这两点看,影像传媒是有效的思想表达的方式,也是比较高效的传播相关内容的方法之一。今天的文章,我们要简单的谈一谈从影像的题材和内容所表达的情感方面出发,触摸屏一体机影像的制作...【阅读全文】
chuanjing20130 | 2013-09-07 10:31:51 | 阅读(570) | 评论(0)
    长沙园林景观设计要求和特点都比较新颖,设计本身是一个复杂的过程,它作为一种新的内容是从绘画技巧的完全不同。长沙园林景观设计要求可以概括为五个特点,创新,综合,双重,过程和社会。     1.综合    设计是一门综...【阅读全文】
yrwyys001 | 2013-09-04 17:03:40 | 阅读(150) | 评论(0)
这是一个充分利用影视来表达的时代,没有了从前人们那种用文字来定义时代的功底,即是这样,我们今天的文章就简单的谈一谈如今的影像表达分类,dupoo.net并对各种风格的影像表达做一个简要的说明。说到影像,首当其冲的就是电影了,追溯到最早的电影表达,通过技术的手段,将人们的行为动作通过胶片技术记录下来,这样,人...【阅读全文】
andersonyan | 2013-09-02 17:59:54 | 阅读(15460) | 评论(0)
perl pack和unpack的使用方法Pack 与unpack使用说明: pack可视为将一系列的片段的数值打包在一起,可用于对dev档案、socket、memory的读写,因为这些需要一块完整的memory,而且需要事先打包成特定格式;而unpack可以视为将将这些完整的 memory切割计算,取得我们所需要各部分的Variable。例子如下: ...【阅读全文】
andersonyan | 2013-09-02 16:52:36 | 阅读(3970) | 评论(0)
第一种办法,最简单的,调用 shell:    $ip = `ifconfig eth0|grep -oE '([0-9]{1,3}\.?){4}'|head -n 1`;注:这里输入是固定的,所以简单的 [0-9]{1,3} 了,如果是在 web 程序等地方验证 ip,需要更严谨!或者    $ip = `ifconfig eth0|awk -F: '/inet addr/{split($2,a," ");print a[1];exit}...【阅读全文】