Making things run faster Post: 302248138

Sponsored Content

Top Forums UNIX for Advanced & Expert Users Making things run faster Post 302248138 by Legend986 on Friday 17th of October 2008 04:16:36 AM

10-17-2008

Registered User

Sure. Thank You so much. I am open to any advice as I am more interested in learning Smilie

Please let me know if there is some obvious mistake I am doing.

My perl code is:

Code:

open (FILE, $ARGV[0]);
my %hTmp;

while (my $fileLine = <FILE>) {

        if($fileLine =~ /PREFIX/) {
                if(!($fileLine =~ /[:]{2}/)) {
                        $flag = 1;
                }
        }

        if($flag == 1) {
                if($fileLine =~ /ASPATH/) {
                        $fileLine =~ s/\n//;
                        @myarray = ($fileLine =~ m/([0-9]{3,5}\s)/g);

                        #Following removes prepending. Remove if you do not want it

                        undef %saw;
                        @out = grep(!$saw{$_}++, @myarray);

                        $temp = join("", @out);
                        $temp =~ s/^\s//;
                        $temp =~ s/^\s+//;
                        print $temp."\n" unless ($hTmp{$temp}++);
                        $flag = 0;
                }
        }

}

And a sample from the input file is:

Code:

TIME: 12/01/07 00:40:57
TYPE: TABLE_DUMP/INET
VIEW: 0
SEQUENCE: 1
PREFIX: 0.0.0.0/0
FROM:213.140.32.148 AS12956
ORIGINATED: 11/28/07 09:12:40
ORIGIN: IGP
ASPATH: 12956
NEXT_HOP: 213.140.32.148
STATUS: 0x1

TIME: 12/01/07 00:40:57
TYPE: TABLE_DUMP/INET
VIEW: 0
SEQUENCE: 2
PREFIX: 3.0.0.0/8
FROM:208.51.134.246 AS3549
ORIGINATED: 11/30/07 17:06:53
ORIGIN: IGP
ASPATH: 3549 701 703 80
NEXT_HOP: 208.51.134.246
MULTI_EXIT_DISC: 12653
COMMUNITY: 3549:2355 3549:30840
STATUS: 0x1

TIME: 12/01/07 00:40:57
TYPE: TABLE_DUMP/INET
VIEW: 0
SEQUENCE: 3
PREFIX: 3.0.0.0/8
FROM:209.161.175.4 AS14608
ORIGINATED: 11/30/07 13:43:49
ORIGIN: IGP
ASPATH: 14608 19029 3356 701 703 80
NEXT_HOP: 209.161.175.4
COMMUNITY: no-export
STATUS: 0x1

I want the ASPATHS corresponding to the IPv4 addresses in the input data. Please let me know of any obvious improvements if possible.

Legend986

View Public Profile for Legend986

Find all posts by Legend986

8 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

making ssh run without password

Hello Everybody, Could anyone please tell me how to get ssh to work without asking for passwords? (i want to do a ssh <hostname> without getting a request for a password but getting connected straight away) I have attempted the following but to no avail :( ... I tried to generate a SSH...

2. Programming

Complicating things?

So basically what im trying to do is ... Open file, read that file, than try to find .. We or we and replace them with I, but not replace the cases where words contain We or we, such as Went, went, etc a and replace them with the, but not replace the cases where words contain a, such as...

3. Shell Programming and Scripting

When things doesn't run into crontab???

Could someone explain my problem? I've the following script... #! /bin/ksh ... vmquery -m $MediaID | awk ' BEGIN {FS=": " getline expdate <"ExpDate.txt" } $1 ~ /media ID/ {MediaNumber = $NF} ... $1 ~ /number of mounts/ { "date +%Y"|getline YearToday Year4 = YearToday - 4 if...

4. Shell Programming and Scripting

Can anyone make this script run faster?

One of our servers runs Solaris 8 and does not have "ls -lh" as a valid command. I wrote the following script to make the ls output easier to read and emulate "ls -lh" functionality. The script works, but it is slow when executed on a directory that contains a large number of files. Can anyone make...

5. UNIX for Dummies Questions & Answers

things root can't do

Hey all my co-workers and I are trying to put together a list of things root "Can't" do on any *NIX OS, so I wanted to come here and see what all we could come up with. Here are two to start this off: write to a read only mount FS kill a tape rewind Please add what you know. Thanks,...

6. Shell Programming and Scripting

Making script run faster

Can someone help me edit the below script to make it run faster? Shell: bash OS: Linux Red Hat The point of the script is to grab entire chunks of information that concerns the service "MEMORY_CHECK". For each chunk, the beginning starts with "service {", and ends with "}". I should...

7. Shell Programming and Scripting

Making a faster alternative to a slow awk command

Hi, I have a large number of input files with two columns of numbers. For example: 83 1453 99 3255 99 8482 99 7372 83 175 I only wish to retain lines where the numbers fullfil two requirements. E.g: =83 1000<=<=2000 To do this I use the following...

8. Shell Programming and Scripting

Optimize shell script to run faster

data.file: contact { contact_name=royce-rolls modified_attributes=0 modified_host_attributes=0 modified_service_attributes=0 host_notification_period=24x7 service_notification_period=24x7 last_host_notification=0 last_service_notification=0 host_notifications_enabled=1...

LEARN ABOUT DEBIAN

um_del_service

VIEW-OS(1)						      General Commands Manual							VIEW-OS(1)

NAME

       um_del_service - remove a service module of umview

SYNOPSIS

       um_del_service service_name

DESCRIPTION

       This command removes a service module of umview/kmview.	The name of a service module can be obtained by the command um_ls_module

SEE ALSO

       umview(1),   kmview(1),	 um_add_service(1),   um_ls_service(1),   umfuse(1viewos),   umnet(1viewos),   umdev(1viewos),	umbinfmt(1viewos),
       ummisc(1viewos), viewfs(1viewos),

AUTHORS

       View-OS is a project of the Computer Science Department, University of Bologna. Project Leader: Renzo Davoli.
       <http://www.sourceforge.net/projects/view-os>

       Howto's and further information can be found on the project wiki <wiki.virtualsquare.org>.

VIEW-OS: a process with a view					   June 10, 2006							VIEW-OS(1)