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

(Guildenstern) Re: Not looping... Am I a moron?

by Guildenstern (Deacon)
on Feb 21, 2001 at 00:21 UTC ( #59757=note: print w/replies, xml ) Need Help??


in reply to Not looping... Am I a moron?

Cutting and pasting this code and calling get_section with your specifed parameters works for me. Of course, I had to comment out several lines since they refer to variables or subs that I don't have code for. My modified version looks like this:
get_section("E0209.dat","F0210.dat","H0211.dat"); sub get_section { print join ':', @_ ; for (@_) { print ; /\.dat/ && do {my $file = $_; my $pubdate = substr ($_, 1, 4); print "$file \:\: $pubdate\n" ; } ; } }

As I said above, this works fine for me, and prints out all three values. The only thing that I can think of is that somewhere in get_file, sort_dat,or print_sect is a problem that's either hanging the script or exiting. You didn't indicate that there was anything abnormal about the execution, so I would look first at anything that might be causing the script to exit, such as a die;.

Of course, I could be way off in left field here, but it's a start.

Guildenstern
Negaterd character class uber alles!

Replies are listed 'Best First'.
Re: (Guildenstern) Re: Not looping... Am I a moron?
by HamNRye (Monk) on Feb 21, 2001 at 00:26 UTC
    Thanks! that was it...

    The ol' open or die.... in the print sect....
    thanks

    And the other question is answered too... I am a moron. 8>)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2020-10-21 14:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (217 votes). Check out past polls.

    Notices?