in reply to MySQL gone Away

Since you already had your MySQL replies, I'll concentrate on your Perl :-)

Without loss of readability, you could compact your code in:

      open(FILE,"<".$filename) || die ("Could not open FILE");
      $data .= $_ foreach <FILE> ; # for example
      close(FILE);

[download]

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->make($love) ;
}

Replies are listed 'Best First'.
Re: Re: MySQL gone Away
by maverick (Curate) on Oct 14, 2002 at 17:08 UTC
    Why iterate, when you can get the whole file in one big slurp? 
    {
    local $/ = undef;
    open(FILE,"<".$filename) || die ("Could not open: $!");
    $data = <FILE>;
    close(FILE);
}

    [download]

    /\/\averick
    OmG! They killed tilly! You *bleep*!!

[reply]
[d/l]

      Only for the sake of KISS, nothing more and nothing less.

      Ciao!
      --bronto

      # Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->make($love) ;
}

[reply]

In Section Seekers of Perl Wisdom