Professional Web Applications Themes

Optimize Problem - PERL Beginners

Dear All I am using this script to get my maillog information ## %IP_LOG=(); open (LOG,/var/log/maillog); foreach (<LOG>) { if (/Sep 20/) { $IP_LOG{$_}++; } } ## I found this script will take 3-4 second when my log file in 40MB But I try using gerp "Sep 20" /var/log/maillog in bash shell, it take 0.8 sec only. Did any one know how to optimize the script to have better performance. Thanks all -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com...

  1. #1

    Default Optimize Problem

    Dear All

    I am using this script to get my maillog information

    ##
    %IP_LOG=();
    open (LOG,/var/log/maillog);
    foreach (<LOG>) {
    if (/Sep 20/) {
    $IP_LOG{$_}++;
    }
    }
    ##
    I found this script will take 3-4 second when my log file in 40MB
    But I try using gerp "Sep 20" /var/log/maillog in bash shell, it take 0.8
    sec only.

    Did any one know how to optimize the script to have better performance.

    Thanks all

    --


    ---------------------------------------------------------------------
    "Are you still wasting your time with spam?...
    There is a solution!"

    Protected by GIANT Company's Spam Inspector
    The most powerful anti-spam software available.
    http://mail.spaminspector.com




    Millhost Guest

  2. #2

    Default Re: Optimize Problem

    Millhost said: 

    Try using while(<>), so it processes it straight away. I think I am
    correct in saying, foreach reads in the whole file first?
     

    Gavin Guest

  3. #3

    Default Re: Optimize Problem

    Millhost said: 


    Like this from Learning Perl:

    #!/usr/bin/perl -w

    use strict;
    while (<>) {
    chomp;
    if (/Sep 20/) {
    print "Matched: |$`<$&>$'|\n"; # Mystery code! See the text.
    } else {
    print "No match.\n";
    }
    }
     

    Gavin Guest

Similar Threads

  1. PDF optimize
    By Ashish in forum Brainstorming Area
    Replies: 0
    Last Post: June 30th, 09:12 AM
  2. PDF won't optimize
    By Beth_R_Phillips@adobeforums.com in forum Adobe Acrobat Macintosh
    Replies: 3
    Last Post: February 8th, 11:25 PM
  3. Optimize Projector
    By Photo4r webforumsuser@macromedia.com in forum Macromedia Director Basics
    Replies: 1
    Last Post: January 4th, 09:54 AM
  4. How to optimize?
    By Krillo webforumsuser@macromedia.com in forum Macromedia Flash Sitedesign
    Replies: 1
    Last Post: August 4th, 06:38 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139