Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: ignoring blank lines

by linuxer (Curate)
on May 25, 2010 at 18:36 UTC ( #841620=note: print w/replies, xml ) Need Help??

in reply to ignoring blank lines

Hi, your shebang looks broken... Shouldn't it be #! |path|of|interpreter (1)?

your subject says "ignoring blank lines", your text says "leave out those lines which has one partner"?

So, what do you want to do?

What do you mean with "partner"? Are you talking about words (partner == word)?
Do you simple want to print those lines with two words?
Maybe only those lines with two words, where the words are the same?

The better you explain your problem, the better others can help you.

Just a guess:

#! /usr/bin/perl use strict; use warnings; # read magically from given files or STDIN; see perldoc perlop (null f +ilehandle) while ( my $line = <> ) { # split each line my @elements = split /\s+/, $line; # two words per line (and words are equal) if ( 2 == @elements && $elements[0] eq $elements[1] ) { print $line; } } # just for testing __DATA__ file ass ass array rat rasa arrow ant sad
edit: (1): and I wonder whether there shouldn't be slashes /? Which OS uses pipe | as directory separator?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://841620]
[Corion]: Hi Discipulus!
[Discipulus]: your chautauqua was important for me
[Discipulus]: Hi Corion here is holiday: the best we have Liberation Day
[Discipulus]: waiting sons to finish home assignments and we go out to some park
[Corion]: Discipulus: Oh ;) I'm looking forward to 1st of May - the next holiday here ;)

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2017-04-25 11:12 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (449 votes). Check out past polls.