Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: File handles and loops

by Neighbour (Friar)
on Jul 31, 2012 at 07:11 UTC ( #984578=note: print w/ replies, xml ) Need Help??


in reply to File handles and loops

In your validate_file sub, you open the file and while looping through the lines, (if something's wrong), close the file and allow it to edit. But what happens after the editing is done? The file is still closed, the while loop will stop (since it can't read from the closed filehandle) it will attempt to close the filehandle again, and return 1. This is not what you intended :)
How about something like this (untested)?

sub validate_file { my $file_ok = 0; while (not $file_ok) { $file_ok = 1; # Let's assume the file has no error open( MY_FILE, $my_file ) or die "Unable to open file\n"; while( <MY_FILE> ) { chomp( $_ ); unless ( $_ =~ /^[a-z]/ ) { close( MY_FILE ); print "Error at line $.\n"; print "$_ does not begin with a lower case letter\n"; print "Hit return to continue: "; <STDIN>; &edit_file( $my_file ); $file_ok = 0; } } close( MY_FILE ); } return 1; }
The initial $file_ok-value seems a bit off, but this is to make sure the while loop triggers at least once :)
This method means that validate_file is called once, and will only return when the file is ok. I'm not sure if that's what you intended. You could move the while (not $file_ok)-loop out of validate_file-sub and keep calling the sub while the file is not ok.


Comment on Re: File handles and loops
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (9)
As of 2014-12-18 03:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (41 votes), past polls