Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^3: Sort then conditionally sort

by kyle (Abbot)
on Apr 10, 2009 at 15:20 UTC ( #756851=note: print w/replies, xml ) Need Help??

in reply to Re^2: Sort then conditionally sort
in thread Sort then conditionally sort

The construct is called a "here-document", and you can find them documented in perlop. It's basically a way to include some large chunk of text as a value in your program.

In this case, I used it to hold your example data. After setting $op_io to that value, I use split to cut it into individual lines, and I loop over those lines to pull the individual values out. When I'm done, I have your inputs and desired output.

I did it that way so I wouldn't have to reformat what you posted. I just pasted it in and wrote some code to pull out what I wanted.

Replies are listed 'Best First'.
Re^4: Sort then conditionally sort
by lukez (Initiate) on Apr 10, 2009 at 16:41 UTC
    Thanks Kyle, but How would this be adapted to read in a file and out put to another/

      Have a look at open and print. This code does nothing but copy an input file to the output file to show their use. For your application, you'll want to do a lot more "stuff" between the reading and writing.

      my $in_filename = 'in.txt'; my $out_filename = 'out.txt'; open my $in_fh, '<', $in_filename or die "Can't read '$in_filename': $!"; open my $out_fh, '>', $out_filename or die "Can't write '$out_filename': $!"; while ( my $in_line = <$in_fh> ) { print {$out_fh} $in_line; } close $in_fh or die "close failed: $!"; close $out_fh or die "Close failed: $!";
        thank you Kyle , I will try to adapt to the other code you made....wish me luck.... thank you for all your help

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://756851]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2018-01-21 21:13 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (230 votes). Check out past polls.