Re: Generating an output file


Don't ask to ask, just ask
	PerlMonks

Re: Generating an output file

by bv (Friar)

on Sep 22, 2009 at 15:23 UTC ( #796732=note: print w/replies, xml )

Need Help??

in reply to Generating an output file

You could store the rest of the line (each sub-entry) in a separate array, then loop over that. Here's one I put together quickly:

while(<INPUT>){
  my (@prefix,@rest);
  chomp;
  (@prefix[0..2],@rest) = split /,/;
  for (@rest)
  {
    local $, = ',';
    local $\ = "\n";
    print @prefix,$_;
  }
}
[download]

print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))

Comment on Re: Generating an output file Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://796732]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others exploiting the Monastery: (8)

As of 2023-12-11 12:17 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?