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

Re: Text processing question - strange output

by amelinda (Friar)
on Nov 20, 2001 at 22:55 UTC ( #126581=note: print w/replies, xml ) Need Help??

in reply to Text processing question - strange output

I'm not sure this is really "help," but rewriting like the following may help you track it down:
#!c:\perl\bin\perl -w use strict; # you know you wanted this, right? open(NB, "nbt.csv") or die "Can't open input nbt.csv\n"; # NBT.CSV simply contains ip addresses - one per line while(<NB>) { chomp $_; my $line="$_".","; # using my eliminates the undef my @nbtstat = `nbtstat -a $_`; # my will make you happy for ($j=0; $j<=$#nbstat;$j++) # $# is the last index { my $short=substr($nbtstat[$j],0,15); chomp $short; unless ($line=~m/$short/) {$line=$line.",".$short;} } print "$line\n"; } close(NB);

Update: Could we see an example of the output you are trying to achieve (generated by hand if necessary)?

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2023-12-10 23:14 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (41 votes). Check out past polls.