<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-殺雞就要用牛刀
    主站蜘蛛池模板: 亚洲中文字幕乱码AV波多JI| 久久青草亚洲AV无码麻豆| 精品亚洲AV无码一区二区| 性无码免费一区二区三区在线| 国产亚洲综合一区柠檬导航| 久久精品无码免费不卡| 国产jizzjizz免费视频| 黄页网站在线观看免费| 免费一级毛片不卡不收费| 无遮挡国产高潮视频免费观看| 免费A级毛片无码久久版| 国产高潮久久免费观看| 亚洲无码在线播放| 蜜桃视频在线观看免费视频网站WWW| 亚洲欧洲日韩国产综合在线二区| 在线人成精品免费视频| 久久精品国产亚洲AV蜜臀色欲 | 亚洲AV无码乱码麻豆精品国产| 91人人区免费区人人| 亚洲另类古典武侠| 成人毛片18岁女人毛片免费看| 亚洲AV无码精品国产成人| 亚洲成aⅴ人片久青草影院| 中文在线观看免费网站| 日韩精品一区二区亚洲AV观看| 又黄又爽又成人免费视频| 亚洲国产精品无码久久久秋霞1| 免费看国产一级片| 免费一区二区无码东京热| 亚洲视屏在线观看| 日本不卡视频免费| 在线免费观看h片| 久久精品国产亚洲av麻豆蜜芽 | 亚洲色大成网站www永久| A级毛片内射免费视频| 成人午夜影视全部免费看| 亚洲美女精品视频| 四虎影院永久免费观看| 久久免费福利视频| 国产成人人综合亚洲欧美丁香花| 亚洲人成77777在线播放网站|