Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Building up a string from a text file

by linuxer (Curate)
on May 22, 2009 at 14:36 UTC ( #765688=note: print w/replies, xml ) Need Help??

in reply to Building up a string from a text file

Hi, what about this solution:

#! /usr/bin/perl -l use strict; use warnings; my @parameters; my @operators; my @value1; my @value2; while ( my $line = <DATA> ) { my ( $param, $operator, $value1, $value2 ) = split /\s/, $line; push @parameters, $param; push @operators, $operator; push @value1, $value1; push @value2, defined $value2 ? $value2 : ''; # if $operator is not 'between' $value2 shouldn't be defined, so j +ust add empty string # maybe you want to check $operator additionally } # fill your variables instead of printing print join '|', @parameters; print join '|', @operators; print join '|', @value1; print join '|', @value2; __DATA__ ID1 > 66 ID2 < 7 ID3 between 6 10

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2017-07-26 14:27 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (396 votes). Check out past polls.