Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^4: Print contents of text file line by line

by TonyNY (Beadle)
on Jun 25, 2018 at 13:54 UTC ( #1217360=note: print w/replies, xml ) Need Help??


in reply to Re^3: Print contents of text file line by line
in thread Print contents of text file line by line

So I corrected my code and added this to create an array: my @line = <$fh>;

how can I add an if statement to check if the 7th element of the array does exist?

I've tried something like this but it did not work:

if ($line[6]){ print "Support Group: $line[6]"; }else print "Support Group:UNKNOWN $line[6]";

Thanks,

Replies are listed 'Best First'.
Re^5: Print contents of text file line by line
by hippo (Bishop) on Jun 25, 2018 at 14:37 UTC
    if the 7th element of the array does exist?

    You have to be pedantic if you are to be a programmer. The 7th element will always exist unless the array has fewer than 7 elements. But it might be undef or empty or whitespace, etc. so you need to be specific about what your condition to be evaluated is. This example checks for something other than whitespace:

    #!/usr/bin/env perl use strict; use warnings; my @line = <DATA>; print "OMG, line 7 is missing/blank!!!\n" unless $line[6] =~ /\S/; __DATA__ 1 2 3 4 5 6 8 9

    "It doesn't work" is as useful to a developer as "I'm ill" is to a medic. Try to be specific. SSCCE is best.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1217360]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2023-01-31 09:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?