Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2020-10-23 11:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (238 votes). Check out past polls.

    Notices?