Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Text processing question - strange output

by gryphon (Abbot)
on Nov 20, 2001 at 23:52 UTC ( #126601=note: print w/replies, xml ) Need Help??


in reply to Text processing question - strange output

Greetings Piercer,

I'm not entirely clear on what you want to gather and display, but from what I understand after reviewing your code, the following may be a solution:

#!/usr/bin/perl -w use strict; open(NB, 'nbt.csv') || die "Can't open input file: nbt.csv"; print join "\n", map { chomp; join ',', $_, map { chomp substr($_,0,15 +) } `nbtstat -a $_`; } <NB>; close(NB);

Essentially, it prints out a bunch of lines, one line per IP address stored in the nbt.csv file. Each line has the first 15 characters of each line returned from the nbtstat command.

-gryphon
code('Perl') || die;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2023-12-10 22:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?











    Results (41 votes). Check out past polls.

    Notices?