Perl output into CSV file

Question

Question: I would like to print the output into CSV file instead of in the command prompt itself.

Here is the piece of code in perl:

#!/usr/bin/perl

use strict;
use warnings;
use HTML::TokeParser::Simple;

my $url = '<some URL>';
my $parser = HTML::TokeParser::Simple->new( url => $url );
my %tags;
while ( my $tag = $parser->get_tag('input') ) {
    my $id    = $tag->get_attr('id');    # get id attribute value    
    my $value = $tag->get_attr('value'); # get value attribute value
    $tags{$id} = $value;
}

for (keys %tags) {
    print "$_ => $tags{$_} \n";  
}

Output in command prompt

ConnectionTime => 03:20:59:46
signalstrength => Good
ulCurrentDataRate => 2.48 Kbps
batterystatus => Fully Charged

Required Output in CSV file

ConnectionTime signalstrength ulCurrentDataRate batterystatus
03:20:59:46 Good 2.48 Kbps Fully Charged

Jens · Accepted Answer · 2015-07-21 06:22:10Z

2

Store the input values in an array and then print them to a file.

#!usr/bin/perl

use strict;
use warnings;
use HTML::TokeParser::Simple;

my $url = '<some URL>';
my $parser = HTML::TokeParser::Simple->new(url => $url);
my %tags;
while (my $tag = $parser->get_tag('input')) {
           my $id=$tag->get_attr('id'); # get id attribute value    
           my $value = $tag->get_attr('value'); # get value attribute value
           $tags{$id}=$value;
 }
my @tags;
my @values;
for (keys %tags){
   push (@tags, $_);
   push (@values, $tags{$_});
}

open(my $OUTFILE, ">", "<outfile>" )
    or die "Unable to open <outfile> for writing : $!";
print $OUTFILE join("\t",@tags)."\n";
print $OUTFILE join("\t",@values)."\n";

edited Jul 21, 2015 at 6:22

answered Jul 21, 2015 at 6:04

Jens

69.6k15 gold badges107 silver badges133 bronze badges

Sign up to request clarification or add additional context in comments.

10 Comments

arka.b Over a year ago

I am getting an error

Unknown PerlIO layer "outfile" at htmlparse.pl line 22. Unable to open <outfile> for writing : No such file or directory at htmlparse.pl   line 22.

. Here the line 22 is open(my $OUTFILE, "<outfile>", "rw")

Jens Over a year ago

@arka.b You have to replace "<outfile>" with the real file name.

arka.b Over a year ago

I am using now as this open(my $OUTFILE, "test.csv", "rw") and I am getting this error Unknown open() mode 'test' at htmlparse.pl line 22.

Jens Over a year ago

Have changed my answer to open(my $OUTFILE, ">", "<outfile>" ). Try again.

arka.b Over a year ago

It is working, but the entire output in two boxes. How about using comma (,) in the excel output ConnectionTime,signalstrength,ulCurrentDataRate, batterystatus and then in the next line 03:20:59:46,Good,2.48 Kbps,Fully Charged

|

Collectives™ on Stack Overflow

Perl output into CSV file

1 Answer 1

10 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

10 Comments

Your Answer

Sign up or log in

Post as a guest

Related