in reply to Inline::Files and DBD::CSV

Instead of Inline::Files, you could use something like: 
open(my $fh, '<', \<<'__EOI__');
...
...
...
__EOI__

[download]

A more complex example: 

my %files = (
   users => <<'__EOI__',
...
...
...
__EOI__
   posts => <<'__EOI__',
...
...
...
__EOI__
);

open(my $fh_users, '<', \$files{users});
open(my $fh_posts, '<', \$files{posts});

[download]

Replies are listed 'Best First'.
Re^2: Inline::Files and DBD::CSV
by H4 (Acolyte) on Oct 14, 2008 at 17:20 UTC
    Now that I'm aware that Inline::Files was not meant to be used in production code, I'll think up something like what you suggest... maybe a bit more sophisticated because I want to keep all the data towards the end of file (that's why I used Inline::Files in the first place). Anyway, thanks for the help!
[reply]
      Just do 
      my %file;
init_files(\%files);

.
.
.

sub init_files {
   my ($files) = @_;
   %$files = (
      ...
   );
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom