Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re^2: Generating a List of numbers

by choroba (Chancellor)
on Feb 02, 2012 at 09:22 UTC ( #951391=note: print w/replies, xml ) Need Help??

in reply to Re: Generating a List of numbers
in thread Generating a List of numbers

You are not chomping $OuterData. Therefore, it contains a newline at the end which prevents it from matching in the regular expression.
Update: Looping over the file several times makes your algorithm very slow if the file is big. Using a hash, you can avoid this problem:
#!/usr/bin/perl use warnings; use strict; my $tmpipaccountingfile = "tmpipaccountingfile"; my $DestDevice = "Box"; my %data; open my $TMPIPACCOUNTINGFILE, "<", "$tmpipaccountingfile" or die "$!"; while (<$TMPIPACCOUNTINGFILE>) { next if (/^(?:$|sh|\s*Source|^$DestDevice|Accounting)/); my @fields = split; push @{ $data{$fields[1]} }, [ @fields[0,2,3] ]; } close $TMPIPACCOUNTINGFILE; while (<DATA>) { print; chomp; for my $match (@{ $data{$_} }) { print join "\t", $match->[0], $_, @{$match}[1,2]; print "\n"; } } __DATA__

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://951391]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (13)
As of 2016-10-28 14:35 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (384 votes). Check out past polls.