<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    ivaneeo's blog

    自由的力量,自由的生活。

      BlogJava :: 首頁 :: 聯系 :: 聚合  :: 管理
      669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks
    1.split函數

    ???%seen = ( );
    ???$string = "an apple a day";
    ???foreach $char (split //, $string) {
    ???????$seen{$char}++;
    ???}

    2./(.)/g 但是(.)永遠不會是newline
    ???%seen = ( );
    ???$string = "an apple a day";
    ???while ($string =~ /(.)/g) {
    ???????$seen{$1}++;
    ???}

    3.unpack("C*")也可以逐個處理字符:(這個例子是累加字符串里每個字符ascii碼的累加值)
    ???$sum = 0;
    ???foreach $byteval (unpack("C*", $string)) {
    ???????$sum += $byteval;
    ???}
    ???print "sum is $sum\n";
    ???# prints "1248" if $string was "an apple a day"

    $sum = unpack("%32C*", $string); #這個方法比上面更快,這個返回32位的checksum值.

    4 .<>是默認的輸入流,其實就是ARGV.
    ?????這個模擬sysv的checksum程序:
    ???#!/usr/bin/perl
    ???# sum - compute 16-bit checksum of all input files
    ???$checksum = 0;
    ???while (<>) { $checksum += unpack("%16C*", $_) }
    ???$checksum %= (2 ** 16) - 1;
    ???print "$checksum\n";
    ???

    ???Here's an example of its use:

    ???% perl sum /etc/termcap
    ???1510


    ???If you have the GNU version of sum, you'll need to call it with the —sysv option to get the same answer on the same file.

    ???% sum --sysv /etc/termcap
    ???1510 851 /etc/termcap

    一個詳細的例子:



    #!/usr/bin/perl # slowcat - emulate a s l o w line printer # usage: slowcat [-DELAY] [files ...] $DELAY = ($ARGV[0] =~ /^-([.\d]+)/) ? (shift, $1) : 1; #這里[.]取消了.的特殊性。使其為一般意義。shift移除了@ARGV第一個變量和長度減一。 $| = 1; #不為0就強行清空輸出或打印。 while (<>) { #<>為@ARGV指定的文件句柄 for (split(//)) { print; select(undef,undef,undef, 0.005 * $DELAY); #select函數設置屏幕輸出。這里是設置延遲。 } }












    posted on 2006-04-09 11:16 ivaneeo 閱讀(405) 評論(0)  編輯  收藏 所屬分類: perl-殺雞就要用牛刀
    主站蜘蛛池模板: 久久精品a亚洲国产v高清不卡| 一级成人毛片免费观看| 一区二区三区四区免费视频| 亚洲精品国产高清不卡在线| 国产精品亚洲综合天堂夜夜| 成人免费午夜视频| 亚洲无码一区二区三区| 亚洲欧洲无卡二区视頻| 成人福利免费视频| 国产成人精品日本亚洲网址| 亚洲人成电影网站色| 无码国产精品一区二区免费I6| 亚洲精品**中文毛片| 福利免费观看午夜体检区| 99999久久久久久亚洲| 大学生美女毛片免费视频| 国产精品亚洲AV三区| 四虎影视永久免费观看地址| 免费的黄色的网站| 亚洲熟妇无码八AV在线播放| 最近中文字幕大全免费版在线| 亚洲福利在线观看| 欧美最猛性xxxxx免费| 在线精品自拍亚洲第一区| 国产在线19禁免费观看| 中国内地毛片免费高清| 亚洲精品在线免费观看| 最近2019中文字幕mv免费看| 羞羞网站在线免费观看| 亚洲AV无码专区在线播放中文| 青青青免费国产在线视频小草| 亚洲乱色熟女一区二区三区蜜臀| www.亚洲精品| 久久综合国产乱子伦精品免费| 亚洲一卡2卡3卡4卡国产网站| 国产免费无遮挡精品视频| 国产免费爽爽视频在线观看| 99亚偷拍自图区亚洲| 4338×亚洲全国最大色成网站| 91精品国产免费久久国语蜜臀| 亚洲中文字幕无码久久2020 |