creating a file using Perl

chriss_58 · #1 (**permalink**) 06-03-2008

Hi guys,

when i use the following code:

open(DEST, ">>DESTINATION_")|| die "$!"; #OPEN FILE FOR WRITING
@contents=@field;
print DEST "@contents\n";

I am creating a file that lookss like this:
Wed May 14 11:42:03 2008 10800 306973223399 19419-NEA 1 1259 1 3 80

What i want to do is to create a file that looks like the line below:
Wed May 14 11:42:03 2008| 10800| 306973223399| 19419-NEA| 1 | 1259| 1| 3| 80

This means that every field in the @contents must be seperated by its neighboor with a "|"

Any idea how am i going to implement this?

Thank you very much!

era · #2 (**permalink**) 06-03-2008

Code:

print DEST (join ("|", @contents), "\n");

You could also use @field directly; there is no benefit from copying the value to @contents separately.

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
perl -write values in a file to @array in perl	meghana	Shell Programming and Scripting	27	06-07-2009 05:05 PM
Creating a file	ravisg	Shell Programming and Scripting	2	05-10-2008 06:15 AM
help with creating new log file	john89011	Shell Programming and Scripting	0	02-29-2008 12:45 PM
Creating a txt file	outthere_3	UNIX for Dummies Questions & Answers	1	01-31-2008 11:09 PM
Creating a csv file based on Existing file	skywayterrace	Shell Programming and Scripting	3	12-02-2007 09:19 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by