writing an array output to perl with new line

Question

I am getting an output from a subroutine as

 @ outputarray

outputarray[0]=name  ip  port 
outputarray[1]=------------------------------------ 
outputarray[2]=http-listener-1  *   6712
outputarray[3]=http-listener-2  *   4743
...... etc

I want to create a new file and write to file log.txt where file content looks as below and delete the file log.txt how can I achieve this in perl?

 name ip port 
------------------------------------ 
http-listener-1 *      6712 
http-listener-2 *      4743

Thanks

You want to write to log.txt and then delete log.txt? Sounds redundant, don't you think? — TLP
– TLP, Commented Jan 18, 2013 at 10:35
Yes I have one more subroutine to scan the port I will delete it after that — constantlearner
– constantlearner, Commented Jan 18, 2013 at 10:38
I assume that your number 4743 changing to 8709 in the output is just a typo? — TLP
– TLP, Commented Jan 18, 2013 at 10:39

TLP · Accepted Answer · 2013-01-18 10:37:34Z

8

How to open a file and print an array to it:

open my $fh, ">", "log.txt" or die $!;
print $fh "$_\n" for @outputarray;
close $fh;

How to delete that file:

unlink "log.txt" or die $!;

Why you would want to first print and then delete that file, I have no idea.

answered Jan 18, 2013 at 10:37

TLP

68.2k10 gold badges97 silver badges156 bronze badges

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

4 Comments

constantlearner Over a year ago

Sorry i am newbie to perl does your first line also creates new file?

TLP Over a year ago

> is the open mode that creates a new file, yes. And it also overwrites any old file with that name.

jfoo Over a year ago

where can I get more information about the syntax used in the print statement? It makes sense to me, but as a perl newbie, I didn't know you could use it that way in a print statement.

TLP Over a year ago

perldoc.perl.org/functions/print.html perldoc.perl.org/functions/open.html

Collectives™ on Stack Overflow

writing an array output to perl with new line

1 Answer 1

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related